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1.0    ABSTRACT 

THE  0X20-V100  "lAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  IS  A  TEST  OF  .HE 
DX20  PROGRAMMED  DEVICE  ADAPTER  TO  MAGTAPE  SUBSYSTEM  INTERFACE.  THIS 
AGNOSTICISHIREU6IBSTHBXlO?OI0i/P2  TAPE 

TRANSPORTS  AND  TX01/TX02  CONTROLLERS. 

TESTING  BEGINS  Ul  I  A  CHECK  THAT  THE  DRIVE  TYPE  OF  THE  DX20  IS  V100. 
THEN,  A  MI CRODI AGNOSTIC  (MCDXD.ADX)  IS  RUN  IN  THE  DX20.  IT  STEPS 
THROUGH  A  SELECTION  SEQUENCE  WITH  THE  TX01/TX02  CONTROLLER.  SYSTEM 
RESET,  TEST  I/O,  AND  SENSE  COMMANDS  ARE  TESTED.  FHFN  SENSE  BYTES 
ARE  READ  FROM  EACH  TAPE  TRANSPORT  UNTIL  ..  UNIT  IS  .  OUND  TO  BE  READY 
AND  URITE-ENABLED. 

THE  DX20  IS  THEN  LOADED  WITH  ITS  OPERATIONAL  MICROCODE  (MAINDEC-10-DXMCA) 
AND  ALL  OPERATIONS  ARE  TESTED  UNDER  ITS  CONTROL. 

A  CONSOLE  CONTROL  PACKAGE  IS  PROVIDED  TO  ALLOW  THE  USER  TO  MANUALLY 
CONTROL  THE  DX20  MICROPFCr'ESSOR  AND  ACCESS  ALL  DX20  REGISTERS. 

THIS  DIAGNOSTIC  WILL  RUN  IN  EITHER  EXEC  OR  USER  MODE. 

2.0  REQUIREMENTS 

2.1  EQUIPMENT 

A.  KL10  PROCESSOR  WITH  AT  LEAST  32K  OF  CORE  MEMORY 

B.  RH20  MASSBUS  CONTROLLER 

C.  DX20-V100/V200/V400  PROGRAMMED  DEVICE  ADAPTER 

0.  TX01  u.-^  TX02  MAGNETIC  TAPc  CONTROLLER 

1.  1-8  TU70,  TU71,  OR  TU72  MAGNETIC  TAPE  TRANSPORTS  WITH  SCRATCH 

TAPES  MOUNTED  AND  WRITE  RING  IN  PLACE 

2.2  PROGRAMS 

A.  MAINDEC-10-DFDXD  —  THIS  DIAGNOSTIC 

B.  MAINDEC-10-DXMCA  —  DX20-V100  MICRO-CODE 

2.3  PRELIMINARY  PROGRAMS 

A.  ALL  MEMORY  AND  PROCESSOR  DIAGNOSTICS 

B.  RH20  MASSBUS  CONTROLLER  DIAGNOSTICS 

C.  MAINDEC-10-DFDXC  —  DX20  PROGRAMMED  DEVICE  ADAPTER  DIAGNOSTIC  (RH20) 

D.  SUBSYSTEM  PROGRAM  FOR  ANALYSIS  AND  REPAIR  (SPAR) 

3.0     RESTRICTIONS 

A.  THE  LOAD  MEDIUM  FROM  WHICH  THE  MICR0DIA6N0STIC  AND  MICROCODE  ARE 
LOADED  CANNOT  BE  LOCATED  ON  THE  SAME  RH20  AS  THE  DX20  BEING  TESTED 

B.  IN  USER  MODE  THIS  DIAGNOSTIC  TAKES  THE  WHOLE  SUBSYSTEM  AND  WILL 
WRHE  ON  ANY  TAPE  THAT  IS  WRITE  ENABLED  AND  ONLINE.  THIS  MEANS 
THAT  NO  ONE  ELSE  CAN  USE  THE  TAPE  DRIVES  THAT  ARE  CONNECTED  TO 
THE  DX20  BEING  TESTED. 


C.  ALL  THE  DRIVES  THAT  EXIT  ON  THE  DX20  SUBSYSTEM  MUST  BE  ASSIGNED  „.  ^^, 

TO  BE  ABLE  TO  RUN  THIS  DIAGNOSTIC.  SEQ  OOQi* 
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4.0    LOADING  PROCEDURE 

THIS  DIAGNOSTIC  IS  AVAILABLE  ON  FOUR  DIFFERENT  MEDIA  -  DISK, 
MAGTAPE,  FLOPPY,  AND  DECTAPE. 

LOAD  AND  RUN  KLDCP  IN  THE  MASTER  FRONT  END.  BOOT  THE  KL10.  THIS 
INCLUDES  LOADING  SUBRTN.A10.  THEN  LOAD  AND  START  THE  DIAGNOSTIC 
LOADER,  E.G.,  DIAMON.  SELECT  THE  APPROPRIATE  LOAD  DEVICE  AND 
RUN  'DFDXD*. 

THIS  DIAGNOSTIC  MAY  BE  RUN  AS  A  SINGLE  PROGRAM  OR  MAY  BE  CHAINED  WITH 
OTHER  PROGRAMS  USING  THE  DIAGNOSTIC  LOADER  CHAIN  FEATURE. 

THIS  DIAGNOSTIC  CAN  ALSO  BE  RUN  IN  USER  MODE  BY  RUNNING  D20M0N  AND 
CALLING  FOR  DFDXD. 

THE  MICRODIAGNOSTIC  (MCDXD.ADX)  AND  MICROCODE  (DXMCA.ADX)  FILES 
MUST  BE  ACCESSIBLE  ON  THE  SAME  DEVICE  USED  TO  LOAD  THIS  DIAGNOSTIC. 

5.0  STARTING  PROCEDURE 

5.1  MOUNT  A  MAGTAPE  OF  KNOWN  GOOD  QUALITY  AND  WRITE  RING  ON  EACH  TAPE 
TRANSPORT  TO  BE  TESTED.  LOAD  THE  MAGTAPE  AND  PRESS  START  SWITCH  ON 
TRANSPORT.  MAKE  SURE  ONLINE/OFFLINE  SWITCH  IS  IN  THE  ONLINE  POSITION. 

5.2  RESET  ALL  TAPE  TRANSPORTS  NOT  TO  BE  TESTED. 

5.3  SET  TAPE  CONTROL  UNIT  ONLINE  AND  ENABLE  UNIT  SWITCH  FOR  EACH  TAPE  UNIT 
TO  BE  TES1ED. 

5.4  SET  CONSOlc"  DATA  SWITCHES  FOR  DESIRED  PROGRAM  OPTIONS  AS  DESIRED,  SEE 
SECTION  6. 

5.5  LOAD  AND  START  DIAGNOSTIC,  REFER  TO  SECTION  4. 

5.6  VERIFY  THAT  MEMORY  MAP  PRINTED  AGREES  WITH  THE  MEMORY  CONFIGURATION  OF 
THE  SYSTEM. 

5.7  DIAGNOSTIC  WILL  PRINT  UNIT  ADDRESS  OF  TAPE  TRANSPORT  IT  CHOOSES  TO  TEST. 
IF  THIS  ADDRESS  IS  NOT  THE  ADDRESS  INTENDED  TO  BE  TESTED,  STOP  THE 
DIAGNOSTIC.  SET  DATA  SWITCH  31  AND  SET  SWITCHES  32  -  35  TO  THE  UNIT 
ADDRESS  INTENDED.  THIS  WILL  ALLOW  THE  DIAGNOSTIC  TO  REPORT  ERRORS  WITH 
THE  KNOWLEDGE  THAT  THE  UNIT  IS  SUPPOSED  TO  BE  READY. 

5.8  THE  DIAGNOSTIC  WILL  LOAD  THE  MICRODIAGNOSTIC  AND  MICRO-CODE  PROGRAM 
FROM  THE  LOAD  DEVICE  AND  TYPE  THE  FILE  NAME  AS  IT  IS  LOADED. 
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6.0  OPERATING  PROCEDURE 

6.1  CONSOLE  DATA  SWITCHES  ARE  USED  BY  THE  DIAGNOSTIC  TO  MODIFY  THE  NORMAL 
SEQUENCE  OF  TESTING.  THE  DATA  SWITCH  FUNCTIONS  ARE  AS  FOLLOWS: 

SWITCH  POSITION  FUNCTION 

0  0  NORMAL  OPERATION 
1  ABORT  AT  END  OF  PASS 

1  0  NO  FUNCTION 
1  LIST  TOTALS  AND  RESTART 

2  0  NO  FUNCTION 
1  LIST  TOTALS  AND  CONTINUE 

3  0  NORMAL  TYPEOUT 
1  INHIBIT  ALL  PRINTING  EXCEPT  FORCED 

4  0  NORMAL  OUTPUT  TO  TTY 
1  PRINT  ON  LPT 

5  0  NO  FUNCTION 
1  RING  BELL  ON  ERROR 

6  0  PROCEED  TO  NEXT  TEXT 
1  ENTER  SCOPE  LOOP  ON  TEST  ERROR 

7  0  NO  FUNCTION 
1  HALT  ON  TEST  ERROR 

8  Q  PRINT  ONLY  FIRST  ERROR  IN  LOOP 
1  PRINT  ALL  ERRORS 

10       0  PRINT  FULL  ERROR  MESSAGES 

1  INHIBIT  COMMENT  PORTION  OF  ERROR  MESSAGES 

19  0  ALLOW  DX20  MICRO-CODE  TO  RUN  ITS  INTERNAL  DIAGNOSTICS 

WHEN  IDLE. 

1  PREVENT  MICRO-CODE  FROM  RUNNING  ITS  DIAGNOSTICS 

20  0  NORMAL  OPERATION 
1  START  THE  DX20  CONSOLE  CONTROL  PROGRAM  (EXEC  ONLY) 

21  0  NORMAL  OPERATION 
1  BYPASS  END  OF  TAPE  TESTING 

22  Q  PRINT  ONLY  3  LINES  IN  DATA  COMPARISON  ERROR 
1  PRINT  ALL  DATA  COMPARISON  ERRORS 

23  0  PRINT  ONLY  STATUS  THAT  IS  IN  ERROR 
1  PRINT  ALL  STATUS 

24  9  PRINT  STATUS  DESCRIPTIONS 
t  PRINT  STATUS  IN  OCTAL  NUMBERS 
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31       0    TEST  ALL  TAPE  UNITS  IN  SYSTEM 

1     TEST  ONLY  THE  TAPE  UNIT  WHOSE  ADDRESS  IS  SELECTED  BY 
SWITCHES  32  -  35. 

NOTE 

THE  USE  OF  THIS  SWITCH  TELLS  THE  DIAGNOSTIC 

THAT  THE  UNIT  SELECTED  IS  IN  A  READY  AND 

WRITE-ENABLED  STATE  AND  TO  REPORT  AN  ERROR  IF 

THE  UNIT'S  STATUS  DOES  NOT  AGREE. 

♦ 

32-35  ADDRESS  OF  TAPE  UNIT  TO  BE  TESTED  IF  SWITCH  31  IS  SET 

6.2  STARTING  ADDRESSES 

30000   NORMAL  STARTING  ADDRESS 

30004   DIAGNOSTIC  CONSOLE  PROGRAM  START  ADDRESS 

6.3  CONSOLE  TERMINAL  FEATURES 

AN  ALTMODE  CHARACTER  CAN  BE  TYPED  AT  ANY  TIME  TO  CAUSE  THE  DIAGNOSTIC  TO 
HALT  AT  THE  END  OF  THE  CURRENT  TEST.  THIS  IS  THE  RECOMMENDED  METHOD  OF 
STOPPING  THE  DIAGNOSTIC.  IF  IN  USER  MODE,  TYPING  CONTROL  C  WILL  CAUSE 
THE  TEST  TO  EXIT  TO  THE  MONITOR.  THE  MICRODODE  WILL  BE  RELOADED  AFTER 
TYPING  CONTROL  C  AND  THEN  THE  *C  PROMPT  WILL  BE  GIVEN. 

r  J    ERRORS 

ERRORS  ARE  REPORTED  ON  THE  TELETYPE  OR  THE  LIN'?  PRINTER  (IF  SWITCH  4  IS 
SET).  AN  ERROR  REPORT  CONTAINS  THE  PROGRAM  PASS  COUNT  IF  NOT  ZERO,  THE 
PC  OF  THE  ERROR  CALL,  THE  CONSOLE  DA^A  SWITCHES,  THE  TEST  NUMBER,  AND 
THE  TEST  NAME.  IF  THE  ERROR  OCCURS  BEFORE  THE  MICRO-CODE  IN  THE  DX20 
IS  USED,  THE  ERROR  MESSAGE  MAY  ALSO  CONTAIN  CORRECT  AND  ACTUAL  DATA. 

TESTS  THAT  USE  THE  DX20  MICRO-CODE  TO  PERFORM  THE  MAGTAPE  OPERATION 
CHECK  IF  THE  OPERATION  WAS  PERFORMED  CORRECTLY  BY  EXAMINING  THE  STATUS 
IN  THE  DX20  STATUS  REGS.  ANY  ERROR  IN  THIS  COMPARE  MAY  BE  REPORTED  IS 
ONE  OF  WAYS.  IF  CONSOLE  SWITCH  24  IS  SET  THE  STATUS  WILL  BE  PRINTED 
AS  OCTAL  NUMBERS.  THE  ACTUAL  STATUS  RECEIVED  IS  PRINTED  AND  IF  IT  IS 
NOT  CORRECT  THE  EXPECTED  FOLLOWS  IT.  EACH  GROUP  OF  STATUS  IS  CLEARLY 
IDENTIFIED. 

IF  DATA  SWITCH  24  IS  RESET,  THE  STATUS  RECEIVED  WILL  BE  DESCRIBED  AS 
CLOSELY  AS  POSSIBLE  TO  THE  DX20  AND  STC  DOCUMENTION. 

IF  CONSOLE  DATA  SWITCH  23  IS  SET,  ALL  STATUS  WILL  BE  PRINTED. 

IF  DATA  SWITCH  23  IS  RESET,  ONLY  THE  INFORMATION  IN  ERROR  IS  PRINTED. 

A  DESCRIPTION  OF  THE  CHANNEL  COMMAND  LIST  AND  LOGOUT  DATA  IS 
PRINTED  If   APPLICABLE  TO  THE  TEST. 

THE  STATUS  INFORMATION  IS  FOLLOWED  BY  ANY  DATA  PATTERN  OR  DATA 
COMPARISON  ERROR  INFORMATION,  IF  APPLICABLE  TO  THE  TEST. 


1 
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8.0 


8.1 


MICRODIAGNOSTIC 

THE  MICRODIAGNOSTIC  REPORT  ERRORS  TO  THE  HOST  USING  THE  SIGNALING 
DESCRIBED  IN  SECTION  8.1  .  THE  ERROR  MESSAGES  ARE  CONTAINED  IN 
FILE  DFDXC.CDX  AND  ARE  ACCESSED  BY  THE  HOST  PROGRAM  AT  THE  TIME  OF 
ERROR  REPORTING. 

HOST  -  MICRODIAGNOSTIC  INTERFACE 

THE  FOLLOWING  DESCRIBES  THE  INTERFACE  THAT  EXIST  BETWEEN 
THE  MICRO-DIAGNOSTIC  AND  THE  HOST  DIAGNOSTIC. 

BOTH  THE  HOST  DIAGNOSTIC  AND  THE  MICRODIAGNOSTIC  CONTAIN  CODE 
TO  COMMUNICATE  ACROSS  THE  MASSBUS  INTERFACE.  IN  GENERAL,  THE 
MICRODIAGNOSTIC  IS  THE  MASTER  AND  THE  HOST  IS  THE  SLAVE. 


8.1.1   HOST  DIAGNOSTIC  ACTIONS 

THE  HOST  PROGRAM  MUST  LOAD  THE  MICRO-DIAGNOSTIC  AND  START  IT  AT 
LOCATION  1,  AFTER  DOING  ONE  OF  THE  FOLLOWING. 

LOAD  DXCTR  WITH  1  -  TO  START  THE  MICRO-DIAGNOSTIC  AT  THE  BEGINNING 
IN  QUICK  VERIFY  MODE 

LOAD  DXCTR  WITH  5  -  TO  START  THE  MICRO-DIAGNOSTIC  AT  THE  BEGINNING 
IN  RELIABILITY  MODE 

THE  HOST  DIAGNOSTIC  WILL  THEN  WAIT  FOR  ATTEN  TO  SET.  THE  ATTEN 
BIT  WILL  BF  SET  WHENEVER  THE  MICRO-DIAGNOSTIC  WANTS  THE  HOST 
DIAGNOSTIl  to  perform  SOME  ACTION  OR  IF  THE  MICRO-PROCESSOR  SHOULD 
HALT  (FATAL  ERROR).  THIS  LOOP  WILL  BE  TIMED  TO  PREVENT  HANGS. 

AFTER  SERVICING  A  REQUEST  FOR  ACTION  FROM  THE  MICRODIAGNOSTIC,  THE 
HOST  WILL  SET  GO  AND  DO  ONE  OF  THE  FOLLOWING: 

LOAD  DXCTR  WITH  3  -  TO  REPEAT  THE  CURRENT  TEST  OR  LOOP  ON  ERROR 
LOAD  DXCTR  WITH  7  -  TO  CONTINUE  AFTER  ANY  REQUEST  FROM  THE  MICRO- 
DIAGNOSTIC  WHERE  LOOPING  IS  NOT  WANTED. 
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8.1.2  MICRO-DIAGNOSTIC  ACTIONS 

THE  MICRO-DIAGNOSTIC  MUST  CLEAR  GO  AND  SET  ATTEN  TO  SIGNAL  THE  HOST 
DIAGNOSTIC.  BEFORE  SETTING  ATTEN,  THE  FOLLOWING  REGISTERS  MUST  BE 
LOADED  WITH  INFORMATION  FOR  THE  HOST  DIAGNOSTIC. 

DXGPO  -  TEST  NUMBER  CURRENTLY  PROCESSING  OR  JUST  COMPLETED. 
DXERR  -  MPERR  WILL  BE  0  IF  NO  ERROR  CONDITION  EXISTS.  THE  ERROR  CODE 
FIELD  FURTHER  DESCRIBES  THE  REASON  FOR  THE  STOP: 

EC=000  IF  TEST  COMPLETED  (COULD  BE  INDIVIDUAL  TEST  OR  ENTIRE 
DIAGNOSTIC  DEPENDING  ON  START  COMMAND  IN  DXCTR) 

EC=001  REQUESTS  THE  HOST  TO  SEND  THE  ADDRESS  OF  THE  TAPE  DRIVE 
WHICH  IS  TO  BE  TESTED. 

EC=002  REQUESTS  THE  HOST  TO  RECEIVE  SENSE  BYTES. 

DXERR  -  MPERR  WILL  BE  1  TO  REPORT  'N  ERROR.  THE  ERROR  CODE  FIELD  IS 
USED  TO  CONTROL  ERROR  REPORTING  AS  FOLLOWS: 
EC=O^XX  REPORT  ONLY  MESSAGE  NUMBER  XX  FOR  TEST 
EC=100^-XX  REPORT  MESSAGE  NUMBER  XX  FOR  TEST  AND  CORRECT  AND  ACTUAL 

DATA. 
EC=200*XX  REPORT  MESSAGE  NUMBER  XX  FOR  TEST  ^HEN  RUN  ADDITIONAL 

ERROR  PRINT  ROUTINE  SPECIFIED  IN  RIGHT  HALF  OF  DXGP3. 
EC=300+XX  REPORT  MESSAGE  NUMBER  XX  FOR  TEST,  CORRECT  AND  ACTUAL 

DATA  AND  THEN  RUN  ADDITIONAL  ERROR  PRINT  ROUTINE 

SPECIFIED  IN  RIGHT  HALF  OF  DXGP3. 

DEPENDING  ON  DXERR,  SOME  OF  THE  FOLLOWING  REGISTER  M.AY  ALSO  BE  LOADED: 

DXGP1  -  BIT  0  -  DATA  ACCEPTED  HANDSHAKE  BIT 

BIT  1  -  SENSE  BYTE  TRANSFER  DONE  BIT 
DXGP2-7  -  SENSE  BYTES 
DXGP4  -  BITS  7-0  -  TAPE  DRIVE  ADDRESS 

BITS  15-8  -  TESTING  ALL  DRIVES  FLAG 

=0  MEANS  TESTING  SPECIFIED  DRIVE 
=377  MEANS  TESTING  ALL  DRIVES 

XX  IS  A  MESSAGE  NUMBER  0-37 
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9.0    DX20  CONSOLE  CONTROL  PROGRAM 

A  CONSOLE  CONTROL  PROGRAM  IS  PROVIDED  TO  ALLOW  THE  USER  TQ^ 

MANUALLY  CONTROL  THE  MICROPROCESSOR  AND  ACCESS  ALL  TME  DX20 

REGISTERS. 

TO  START  THE  CONSOLE  PACKAGE  START  THE  PROGRAM  AT  "SFSTRT" 

OR  IF  IN  DDT  TYPE  C$G,  WHERE    $=ALTMODE. 

THE  CONSOLE  CONTROL  PROGRAM  CAN  ALSO  BE  STARTED  BY  SETTING 

CONSOLE  SWITCH  20. 

THE  PROGRAM  WILL  PROMPT  YOU  WITH  AN  •CCP>' 

THE  FOfLLOWING  IS  A  LIST  OF  THE  CONSOLE  COMMANDS  AND  FORMATS — 

THE  GENERAL  COMMAND  FORMAT  FOR  CONSOLE  PACKAGE  IS 
COMMAND  DATA,ADDRESS(CR) 

FOR  THE  FOLLOWING  COMMANDS:     LWM,LCRAAC,LCI,LDP,LMB,LDR,RDA,LUP 
THE  FORMAT  IS 

COMMAND  DATA(CR) 

FOR  THE  FOLLOWING  COMMANDS: 

LIRaPC,RWM,RCR,RAC,RCI,RDP,RMB,XCR,XI,RDR,ST,LUP 
THE  FORMAT  IS 

COMMAND  ADDR(CR) 

FOR  THE  FOLLOWING  COMMANDS:     RIR,SP,RE,RPC 
THE  FORMAT  IS 

COMMAND(CR) 

COMMAND  DcJSRIPTIONS: 

LUP— LOADS  AN  ASCII  FILE  WITH  AN  "ADX  OR  CDX"  EXTENSION 

INTO  THE  CRAM  OF  THE  DX20'S  MICRO  PROCESSOR  STARTING  AT  LOCATION  0 
"CDX"  EXTENSIONS  ARE  USED  WHEN  SUB  FILES(.ADX)  ARE  COMBINED  TOGETHER 
TO  FORM  ONE  FILE. "ADX"  EXTENSIONS  CAN  BE  USED  FOR  SINGLE  FILES. 
EXAMPLE — LUP  FOO.FOKCR; 

WHERE  'TOO"  IS  THE  SU8FILE(.ADX)  WITHIN  THE  F01  FILE(.CDX) 

OR 
LUP  FOO(CR) 

LIR LOAD  IR  REGISTER  WITH  DATA 

EXAMPLE  LIR  1777?7(CR) 

LPC LOAD  PC  WITH  ADDRESS 

EXAMPLE  LPC  7777(CR) 

LWM LOAD  WORKING  MEMORY  WITH  DATA-377  AT  LOf.  200 

EXAMPLE  LWM  377,200(CR) 

LCR—LOAD  CRAM  WITH  DA TA-1 77777  AT  LOC.  100 
EXAMPLE  LCR  177777, lOO(CR) 

LAC — LOAD  AC  WITH  DATA-377  AT  LOC.  7 
EXAMPLE  LAC  377,7(CR) 

LCI — LOAD  CHANNEL  INTERFACE  WITD  DATA-377  TO  REG.  3 


EXAMPLE  LCI  377,3(CR) 
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LDP — LOAD  DATA  PATH  WITH  DATA-377  TO  REG.  3 
EXAMPLE  LDP  377,3(CR) 

LMB LOAD  MASSBUS  RE6ISTER-20  FROM  MICRO  PROCESSOR 

EXAMPLE  LMB  377,20(CR) 

RIR — READ  DATA  FROM  IR  REGISTER 
EXAMPLE  RIR(CR) 

RUM READ  WORKING  MEMORY  DATA  FROM  LOC.  200 

EXAMPLE  RWM  200(CR) 

RCR READ  CRAM  DATA  FROM  LOC.  100 

EXAMPLE  RCR  lOO(CR) 

RAC READ  AC  DATA  FROM  LOC.  7 

EXAMPLE  RAC  7(CR) 

RCI READ  CHANNEL  INTERFACE  REGISTER-4  DATA 

EXAMPLE  RCI  4(CR) 

RDP READ  DATA  PATH  INTERFACE  REGISTER-A 

EXAMPL"  ^DP  A(CR) 

RMS READ  MASSBUS  RE6ISTER-20  FROM  MICRO  PROCESSOR 

EXAMPLE  RMB  20(CR) 

XCR XCT  MICRO  CODE  INSTRUCTION  AT  LOC.  1 

EXAMPLE  XCR  KCR) 

XI XCT  lA'STRUCTION  IN  IR-200  =  MOVEI  BR 

EXAMPLE  XI  200(CR) 

ST START  MICRO  PROCESSOR  AT  LOC.  100 

EXAMPLE  ST  100(CR) 

SP STOP  MICRO  PROCESSOR 

EXAMPLE  SP(CR) 

RE RESET  DX20 

EXAMPLE  RE(CR) 

RDA — READ  DRIVE  REGISTERS  fROM-0  TO-37 
EXAMPLE  RDA  0,37(CrO 

LDR — LOAD  DRIVE  REGISTER-3  WITH  U7777 
EXAMPLE  LDR  177777, 3(CR) 

RPC — READ  THE  CONTENTS  OF  THE  PC 
EXAMPLE  RPC(CR) 

RDR — READ  DRIVE  REGISTER-4  FRC.V  MASSBUS  SIDE 
EXAMPLE  RDR  A(CR) 
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10.0    DX20  MICRO-PROCESSOR  INSTRUCTION  SET 


THIS  SECTION  CONTAINS  A  DETAILED  DESCRIPTION  OF  ALL  THE  INSTRUCTION 
MNEMONICS  USED  TO  PROGRAM  THE  DX20  MiCRO-PROCESSOR.  THE 
INSTRUCTIONS  ARE  DIVIDED  INTO  SIX  CATA60RIES: 

MEMORY  ADDRESS  CONTROL  INSTRUCTIONS 
DATA  TRANSMISSION  INSTRUCTIONS 
ARITHMETIC  OPERATION  INSTRUCTIONS 
LOGICAL  OPERATION  INSTRUCTIONS 
PROGRAM  CONTROL  INSTRUCTIONS 
SPECIAL  INSTRUCTIONS  AND  PSEUDO-OPS 

SYMBOLS  AND  ABBREVIATIONS  USED  IN  THIS  SECTION: 

VVV     REPRESENTS  AN  EXPRESSION  WHICH  CAN  BE  EVALUATED  TO  A  VALUE 
BETWEEN  -200(8)  AND  377(8).  THE  NUMBER  VVV  REPRESENTS  THE 
8-BIT  NUMBER  OBTAINED  BY  THE  LOGICAL  AND  OF  THE  VALUE  OF  THE 
EXPRESSION  AND  377(8). 

I      REPRESENTS  ONE  OF  THE  FOLLOWING  DESTINATION  DESCRIPTIONS: 

BR     THE  SPECIFIED  DESTINATION  IS  THE  BR  REGISTER. 

MEM     THE  SPECIFIED  DESTINATION  IS  THE  CURRENTLY  SELECTED 
MEMORY  LOCATION. 

BRSR    THE  SPECIFIED  DESTINATION  IS  THE  BR.  THIS  DESTINATION 
CAUSES  THE  BR  TO  SHIFT  RIGHT  ONE  BIT  POSITION  AND  LOAD 
Tm£  high-order  bit  OF  THE  BR  FROM  THE  LOW-ORDER  BIT 
POSITION  OF  THE  RESULT  SUPPLIED  TO  THE  DESTINATION. 

RETURN  THE  SPECIFIED  DESTINATION  IS  NOT  REALLY  A  D'STINATION 
AT  IL.  THE  RESULT  SUPPLIED  TO  THE  DESTINATION  IS  NOT 
^'•',.  INSTEAD,  AN  ENTRY  IS  POP'D  OFF  THE  STACK  ^ND  LOADED 
.^^».  TNE  PC.  THE  INSTRUCTION  ACT*"  LIKE  A  RETURN  INSTRUCTION 

:  if'.",   FIELD  IS  BLANK,  THE  REZIJI     SUPPLIED  IS  NO^  USED. 
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SEQ  00^^ 


AC 


EXP 
AA 


PC 
M 


REPRESENTS  THE  NAME  OF  ONE  OF  THE  EIGHT  ACCUMULATOR  REGISTERS 
ACO 
AC1 
AC2 
AC3 
AC4 
ACS 
AC6 
AC7 

REPRESENTS  AN  EXPRESSION  THAT  CAN  BE  EVALUATED  TO  A  VALUE  BETWEEN 
0  AND  37(8).   EXP  IS  USED  AS  A  NUMBER  TO  SELECT  EXTERNAL  REGISTERS. 

REPRESENTS  AN  ADDRESS  SPECIrlCATIGN,   THIS  SYMBOL   IS 
DESCRIBED  IN  THE  PROGRAM  CONTROL   INSTRUCTIONS  SECTION. 


ADR  REPRESENTS  AN  EXPRESSION  WHICH  CAN  BE  EVALUATED  TO  A  VALUE 

BETWEEN  0  AND  3777(8). 


REPRESENTS  THE  Z  FLAG  IN  THE  MICRO-PROCESSOR.    THIS  FLAG  CAN 
BE  SET  OR  CLEARED  AND  CAN  BE  TESTED  BY  SOME  INSTRUCTIONS. 

REPRESENTS   THE  C  FLAG  IN  THE  MICRO-PROCESSOR.    THIS  FLAG   CAN 
3E   SET  OR  CLEARED  AND  CAN  BE   TESTED  BY  SOME  INSTRUCTIONS. 
THE  VALUE  OF   C  IS   INTERPRETED  AS  A  000  IF   CLEAR  AND  A  001    IF 
SET.   WHEN  C    IS  USED  BY  AN   INSTRUCTION,   THE  VALUE  OF   C   AT 
THE   START  OF   THE   INSTRUCTION  IS  USED. 

IS  THE  12-BIT  PROGRAM  COUNTER  IN  THE  MICRO-PROCESSOR. 

REPRLbFNTi  AN  OPTIONAL  ARGUMENT  THAT  MAY  BE  USED   IN  MANY 
INSTRUCTIONS.   THIS   SYMBOL    IS  DESCRIBED   IN  THE  MEMORY 
ADDRESS  CONTROL  INSTRUCTIONS  SECTION. 


iiwiiniiji  liwiijiiiniiiiwaiiximw 
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SEQ  0015 


THE  LrfTf:5  PRODUCED  BY  THE  ASSEMBLER  DISPLAYS  THE  CONTENTS  OF  THE 
CRAM  E  MANY  GROUPS  OF  NUMBERS.  FOR  EXAMPLE: 


999  000052  0  002222  0  1  0  222 


LDBR 


222 


; COMMENT 


GROUP  1  (999)  IS  A  DECIMAL  LINE  NUMBER.  THESE  NUMBERS  INCREMENT 
SEQUENTIALLY  THROUGH  A  PROGRAM  LISTING. 

GROUP  2  (000052)  IS  THE  OCTAL  NUMBER  OF  THE  CRAM  LOCATION  BEING 
DISPLAYED. 

GROUP  3  (0)    IS  AN  OCTAL  NUMBER  DISPLAYING  THE  NUMBER  OF  THE  IK 

SECTION  OF  CRAM  IN  WHICH  THIS  LOCATION  RESIDES.  THE  FIRST 
IK  SECTION  IS  NUMBERED  0. 

GROUP  4  (002222)  IS  AN  OCTAL  NUHBER  REPRESENTING  THF  CONTENTS  OF  THE 
16  BITS  IN  THE  CRAM  LOCATION. 

THE  REMAINING  GROUPS  OF  NUMBERS  ARE  A  BREAKDOWN  OF  THE  FIELDS  WITHIN 
THE  16-BIT  INSTRUCTION.  IN  THE  FOLLOWING  DESCRIPTIONS  OF 
EACH  INSTRUCTION,  THE  16-BITS  ARE  DISPLAYED  IN  BINARY  AND 
THE  FIELDS  ARE  SHOWN  SEPARATED  BY  !  CHARACTERS: 


4.—^ — 4.™+— -+—-4.™+. 
!  0       0      0   !  0      0      1    ! 


.-+-..-4. — +-—+—+—+—-♦ — -> — 4—-+ 

00110010010! 
..4 — 4. — 4. — 4. — 4. — 4. — + — 4. — + — f 


THE  LISTING  DISPLAYS  EACH  GROUP  AS  AN  OCTAL  NUMBER: 
0  1  0  222 

AN  X  CHARACTER  IS  USED  IN  THE  BINARY  REPRESENTATION  TO  SHOW  THAT  A 
BIT  POSITION  MAY  BE  EITHER  A  0  OR  1 . 
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10.1    MEMORY  ADDRESS  CONTROL  INSTRUCTIONS 

LDMAR   VVV  LOAD  MEMORY  ADDRESS  REGISTER 

4. ^ — > — .+ — 4. — + — ^ — + — + — f — -+—+ — 4- — -+ — + — •♦• — •♦• 

!0   0   0!0   0   0!1   0!X   X   X   X   X   X   X   X! 
+ 4. — ^ — 4- — •♦• — f — -f — + — + — -► — + — + — -♦• — + — + — + — + 

THE  NUMBER  VVV  IS  LOADED  INTO  THE  LOW-ORDER  EIGHT  BITS  OF 
THE  MEMORY  ADDRESS  REGISTER.  THE  HIGH-ORDER  TWO  BITS  OF  THE 
MEMORY  ADDRESS  REGISTER  ARE  NOT  CHANGED. 

Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  NOT  CHANGED. 

LDMARX  VVV           LOAD  MEMORY  ADDRESS  REGISTER  EXTENSION  BITS 
4. 4. — -+— — f •►- — + "f- — -f— — f — -f— — f- — «► + + -f — •♦• — -f 

!O0   0I0   0O!0   1!XXXXXXXX! 
^ ^ — ^ — .► — ^ — ^ — ♦ — f — + — + — ♦ — ■»- — ♦ — + — "»• — -»• — -f 

THE  LOW-ORDER  TWO  BITS  OF  THE  NUMBER  VVV  IS  LOADED  1H(0   THE 
HIGH-ORDER  TWO  BITS  OF  THE  MEMORY  ADDRESS  REGISTER.  THE 
LOW-ORDER  EIGHT  BITS  OF  THE  MEMORY  REGISTER  ARE  NOT  CHANGED, 

Z  IS  SET  IF  VVV  =  377,  THEREWISE  Z  !S  CLEARED. 

C  IS  NOT  CHANGED. 

IMAR    VVV  INCREMENT  MEMORY  ADDRESS  REGISTER 

!OOOIOOO!1       11XXXXXXXX! 
^ ♦ — ♦ — i. — f — f — t- — f — f — -f—f — + — -+ — f — f — •♦• — f 

THE  CONTEwfS  OF  THE  MEMORY  ADDRESS  REGISTER  IS  INCREMENTED 
BY  ONE.  THE  RESULT  IS  PLACED  BACK  INTO  THE  MEMORY  ADDRESS 
REGISTER. 

Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  NOT  CHANGED. 
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SEQ  0016 
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THE  MEMORY  ADDRESS  REGISTER  CAN  BE  MODIFIED  BY  MANY  OTHER  INSTRUCTIONS 
AS  WELL.  THESE  INSTRUCTIONS  ARE  SHOWN  WITH  AN  M  ARGUMENT  IN  THE 
INSTRUCTION  DESCRIPTION.  M  MAY  BE  ONE  OF  THE  FOLLOWING: 

MAR    WHEN  MAR  APPEARS  IN  THE  ARGUMENT  POSITION  DENOTED  BY 
M,  THE  EIGHT-BIT  RESULT  OF  THE  INSTRUCTION  WHICH  IS 
INPUT  TO  THE  DESTINATION  WILL  ALSO  BE  LOADED  INTO 
BITS  7-0  OF  THE  MEMORY  ADDRESS  REGISTER. 

MARX    WHEN  MARX  APPEARS  IN  THE  ARGUMENT  POSITION  DENOTED 

BY  M,  THE  LOW-ORDER  TWO  BITS  OF  THE  EIGHT  BIT  RESULT 
OF  THE  INSTRUCTION  WILL  BE  LOADED  INTO  BITS  9-8  OF 
THE  MEMORY  ADDRESS  REGISTER  (THE  MEMORY  ADDRESS 
EXTENSION  BITS). 

I      WHEN  I  APPEARS  IN  THE  ARGUMENT  POSITION  DENOTED  BY 

M,  THE  MEMORY  ADDRESS  REGISTER  IS  INCREMENTED  BY  ONE. 

IF  THE  M  ARGUMENT  IS  LEFT  BLANK,  THE  MEMORY  ADDRESS 
REGISTER  IS  NOT  CHANGED. 

THE  MEMORY  ADDRESS  REGISTER  IS  CHANGED  AFTER  THE  INSTRUCTION  IS 
COMPLETED.  THEREFORE,  AN  INSTRUCTION  THAT  SELECTS  MEMORY  AS  A 
DESTINATION  AND  ALSO  INCREMENTS  THE  MEMORY  ADDRESS  REGISTER  WILL 
ALWAYS  MODIFY  THE  MEMORY  LOCATION  ADDRESSED  AT  THE  START  OF  THE 
INSTRUCTION.  THE  INCREMENT  WILL  ONLY  AFFECT  INSTRUCTIONS  EXECUTED 
AFTER  THE  CURRENT  ONE. 
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SEQ  0017 


DX20-V100  MAGNETIC  TAPE  SUBSYSTH  DIAGNOSTIC   (RH20) 


10.2         DATA  TRANSMr    ION  INSTRUCTIONS 


LDBR        VVV,W  LOAD  BR 

> + — •♦— — f 4- — "f — -»• — + — +-—■ ► — -f — -f — + — +' — + — •♦• — •♦• 

10      0       0!0      0       1!X       X!X       X       X       X       X       X       X       X! 

THE  NUMBER  VVV  IS  LOADED  INTO  THE  BR. 

Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  NOT  CHANGED. 


LDMEM   VVV,M 


LOAD  MEMORY 


10   0   Oil   0   0!X   X!X   X   X   X   X   X   X   X! 

THE  NUMBER  VVV  IS  LOADED  INTO  THE  CURRENTLY  ADDRESSED  MEMORY 

LOCATION. 
Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


NOP 


VVV 


NO  OPERATION 


!0   0   0!0   0   0!0   0!X   X   X   X   X   X   X   X! 
.j....^ — ^ — + + — -►-— + — — f- — -f — + — -f — ^ — "f — + — + — -f f 

Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 
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SEQ  0018 
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SEQ   0019 


MOVMEM  D,M  MOVE  MEMORY  TO  DESTINATION 

4. 4. — ^ — f 4. — .4. — + — -+ — 4. — 4. — 4- — •♦• — + — + — + — + — + 

!0   1   0!X   X   X!X   X!0   0   0   0!1   0   0   1! 
4. 4. — + — + — ^ — ^ — + — i — f — + — -f — •♦• — + — -f — -f — "♦• — ♦ 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

MOVED  TO  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  DATA  IN  MEMORY  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


MOVMEM     ACM 


MOVE  MEMORY  TO  AC 


!0       1       0!1       0       1!X       X!0       X       X       XI1       0       0       1! 

4. +— — f — ^ +— — »- — -»• — -f — + + — -♦• — ^ — + — + — -♦• — •♦■ — ^ 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

MOVED  TO  THE  SPECIFIED  AC. 
Z  IS  SET  IF  DATA  IN  MEMORY  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


MOVMEM  EXP,M 


MOVE  MEMORY  TO  EXTERNAL  REGISTER 


!0   1   0!0   1   X!X   X!X   X   X   X!1   0   0   1! 
> ^ — ^- — 4.— -4.™ ♦— -4. — -♦- — ♦«— -f- — "f — ■♦• — -f — -f — -f — + — + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

MOVED  TO  THE  SELECTED  EXTERNAL  REGISTER. 
Z  IS  SET  IF  DATA  IN  MEMORY  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


MOVB 


D,M 


MOVE  BR  TO  DESTINATION 


!0   1   1!X   X   X!X   X!0   0   0   0!1   0   0   1! 

4.— -4..— 4.-.-t 4. 4. — -4. — -4. 4. 4- -f + ^ -f — — f -f -f 

THE  CONTENTS  OF  THE  BR  IS  MOVED  TO  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  DATA  IN  BR  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


MOVB 


ACM 


MOVE  BR  TO  AC 


!0   1   1!1   0   1!X   X!0   X   X   X!1   0   0   1! 
4. 4. — 4. — 4——+ — -f— -f — "f — -f — —f — "f — •»■ — -f — -f — -♦• — -♦• — -f 

THE  CONTENTS  OF  THE  PR  IS  MOVED  TO  THE  SPECIFIED  AC. 
Z  IS  SET  IF  DATA  IN  BR  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 
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MOVB    EXP.M         MOVE  BR  TO  EXTERNAL  REGISTER 

4. + — 4. — 4. 4. — + — + — + — + — i — + — ^ — + + — + — -f — + 

:0   1   1!0   1   X!X   X!X   X   X   X!1   0   0   1! 
+ + — + — f 4. — + — + — f — + — + — + — + — + — •»• — + — + — + 

THE  CONTENTS  OF  THE  BR  IS  MOVED  TO  THE  SELECTED  EXTERNAL 

REGISTER. 
Z  IS  SET  IF  DATA  =  377,  OTHERWISE  2  IS  CLEARED. 
C  IS  NOT  CHANGED. 

MOV     AC,D,M         MOVE  AC  TO  DESTINATION 

!0   1   1!X   X   X!X   X!0   X   X   X!l   0   0   0! 
4- ^ — -►-—►- — -f — -+— — f — -f — + — -f — •♦• — + — •»• — + — + — -»• — ■♦■ 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  MOVED  TO  THE  SPECIFIED 

DESTINATION. 
Z  IS  SET  IF  THE  CONTENTS  OF  THE  AC  =  377,  OTHERWISE  Z  IS 

CLEARED. 
C  IS  NOT  CHANGED. 

DATI    EXP,D,M        DATA  IN  TO  DESTINATION 

4. — -4.. — ^-— 4- + +— -f + "f- — •♦• — + + + + — + — •♦• •♦■ 

!X   0   1!X   X   X!X   X!0   0   0   0!X   X   X   X! 
4. 4.. — "»•- — 4- — -♦-— 4— — »• — -f — -f- — -f— -f — -»• — -f — -f — + — + — + 

THE  CONTcNTS  OF  THE  SPECIFIED  EXTERNAL  REGISTER  IS  MOVED  TO 

THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  DATA  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

DATI    EXP,AC,M       DATA  IN  TO  AC 

4. f-— + — 4— —»•——»• — -f f— -f •► — + — + + + — "♦■ — + — ♦ 

!X   0   1!1   0   1!X   X!0   X   X   X!X   X   X   X! 

> 4. -f— -4- + ^ — ♦ — + — f * — "f — > — + -♦• — + — ■♦• — ■♦• 

THE  CONTENTS  OF  THE  SPECIFIED  EXTERNAL  REGISTER  IS  MOVED  TO 

THE  SPECIFIED  AC. 
Z  IS  SET  IF  THE  DATA  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

DATI    EXP,EXP,M      DATA  IN  TO  EXTERNAL  REGISTER 

4. >-«-4...-4. 4— — f — -f — •♦• — -f -f— -+ — + — ^ •♦• — -f — -f — f 

IX   0   110   1   X!X   X!X   X   X   X!X   X   X   X! 

4.— .f. — ♦  .— 4— — "f — -f— -+—-♦— -♦ f — ♦ — -f- — -f •►-—♦• — •♦" — f 

THE  CONTENTS  OF  THE  SPECIFIED  EXTERNAL  REGISTER  IS  MOVED  TO 

ANOTHER  EXTERNAL  REGISTER. 
Z  IS  SET  IF  THE  DATA  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 
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SEQ  0021 


10.3    ARITHMETIC  OPERATION  INSTRUCTIONS 

ADM     AC,D,M        ADD  MEMORY  TO  AC 

^ H> -f — •»• + — + — ♦ — + — + — + — + — + — + — -^ — ■♦• — "♦• — + 

10   1   0!X   X   X!X   X!0   X   X   X!0   0   0   0! 
^ — ^ — + — + — ^ — f — + — f — + — + — + — f — + — + — •♦• — •♦• — f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS 
PLACED  IN  THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

ADMR    ACM  ADD  MEMORY  TO  AC  AND  RETURN  TO  AC 

^ 1 -f— --f — -+..«+-— ^—4. — ^ — -^ — -+ ♦ + — + — + — + + 

10   1   0!1   0   1!X   X!0   X   X   X!0   0   0   0! 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS 

PLACED  IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  OF  THE  ADDITION  =  377,  OTHERWISE  Z  IS 

CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

ADB     AC,D,M        ADD  BR  TO  AC 

^. ^ + — 4. + ^ — -.». i + — -♦- — t 4- — "f -»•- — f — + ^ 

•0   1   1!X   y   X!X   X!0   X   X   X!0   0   0   0! 
^ — 4. + — ^ — -f — ^ — ^ — f— — ». — «♦• — -f — + — -♦• — + — + — -f — f 

THE  CONTENk  of  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE 

SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED 

DESTINATION. 
Z  IS  SET  IF  THE  RESULT  OF  THE  ADDITION  =  377,  OTHERWISE  Z  IS 

CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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SEQ  Q022 


ADBR    ACM  ADD  BR  TO  AC  AND  RETURN  TO  AC 

+ — ^ 4. — ^ — ^ — ^ — 4. — + — +— + — -»• — + — + — + — + — + — -f 

!0   1   1'1   0   1!X   X!0   X   X   X!0   0   0   0: 
^ + 4. —   ,f f f — +™-f -^ — •»- y — -f •♦• + — +- — »- 

THE  CONTENTS  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 

2  IS  SET  IF  THE  RESULT  OF  THE  ADDITION  =  377,  OTHERWISE  Z  IS 
CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


ADMC 


AC,D,M 


ADD  MEMORY  TO  AC  WITH  CARRY 


!0   1   OIX   X   X!X   X!0   X   X   X!0   0   0   1! 
+ — ^ ^ — -^- — 4. — -f— — |. — -♦-— + — -«»• — + — f — --f — i— -+ — + — + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED  AC  AND  THE  VALUE  OF 
C.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

ADMCR       ACM                         ADD  MEMORY  TO  AC  WITH  CARRY  AND  RETURN  TO  AC 
,».- — t™<f— -> — — ♦• f-— ♦— -♦ -f-— f — +— -♦ — -f -»- + — +- — f 

!0       1       0!1       0       1!X       X!0       X       X       X!0       0       0       1! 
^-— +-—.».. — >— -♦ f — -t- — •»•—-► •►-— -f- — + — -♦ -f + — -^ — + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
ADDED  Tu  THE  CONTENTS  OF  THE  SPECIFIED  AC  AND  THE  VALUE  OF 
C.   THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

ADBC    AC,D,M        ADD  BR  TO  AC  WITH  CARRY 

>— -+- — >...4.-— .».-— i- — ♦- — ^ — f-.-f-.-4 "f— — f f -♦• — •♦■ — f 

!0   1   1!X   X   XIX   X!0   X   X   X!0   0   0   1! 
4.- — f— -f— -4.— -+ — .f—^.—-^.™ f— -+ — ^ — -f-— + — "f — f — -f — f 

THE  CONTENTS  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED  IN 
THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


1 
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SEQ  0023 


ADBCR   ACM  ADD  BR  TO  AC  WITH  CARRY  AND  RETURN  TO  AC 

10   1   1!1   0   1!X   X!0   X   X   X!0   0   0   1! 

+ — + — 4. — 4. — 4. — + — + — 4- — + — + — •► — •♦• — »• — -f — + — + — •»• 

THE  CONTENTS  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED 
AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


INC 


AC,D,M 


INCREMENT  AC 


!0   1   1!X   X   X!X   X!0   X   X   X!0   0   1   1! 
+ — 4. 4. — + — + — + 4. — 4- — -I- — + — •♦• — "f — > — -»• — + — "♦• — -♦• 


THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  ADDED  TO  A  001.  THE 
RESULT  IS  PLACED  I.-^  THE  SPECIFIED  DESTI^iATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  '^  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


INCR 


ACM 


INCREMENT  AC  AND  RETURN  TO  AC 


!0       1       111       0       1!X       X!0       X       X       X!0       0       1       1! 
4.™4. — i— + — -I— — f- — "f — -<f — -f— ♦ — ♦ — -♦ — -f — -f — -f — — f — -f 

THE  CONTENTS  OF  i   l^eciFIED  AC  IS  ADDED  TO  A  001.  THE 

RESULT  IS  PLACED    THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  ir  TKL  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

ADC     AC,D,M         ADD  CARRY  TO  AC 

4.«..4. 4.— -4.— +.— 4.— -f — -4. — .4.™ 4.«— 4.™ 4. 4. + + ■¥ -f 

10   1   1!X   X   X!X   X!0   A   X   X!0   1   0   0! 

+-..4. 4.— +—-4. 4. 4.- — 4— — f + •♦• -f— — f + + -¥ + 

THE  VALUE  OF  C  IS  ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED 
AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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SEQ  0024 


ADCR    ACM  ADD  CARRY  TO  AC  AND  RETURN  TO  AC 

+ — + + — ^ — \ — \ + — •♦■ — + — -f — ■► — -♦• — + — + — "♦• — + — + 

!0   1   1!1   0   1IX   X!0   X   X   X!0   1   0   0! 
^ — -4. — 4>™'i- — + — "f — +—4-— f- — +-— +™f — + — + — \ — + — -4- 

THE  VALUE  OF  C  IS  ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED 

AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


TSM 


AC,D,M 


TWO'S  COMPLIMENT  SUBTRACT  MEMORY  FROM  AC 


10   1   0!X   X   X!X   X!0   X   X   XII   1   1   0! 
4. — + .». — ♦ — + — ♦ + — ♦ — -I- — ^ — ♦ — + — •♦• — -f + — + — -♦• 

THE  TWO'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED 
DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


TSMR 


ACM 


TWO'S  COMPLIMENT  SUBTRACT  MEMORY  FROM  AC  AND 
RETURN  TO  AC 


!0   1   0!1   0   1!X   X!0   X   X   X!1   1   1   0! 
> — ^ ^-— +...4.™ ^-— ♦- — ^-— ^™^-. -f — + — -f — -+ — •»•— — f — f 

THE  TWO'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRRENTLY 
ADDRESSED  MEMORY  LOCATION  .S  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


TSB 


AC,D,M 


TWO'S  COMPLIMENT  SUBTRACT  BR  FROM  AC 


!  0   1   1  !  X   X   X  !  X   X  !  0   X   X   X  !  1   1   1   0  ! 
^-— ^ f + — -♦- — ^«— f.— ^.—4.— -.+™f™t-«-f™f— -f — -+™f 

THE  TWO'S  COMPLIMENT  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF 
THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED 
DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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SEQ  0025 


TSBR 


ACM 


TWO'S  COMPLIMENT  SUBTRACT  BR  FROM  AC  AND 
RETURN  TO  AC 


ID   1   111   0   1!X   XIO   X   X   X!l   1   1   0! 
^ — + 4. — ^ — -+ — +— -f — —1— — + — +-— -f — -+- — -♦• — "f — + — + — * 

THE  TWO'S  COMPLIMENT  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF 
THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THi:  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


GSM 


AC,D,M 


ONE'S  COMPLIMENT  SUBTRACT  MEMORY  FROM  AC 


!0   1   OIX   X   X!X   X!0   X   X   X!1   1   1   1! 
+ — + f — 4. — ^ — 4- + — -♦• — •»• — -f — ♦ — -f — -f — + — + — + — -f 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED 
DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


OSMR 


ACM 


ONE'S  COMPLIMENT  SUBTRACT  MEMORY  FROM  AC 
AND  RETURN  TO  AC 


•0   1   0!1   0   1!X   X!0   X   X   X!1   1   1   1! 
^...^ — .f— «^- — <f-— f- — f.— ^—+— •♦—-♦-— ^ — +— — f- — «f — -f—  > 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

OSB     AC,D,M        ONE'S  COMPLIMENT  SUBTRACT  BR  FROM  AC 
^....♦- — f™.».— -♦—-^—-^—♦—-♦—♦— —►—♦—♦-— 4— -"♦• — -+ — "f 

•0   1   1!X   X   X!X   X!0   X   X   X!l   1   1   1! 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS  ADDED  TO 
THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN 
THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377.  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  If   THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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SEQ  0026 


OSBR 


ACM 


ONE'S  COMPLIMENT  SUBTRACT  BR  FROM  AC  AND 
RETURN  TO  AC 


!0   1   III   0   1!X   X!0   X   X   X!1 

4- — +- — ^ > 4. — .4.- — 4. 4- +-— f +—->—+ 


111! 
♦ + + 


THE  ONE'S  COMPLIMENT  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF 
THE  SPECIFIED  AC  THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  REb  VT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


DEC 


AC,D,M 


DECREMENT  AC 


10   1   1!X   X   XIX   X!0   X   X   X!0   1   1   1! 
^ — 4 ♦ — + — +-—4.™^— -+-—♦-— ♦- — +— «+™^-— +-—+-—+— -f 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  ADDED  TO  A  377.  THE 
RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITiuN  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


DECR 


ACM 


DECREMENT  AC  AND  RETURN  TO  A'' 


10       1       1!1       0       1IX       X!0       X       X       X!0       1       1       1! 

4. — + +— -f — ■♦• — +.— ^—- +-— ♦- — +.— ^— -+ — ♦-— + — •».- — + — -► 


THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  ADDED  TO  A  Wf 

RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  ir   THE  RESULT  =  377,  OTHERWISE  Z  IS  Ci.ffAr'  . 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  JF  \.^c 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 


HE 


OSMC    AC,D,M 


ONE'S  COMPLIMENT  SUBTRACT  MEMC'JY  FROM  AC 
WITH  CARRY 


10   1   0!X   X   X!X   X!0   X   X   X!0   0   1   0! 
^....^ — ^ — ^—-+-—4.— -4 — ^—-4..— 4--— f" — + — -»>- — ^ — ■♦- — i- — -f 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRES'.ED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED  IN 
THE  jPECIFIED  DESTINATION. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 

C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 
HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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OSMCR   ACM  ONE'S  COMPLIMENT  SUBTRACT  MEMORY  FROM  AC  WITH 

CARRY  AND  RETURN  TO  AC 
+ — ^ + — + — i + — i + — i ^ — ^ — + + + + — + + 

1010!101!XX!0XXX!0010' 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 

ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 

SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED  IN 

THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

OSBC    Ar,D,M        ONE'S  COMPLIMENT  SUBTRACT  BR  FROM  AC  WITH 

CARRY 
^ ^--  ,+ ^ f ^ — .f ^. — .►» — f f -i- + -»•——♦• -f f 

!0l1!XXX!XX!0XXX!0010! 
^ — + — ^ — ^ — ^4. — + — 4- — •♦• — -f — f — ♦ — -f — -f — -♦■ — + — -f — "f 

THE  ONE'S  COMPLIMENT  OF  THE  BP  IS  ADDED  TO  THE  CONTENTS  OF 

THE  SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED 

IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 

OSBCR   ACM  ONE'S  COMPLIMENT  SUBTRACT  BH   FROM  AC  WITH 

CARRY  AND  RETURN  TO  AC 

I  0   1   1  I  1   J   1  !  X   X  !  0   X   X   X  !  0   0   1   0  ! 
+. — + — + — + — +— -4— -^.-—f— -4— -4 — +— -f-— 4— «+-— f— -4 — f 

THE  ONE'S  COMPLIMENT  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF 

THE  SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  PLACED 

IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  IF  THE  ADDITION  GENERATES  A  CARRY  OUT  OF  THE 

HIGH-ORDER  BIT,  OTHERWISE  C  IS  CLEARED. 
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^0A        LOGICAL  OPERATION  INSTRUCTIONS 

SHL     AC,D,M         SHIFT  AC  LEFT 

f ^ — ^ + — ^ + — 4. ^ + — + ^ ^ 4 "f + -»• — -»• 

!  0   1   1  !  X   X   X  !  X   X  !  0   X   X   X  !  0   1   0   1  ! 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  SHIFTED  LEFT  ONE  BIT 

POSITION.  THE  LOW-ORDER  BIT  OF  THE  RESULT  IS  CLEARED. 

THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  ALWAYS  CLEARED. 
C  IS  SET  TO  THE  VALUE  SHIFTED  OUT  OF  THE  HIGH-ORDER  BIT 

POSITION. 

SHLR         ACM  SHIFT  AC  LEFT  AND  RETURN  TO  AC 

4. 4. — ^ — -^— -+- — ^ — -+ 1 — --f—.-f — — f •♦• -♦• — -f •»• -f — ■»• 

!011!101!XX!OXXX!0101I 
i. + — «f™+- — .j.™^— -4.— -♦—♦ — — f — •♦• — -f— — f- — + — + — -f — •♦• 


THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  SHIFTED  LEFT  ONE  BIT 
POSITION.  THE  LOW-ORDER  BIT  OF  THE  RESULT  IS  CLEARED. 
THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  ALWAYS  CLEARED 

C  IS  SET  TO  THE  VALUE  SHIFTED  OUT  OF  THE  HIGH-ORDER  BIT 
POSITION. 

ROTL    AC,D,M         ROTATE  AC  LEFT 

10   1   1!X   X   X!X   X!0   X   X   X!0   1   1   0! 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  SHIFTED  LEFT  ONE  BIT  POSITION. 

THE  LOW  ORDER  BIT  OF  THE  RESULT  IS  SET  TO  THE  VALUE  OF  C. 

THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  i^ESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  SET  TO  THE  VALUE  SHIFTED  OUT  OF  THE  HIGH-ORDER  BIT 

POSITION. 

ROTLP       ACM  ROTATE  AC  LEFT  AND  RETURN  TO  AC 

f. +-— ♦ — -4 -».- — 4— .f-—.f«— +- — + — -4. — -4 •♦— — f ■»- r -f 

!0       1       1:1       0       1IX       X!0       X       X       X!0       1       1       0! 
4. + — A- — f — -+«.-f.— 4™ f— -♦ — > — + — f — -♦ — f — 4 f — -f 


THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  SHIFTED  IZH   ONE  BIT 
POSITION.  THE  LOW-ORDER  BIT  OF  THE  RESULT  IS  SET  TO  THE 
VALUE  OF  C.  THE  RESUl  T  IS  PLACED  W   THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377.  OTHERWISE  Z  IC  CLEARED. 

C  IS  SET  TO  THE  VALUE  SHIFTED  OUT  OF  THE  HiGH-ORDER  BIT 
i-CSITION, 
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SHR  VVV.M  SHIFT  BR  RIGHT 

IO00!110IXXIXXXXXXXX! 

THE  CONTENTS  OF  THE  BR  IS  SHIFTED  RIGHT  ONE  BIT  POSITION. 

THE  RESULT  IS  PLACED  IN  THE  BR.  BR  BIT  7  IS  SET  TO  THE 

VALUE  OF  THE  LOW-ORDER  BIT  POSITION  OF  VVV. 
Z  IS  SET  IF  VVV  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LANDM   AC,D,M         LOGICALLY  AND  MEMORY  WITH  AC 

4. 4. f 4. 4. 4. 4- -»• -f 4- ■»• -f + + '♦' •»• f 

!010!XXX!XX!OXXX!1011! 

4. 4. 4. 4. 4. \ 4> -f -f -f ♦ -♦■ ♦ -f ••• + "f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

LOGICALLY  ANDED  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC. 

THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LANDMR  ACM  LOGICALLY  AND  MEMORY  WITH  AC  AND  RETURN  TO  AC 

4..— 4.-.-4. — -4.^ — 4.™4.™4.« — 4. — -4—-+ 1— 4— — -f +— — f + f 

!010!101!XX!OXXX!1011! 

4.™4. 4. — .4..  .-4.— .4.™ 4.™ 4- •»•-—«► ♦— — ♦• -f + + -f f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

LOGICALLY  ANDED  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC. 

THE  RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  ir  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LANDB   AC,D,M         LOGICALLY  AND  BR  WITH  AC 

4..-.4. 4. 4— — f 4- -f 4— — f 4- — -4- 4- — -4- 4- 4- 4- 4- 

!011!XXX!XXIOXXX!1011! 

4.- 4. 4. 4...-4.™4. — .4.-.-4.. — 4..— 4.™ 4...-4.-— 4.— -4. f 4. f 

THE  CONTENTS  OF  THE  BR  IS  LOGICALLY  ANDED  WITH  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  PLACED  U   THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 
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LANDBR  ACM  LOGICALLY  AND  BR  WITH  AC  AND  RETURN  TO  AC 

1  0   1   1  !  1   0   1  !  X   X  !  0   X   X   X  I  1   0   1   1  ! 

THE  CONTENTS  OF  THE  BR  IS  LOGICALLY  ANDED  WITH  THE  CONTENTS 

OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LORM    AC,D,M         LOGICALLY  OR  MEMORY  WITH  AC 

4. ^ — .^ -f— — f — "♦■ +-— 4— — f -f— — f — •♦■ — -+ f -♦• — ^ -»• 

!010!XXX!XX!OXXX!1100! 
^ ^ — 4. — 4. — -•►—-+ — -f — -♦ — "I- — — f — -f- — -f — +- — + — •f-—' ► — f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 

RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LORMR   ACM          LOGICALLY  OR  MEMORY  WITH  AC  AND  RETURN  TO  AC 
4. 4. — 4. — .4. 4. — 4. 4— — ►- — «►-—•► — — f-—- ♦• + -f -f — -► — ♦ 

!010!101!XX!OXXXI1100! 

4.- 4—-+ — -♦-— + •♦• — -4— —»•- — 4.— -4.-4.— -4- •»—— f -f — -f — -f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 

RESULT  IS  PLACED  IN  THE  AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  lHANGED. 

LORB    AC,D,M         logically  OR  BR  WITH  AC 

4.. — 4. 4— — ♦• "f -f-—- f -f ♦-—-♦• f — —f— -• f -f •^ — •♦■ * 

!O11!XXX!XX!0XXXI1100! 
4. 4 — 4. — .4. — -4.™ 4.™ 4. — 4— — •♦• — -f — •♦• — ♦ — 4 — 4 — + — -f 

THE  CONTENTS  OF  THE  BR  IS  INCLUSIVE-OR'D  WITH  THE  CONTENTS 

OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE 

SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 
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LORBR   ACM  LOGICALLY  OR  BR  UITH  AC  AND  RETURN  TO  AC 

+ + — ^ — + — 4- — •► — -f •♦• — ♦ — -f — •♦• — •»• — -t- — "♦- "♦• — "»■ — •♦• 

!011!101!XX!OXXX!1100! 
^ — f — ^ — 4- — ^ — ^ — 4- — ♦ — ♦ — -f — + — -f — + — + — -♦■ — + — + 

THE  CONTENTS  OF  THE  BR  IS  INCLUSIVE-OR'D  WITH  THE  CONTENTS 

OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  AC. 

Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C   IS  NOT  CHANGED. 

LORCM       AC,D,M  LOGICALLY  OR  THE  COMPLIMENT  OF  MEMORY  WITH  AC 

I010IXXX!XX!0XXX!1010I 

^ 4. — «4.-.-4.— .^...4.™ 4.™ 4.™ ♦-—4.-— 4— 4—— »•- — ♦•- — + -I—— f 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED 

MEMORY  LOCATION  IS  INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE 

SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LORCMR  ACM  LOGICALLY  OR  THE  COMPLIMENT  OF  MEMORY  WITH  AC 

AND  RETURN  TO  AC 

I010!101!XX!OXXX!1010I 
^-— f — ^- — + — +.— +— -f— -f. — -f— «► — -f— — f — -+ — +— — + — •♦• — + 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENLTY 

ADDRESSED  MEMORY  LOCATION  IS  INCLUSIVE-OR'D  WITH  THE 

CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE 

AC. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 

LORCB   AC,D,M        LOGICALLY  OR  THE  COMPLIMENT  OF  BR  WITH  AC 
^- — + •► — 4.— .^—.+—-f-—^—-f-— >-.->«— f ♦ — 4 + + — + 

!011!XXX!XX!OXXX!1010I 

4..— 4..«-4. f- — 4. ♦-— f- — 4— .f— -t 4- -f — -+-—«»• -♦• •♦■ f 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS 

INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 

RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 
Z  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  Z  IS  CLEARED. 
C  IS  NOT  CHANGED. 


t 
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LORCBR  ACM 


LOGICALLY  OR  THE  COMPLIMENT  OF  THE  BR  WITH  AC 
AND  RETURN  TO  AC 


!0   1   1:1   0   1!X   X!0   X   X   X!1   0   1   01 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS 

INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  IS  PLACED  IN  THE  AC. 

2  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  2  IS  CLEARED. 

C  IS  NOT  CHANGED. 


LXORM       AC,D,M 


LOGICALLY  XOR  MEMORY  WITH  AC 


10      1       0!X       X       X!X       X!0       X       X       X!1       1       0       1! 
+ ^ — + — > + — ^ — ^ ^ — ♦ — + — ^ — ♦ ♦ — + — + — -♦• — + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
EXCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  IS  PLACED  IN  THE  SPECIFIED  DESTINATION. 

2  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  2  IS  CLEARED. 

C  IS  NOT  CHANGED. 


LXORMR  ACM 


LOGICALLY  XOR  MEMORY  WITH  AC  AND  RETURN  TO  AC 


!0   1   0!1   0   1!X   X!0   X   X   XII   1   0   1! 
+ + — + — -4— — ^.- — ^ — ^-— ^...-.f — ^ — + — f- — ♦- — ♦ — +- — ^ — f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
EXCLUSIVF-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  15  PLACED  IN  THE  AC. 

2  IS  SET  IF  THE  RESULT  =  377,  OTHERWISE  2  IS  CLEARED. 

C  IS  NOT  CHANGED. 


LXORB       ACD,M 


LOGICALLY  XOR  BR  WITH  AC 


•0      1        1!X       X       X!X       X!0       X       X       XII       1       0       II 

THE  CONTENTS  OF  THE  BR  IS  EXCLUSIVE-OR'D  WITH  THE  CONTENTS 
OF  THE  SPECIFIED  AC.  THE  RESULT  IS  PLACED  IN  THE 
SPECIFIED  DESTINATION. 

2  ;S  SET  IF  THE  RESULT  =  377,  OTHERWISE  2  IS  CLEARED. 

C  IS  NOT  CHANGED. 


LXORBR     ACM 


LOGICALLY  XOR  BR  WITH  AC  AND  RETURN  TO  AC 


10       1        111       0       1IX       XIO       X       X       XII       1       0       II 
^«-.f — -> — .f f.—f— -f—f — "f-— "f- — f-.-i—  .4™f-.-f — -f- — f 

THE  CONTENTS  OF  THE  BR  IS  EXCLUSIVE-OR'D  WITH  THE  CONTENTS 

OF   THE  SPECIFIED  AC.    THE  RESULT   IS  PLACED  IH  THE  AC. 
2  IS  SET  IF   THE  RESULT  =  377,   OTHERWISE  2   IS  CLEARED. 
C  IS  NOT  CHANGED. 
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10.5    PROGRAM  CONTROL  INSTRUCTIONS 


THE  FOLLOWING  IS  A  LIST  OF  THE  INSTRUCTIONS  THAT  CAN  ALTER  THE  PC. 
ALL  THE  INSTRUCTIONS  ALTER  THE  PC  ACCORDING  TO  AN  A'RGU.'^ENT  AA  WHICH 
IS  DESCRIBED  LATER. 


JMP 


AA 


JUMP 


!  1   X   X  !  0   0   0  ! 
+ 4. — + — ^ ^ — + — +. 


UNCONDITIONALLY  LOAD  THE  PC  AS  SPECIFIED  BY  AA. 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


I 


JMPBO   AA 


JUMP  ON  BRO 


II   X   X  !  0   1   0  I 
^- — ^ + — + — -f 4. — 4.. 


I 


IF  BIT  0  IN  THE  BR  IS  A  ONE,  LOAD  THE  PC  AS  SPECIFIED  BY  AA. 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


JMPBA   AA 


JUMP  ON  BR4 


11   X   X  I  0   1   1  ! 

+- — ^ + — + — -+ 4. — f. 


I 


IF  BIT  A  i.\'  THE  BR  IS  A  ONE.  LOAD  THE  PC  AS  SPECIFIED  BY  AA, 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


JMPB7   AA 


JUMP  ON  BR7 


!  1   X   X  !  1   0   0  ! 
4.— > — ♦ — + — f-— t— -f. 


I 


IF  BIT  7  IN  THE  BR  IS  A  ONE,  LOAD  THE  PC  AS  SPECIFIED  BY  AA, 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


JMPC 


AA 


JUMP  ON  C 


II   X   XII   0   1  : 
^ f ^— •>— -4.- — 4.- — f. 


IF  C  IS  SET,  LOAD  THE  PC  AS  SPECIFIED  BY  AA. 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 
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JMPZ    AA  JUMP  ON  Z 

!  1   X   X  I  1   1   0  1 

4. + 4...-^— -+ — 4. — f — f — 4- — -f- 


••f — +• 


I 


IF  Z  IS  SET,  LOAD  THE  PC  AS  SPECIFIED  BY  AA. 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


JMPSUB     AA 


JUMP  TO  SUBROUTINE 


11       X       X   !    1       1       1    ! 


I 


UNCONDITIONALLY  PUSH  THE  CURRENT  CONTENTS  OF  THE  PC  ONTO  THE 

STACK  THEN  LOAD  THE  PC  AS  SPECIFIED  BY  AA. 
Z  IS  NOT  CHANGED. 
C  IS  NOT  CHANGED. 


JMPI 


AA 


JUMP  TO  SUBROUTINE  ON  INTERRUPT 


!  1   X   X  !  0   0   1  ! 
4. 4. + — 4.- — 4. + — -f. 


I 


IF  ANY  INTERRUPT  CONDITION  IS  ACTIVE,  PUSH  THE  CURRENT 
CONTENTS  OF  THE  PC  ONTO  THE  STACK  THEN  LOAD  THE  PC  AS 
SPECIFIED  BY  AA. 

Z  IS  NOT  CHANGED. 

C  IS  NOT  CHANGED. 

THE  FOLLOWING  IS  M  DESCRIPTION  OF  HOW  THE  ARGUMENT  AA  IS  USED  TO 
LOAD  THE  PC  IF  THE  JUMP  CONDITION  IS  SATISFIED  IN  THE  ABOVE 
INSTRUCTIONS.  THE  INSTRUCTION  MNEUMONIC  JMPXX  IS  USED  TO  DENOTE  ANY 
OF  THE  ABOVE  INSTRUCTIONS  THAT  REQUIRE  AN  AA  ARGUMENT.  ADR  IS  USED 
TO  REPRESENT  THE  VALUE  OF  ANY  EXPRESSION  THAT  IS  BETWEEN  0  AND 
3777(8).  IF  ADR  IS  NOT  SPECIFIED  IN  THE  INSTRUCTION,  THE  CONTENTS 
OF  THE  PC  IS  USED. 

JMPXX   ADR 

4 4.— -f-— 4.™4- — 4— ->f-— "f — -4— — f — f — — f™+ •♦• + + — -f 

!100!XXXIXXXXXXXXXX! 

^«-.^-— 4.. — 4. — -4— -4- — -4— — 4—— 4- — 4- 4— —4- 4- 4- 4- 4- 4 

BITS  9-0  OF  ADR  ARE  LOADED  INTO  BITS  9-0  OF  THE  PC.  PC  BITS 
11-10  ARE  NOT  CHANGED,  THEREFORE  THIS  INSTRUCTION  CANNOT 
JUMP  OUT  OF  A  IK  SECTION  OF  CRAM.  THIS  INSTRUCTION  REQUIRES 
THAT  ADR  BE  SPECIFIED. 
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SEQ  0034 
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JMPXX   aACADR 

+ — + + — + — + — + — + — -+ — •»•— + — + — -♦■ f — •♦• — + — + — ■♦• 

!111!XXX!XX!0XXX!1000! 
> — + ^ — + — f — + — ^ + — + — + — + — + •♦• — ■♦—-+- — -f- — f 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  LOADED  INTO  BITS  7-0  OF 
THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE 
PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aMEM.ADR 


!1   1   0!X   X   X!X   XII   0   X   X!1   0   0   11 
4.—.+ + — + — + — 4. — + + — f — ♦ — + — + -f — + — -+ — -f — + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  11-8  OF  ADR  ARE  LOADED 
INTO  BITS  11-8  OF  THE  PC. 


JMPXX   aBR.ADR 


!1   1   1IX   X   X!X   X!1   0   X   X!1   0   0   1! 
^ — +.-«+-.-♦-.-> — f — ♦ — + — +.-«^.— -4.™^ — ^ — + — + — + — + 

THE  CONTENTS  OF  THE  BR  IS  LOADED  INTO  BITS  7-0  OF  THE  PC. 
BITS  11-8  OF  ADR  ARE  LOADED  INTO  BITS  11-8  OF  THE  PC. 


JMPXX       aAC+1 ,ADR 


!1       1       1!X       X       X!X       X!0       X       X       X!0       0       1       II 
^- — + 4.. — + — > ^ — •♦——♦• -f -f — -f — •♦■ -f f •♦• — -f f 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  ADDED  TO  A  001.  THE 
RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED. 


JMPXX   aAC-1 ,ADR 


II       1       1IX       X       XIX       XIO       X       X       XI   0       1        1       II 
^ — .^.«.>«.-^-. -^-. -4.— .^— -4.™ ^. — f-— ♦•— ^ 4—     — + — -^ f 

THE  CONTENTS  OF   THE  SPECIFIED  AC   IS  ADDED  TO  A  377.    THE 
RESULT  IS  LOADED   INTO  BITS  7-0  OF   THE  PC.   BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF   THE  PC.   PC  BITS  11-10  ARE  NOT 
CHANGED. 

JMPXX       aAC^CADR 

.».— -f— 4- — "f— -♦ — -•► — •»■- — -f — -<f — — f — —♦• — -► — -f <f— — ♦• — -+ — — f 

11   1   1  I  X   X   XIX   XIO   X   X   XIO   1   0   01 
^-..f.—f-— f— -♦ — f — f — ^ — ♦ — ^ — -f — 4" — -f — -f — -f — -f — "f 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  ADDED  TO  THE  VALUE  OF 
C.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8 
OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10 
ARE  NOT  CHANGED. 
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JMPXX   a2*AC,ADR 

^ — ^ > — ^ — ^ — + — -f — -♦ — "f — f — ♦ — -► — + — + — -»• — + — ^ 

II   1   1!X   X   X!X   X!0   X   X   X!0   1   0   1! 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  MULTIPLIED  BY^TWO.  THE 
RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED 

JMPXX   a2*AC+C,ADR 

,|. 4. 4. — -4. — + 4.- — f + — + + 4. 4- «► "f + — * — f 

II   1   1!X   X   XIX   XIO   X   X   XIO   1   1   01 

4. 4. 4. + — 4. 4. ^ + — •»• -f -f — + — + + + + •♦• 

THE  CONTENTS  OF  THE  SPECIFIED  AC  IS  MULTIPLIED  BY  TWO,  THEN 
ADDED  TO  THE  VALUE  OF  C.  THE  RESULT  IS  LOADED  INTO  BITS  7-0 
OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE 
PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC-^MEM^ADR 

>-.-4. — -4.™4.«— 4.— .4.™ 4— — 4- + + ♦ — -4- 4- •♦- + + + 

II   1   OIX   X   XIX   XIO   X   X   XIO   0   0   01 

^ 4. 4.— -4.™4.— -4. 4. 4— —4- 4— —4— -4- 4— — 4— — 4— — f + 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS 
LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED 
INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC+BR,ADK 

^ 4— —4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- + 4- f 

II   1   IIX   X   XIX   XIO   X   X   XIO   0   0   01 

^ + 4. 4. — -4. 4— -4- 4- 4— — 4- — -4- 4- 4- 4- 4- 4- 4- 

THE  CONTENTS  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE 
PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC 
tilTS  11-10  ARE  NOT  CHANGED. 
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SEQ  0037 


JMPXX   iAC^MEM+CAOR 

4. — ^ ^ — ^ — ^ — ^ — + — ^ — ^ — ♦ — + — ^ — + — -I- — + — "f — >♦• 

!1   1   0!X   X   X!X   XIO   X   X   X!0   0   0   1! 
+ — 4. 4. — 4. — + — + — 4- — «► — + — + — ■♦• — + — + — -f — + — -»■ — — f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
ADDED  TO  THE  CONTENTS  OF  THE  SPECIFIED  AC  AND  THE  VALUE  OF 
C.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8 
OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10 
ARE  NOT  CHANGED. 

JMPXX   aAC^-BR+CADR 

4. — + + 4. — ♦ 4- — -f ■♦• f ^ "f — ■► -♦• + + — -f ^ 

II       1       1!X       X       X!X       XIO       X       X       XIO       0       0       II 
4.- — 4——+ — -f — "f — -"f-— + — -f — -f — -f— — ♦• — + — ^ — + — •♦• — -f — f 

THE  CONTENTS  OF  THE  BR  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  LOADED  INTO 
BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS 
9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC+CMEM^-CADR 

4....4. 4. 4— ->»• -f- — +—-• f +- — 'f—'f- — ■»■—-► "♦• -f — + f 

II   1   OiX   X   XIX   XIO   X   X   XIO   0   1   01 

> 4. 4. 4. 4. 1 4. 4. f 4- ♦ "f — -♦• — -f- — ■»• — "f — -■♦• 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE  RESULT  IS  LOADED  INTO 
BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS 
9-8  OF  The  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC-^CBR+CADR 

+ — -4. +— — f f •♦• -^ -f f -f ^ -f -f -f -f -f + 

II       1       1IX       X       XIX       XIO       X       X       XIO       0       1       01 
4....4. — -4— — ♦• — ♦-— + — — f "f — -f •♦• -f — -♦• -f •♦• -f -f + 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS  ADDED  TO 
THE  CONTENTS  OF  THE  SPECIFIED  AC  AND  THE  VALUE  OF  C.  THE 
RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED. 
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SEQ  0038 


JMPXX   aAC-MEM,ADR 

!1   1   0!X   X   X!X   X!0   X   X   XI1   1   1   0! 

THE  TWO'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE 
PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC 
BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC-BR,ADR 

^ — 4. + + — 4. — 4- — -f -f — -f — -f -f •♦■ — ■»• + -f 4- — f 

!1       1       1IX       X       XIX       X!0       X       X       X!1       1       1       01 
+ — > 1 ^ — + — ♦ — > ♦ — -f 4- -f -f — -I- -f "f -f •♦• 

THE  TWO'S  C  >^'-l^  :ENT  OF  THE  CONTENTS  OF  THE  BR  IS  ADDED  TO 
THE  CONTENTS    THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO 
BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS 
9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   dAC^CMEM,ADR 

, — ^ ^ ♦ 4" — -♦• — ♦ -f — ♦ -f -f -f — •♦■ -♦• + +• — + 

II   1   OIX   X   XIX   XIO   X   X   XII   1   1   II 
^ — ^ .f ^ — + — t — ♦ ■»• — -f •♦• -f -f — + + ♦ •»• f 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  ADDED  TO  THE  CONTENTS  OF  THE 
SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE 
PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC 
BITS  11-1u  ARE  NOT  CHANGED. 

JMPXX   aAC^CBR^ADR 

4.-..^ f. — -f— -«♦- — -♦-— f— -+ -► 4— — ♦ -¥ •»• -f 4- + + 

11   1   1IX   X   XIX   XIO   X   X   XII   1   1   II 
,».—-,►-«.♦— -^.-—f-—^ — ♦- — + — ♦-—•♦• — -f- — -f — -f — -♦> — + — -f — "► 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS  ADDED  TO 
THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO 
BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS 
9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 
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JMPXX   dAC&MEM.ADR 

!1   1   OIX   X   X!X   X!0   X   X   XII   0   1   1! 
^ — ^ + — + — ^ — ^ — ^ ♦ — + — f — i — + — + — -f — + — -f — f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 

LOGICALLY  ANDED  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 

RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITSR  ^ 

ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 

CHANGED. 

JMPXX   SAC&BR.ADR 

^ 4.-—+-—^. — 4. 4. 4> -¥ •♦• "f "f — -+ -^ •♦■ -f + "♦• 

•1       1       1!X       X       X!X       X!0       X       X       X!1       0       1       II 
4. — 4. +— -4- — -^ — -f — •♦• — -♦• — -f — -f — — f— 4- — -♦— — f -f — + — -f 

THE  CONTENTS  OF  THl  9R  IS  LOGICALLY  ANDED  WITH  THE  CONTENTS 
OF  THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF 
THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE 
PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aAC!MEM,ADR 

4. — 4. +« — 4. — 4. — 4. — 4- -f — "f "f "f + — -f ^ — ■♦• •♦• •♦• 

11   1   OIX   X   XIX   XIO   X   X   XII   1   0   01 
4. — 4.— -f — >— -4— — f — — f— — f — ♦ — -f — -f — — f — + — -f — ♦ — + — •♦• 

THE  CONTENTS  OF  THE  CURRENTLY  SELECTED  MEMORY  LOCATION  IS 
INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  IS  LOADED  INTC  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED. 

JMPXX   aACIBR.ADR 

4. + 4.. — 4. — -4. 4. 4. 1 4.- — + ♦ -f ♦ -f i -f + 

II   1   1IX   X   XIX   XIO   X   X   XII   1   0   01 
+ — -+ 4. +. — t- — -f — -f f- — -f — — f -f- — •♦• — -f — "f + — '^ "♦■ 

THE  CONTENTS  OF  THE  BR  IS  INCLUSIVE-OR'D  WITH  THE  CONTENTS 
OF  THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF 
THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE 
PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 
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SEQ  0039 
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JMPXX       aAClCMEM,ADR 

+ — + + + — ^ + — ^ f — ^ 4- -f — ■♦• — -f — + + — •♦• •♦• 

11        1       OIX       X       XIX       X!0       X       X       XII       0       1       01 
+ — + — + — ^ — + — ^ — ^ — ^ — ^ — ♦ — + — + — 4" — + — + — -f — i 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  CURRENTLY 
ADDRESSED  MEMORY  LOCATION  IS  INCLUSIVE-OR'D  WITH  THE 
CONTENTS  OF  THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO 
BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS 
9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

JMPXX   aACICBR,ADR 

f — + + + — f ^ — + ^ — + ^ -^ — •». -f — + -»• — ^ i 

II   1   1IX   X   XIX   XIO   X   X   XII   0   1   01 
4. — + ^ ^ — f ^ — + 4- — •»• -f -f — + — -f — "f ^ — ■♦• •♦• 

THE  ONE'S  COMPLIMENT  OF  THE  CONTENTS  OF  THE  BR  IS 
INCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  IS  LOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADED  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED. 

JMPXX   aAC*IMEM,ADR 

II   1   OIX   X   XIX   XIO   X   X   XII   1   0   11 

+ — ^ — + + — f + — "f — -f — -f — "f — "f — -f — ■♦• — + — f — "f — -f 

THE  CONTENTS  OF  THE  CURRENTLY  ADDRESSED  MEMORY  LOCATION  IS 
EXCLUSIVE-OR'D  WITH  THE  CONTENTS  OF  THE  SPECIFIED  AC.  THE 
RESULT  IS  lOADED  INTO  BITS  7-0  OF  THE  PC.  BITS  9-8  OF  ADR 
ARE  LOADEl>  INTO  BITS  9-8  OF  THE  PC.  PC  BITS  11-10  ARE  NOT 
CHANGED. 
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SEQ  0040 
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JMPXX   aAC*IBR,ADR 

+ 4. — 4. 4. — 4. — +-— ♦ — ♦ — -f — +- — -♦' — ■♦• — + — + — + — •♦• — •♦■ 

II       1       1!X       X       X!X       XIO       X       X       X!1       1       0       1! 

THE  CONTENTS  OF  THE  BR  IS  EXCLUSIVE-OR'D  WITH  THE  CONTENTS 
OF  THE  SPECIFIED  AC.  THE  RESULT  IS  LOADED  INTO  BITS  7-0  OF 
THE  PC.  BITS  9-8  OF  ADR  ARE  LOADED  INTO  BITS  9-8  OF  THE 
PC.  PC  BITS  11-10  ARE  NOT  CHANGED. 

THERE  IS  ONE  PROGRAM  CONTROL  INSTRUCTION  THAT  DOES  NOT  REQUIRE  AN  AA 
ARGUMENT. 
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RETURN  VVV,M 


RETURN  FROM  SUBROUTINE 


!0   0   0!1   '       1IX   X!X   X   X   X   X   X   X   X! 

POP  THE  LAST  ENTRY  OFF  THE  STACK  AND  LOAD  IT  INTO  THE  PC. 

ALL  TWELVE  BITS  OF  THE  PC  ARE  LOADED. 
Z  IS  SET  IF  VVV  =  377,  OTHERWISE  I   IS  CLEARED. 
C  IS  NOT  CHANGED. 


SEQ  0041 
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SEQ  00^2 


10.6    SPECIAL  INSTRUCTIONS  AND  PSEUDO-OPS 


JUMP 
JUMP  I 
JUHPC 
GOSUB 


ADR 
ADR 
ADR 
ADR 


THESE  SPECIAL  INSTRUCTIONS  CAN  Bl   USED  TO  JUMP  DIRECTLY  TO  ANY 
LOCATION  IN  THE  CRAM,  INCLUDING  TO  ANOTHER  1K  SECTION.  EACH 
OF  THESE  INSTRUCTIONS  ACTUALLY  GENERATES  TWO  INSTRUCTIONS  IN 
THE  CRAM. 


JUMP 
JUMPI 


ADR 


ADR 


JUMPC   ADR 


GOSUB   ADR 


PRODUCES 
PRODUCES 
PRODUCES 
PRODUCES 


LD6R 
JMP 

LD8R 
JMPI 

LD6R 
JMPC 

LD6R 
JMPSUB 


ADRi577 
aBR.ADR 

ADRi377 
aSR.ADR 

ADRft377 
aeR^ADR 

ADR8377 
aeR.ADR 


DATA    EXPRESSION 


.LOC 


THIS  INSTRUCTION  ALLOWS  ANY  NUMBER  TO 
CRAM.  THE  EXPRESSION  IS  EVALUATED  AND 
INTO  THE  CURRENT  LOCATION. 

ADR 


BE  PLACED 
ITS  VALUE 


INTO  THE 
IS  PLACED 


THIS  PSEUDO-OP  SETS  THE  CURRENT  LOCATION  COUNTER.  IT  CAN  BE 
USED  WHEN  IT  IS  DESIRED  TO  PLACE  INSTRUCTIONS  INTO  SPECIFIC 
CRAM  LOCATIONS.  IT  MUST  BE  USED  TO  PLACE  INSTRUCTIONS  INTO 
IK  SECTIONS  OF  THE  CRAM  BEYOND  THE  FIRST.  THE  VALUE  OF 
ADR  MUST  BE  EQUAL  TO  OR  GREATER  THAN  THE  CURRENT  CONTENTS  OF 
THE  LOCATION  COUNTER. 
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.MEM 


INIT 


END 


THIS  PSEUDO-OP  INFORMS  THE  ASSEMBLER  THAT  THE  REST  OF  THE 
SOURCE  FILE  CONTAINS  DATA  TO  BE  PLACED  IN  THE  WORKING  MEMORY 
A  WORD  OF  ALL  ONES  IS  WRITTEN  INTO  THE  OBJECT  FILE  BY  THE 
ASSEMBLER  AND  THE  LOCATION  COUNTER  IS  SET  TO  WORKING  MEMORY 
LOCATION  ZERO. 


THIS  PSEUDO-OP  MUST  APPEAR  BEFORE  ANY  INSTRUCTIONS  IN  THE 
SOURCE  FILE.  ALL  COUNTERS  ARE  RESET,  THE  LOCATION  COUNTER 
IS  SET  AT  CRAM  LOCATION  ZERO,  AND  ONE  DATA  PSEUDO-OP  IS 
SIMULATED  WHICH  STORES  THE  PROGRAM  VERSION  AND  EDIT  NUMBER 
INTO  LOCATION  ZERO. 


THIS  PSEUDO-OP  INFORMS  THE  ASSEMBLER  THAT  ALL  OF  THE  SOURCE 
FILE  HAS  BEEN  READ. 


J 


SEQ  00^^ 


VERSION: 
AUTHOR : 
DATE : 


MAINDEC-IO-DFDXD-A 
RICH  MURATORI 
NOVEMBER  1977 


VERSION  0.1 


ORIGINAL  RELEASE: 


VERSION: 

AUTHOR: 

DATE: 


MAINDEC-iO-DFDXD-B 
RICH  MURATORI 
MAY  1978 


VERSION  0.2 


REASON  FOR  UPDATE: 

TEST  14  HAD  A  BUG.  A  MISSING  COMMA  IN  TWO  MACRO  CALLS 


VERSION: 
AUTHOR : 
DATE: 


MAINDEC-10-DFDXD-C 
BILL  SCORZELLI 
MARCH  1979 


VERSION  0.3 


REASON  FOR  UPDATE: 

THE  END  OF  TAPE  TEST  (28)  WOULD  NOT  RUN  USING  A  7-TRACK  DRIVE 
(TU71).  THE  TRACK  IN  ERROR  SENSE  BYTE  IS  3  FOR  THE  7-TRACK  DRIVES. 


VERSION: 

AUTHOR: 

DATE: 


MAINDEC-10-DFDXD-D 
BILL  SCORZELLI 
SEPTEMBER  1981 


VERSION  0.4 


REASON  FOR  UPDATE: 


t. 


THIS  WAS  A  REVISION  TO  THE  TEST  TO  INCLUDE  RUNNING  IN  USER  MODE. 
(NOTE:  T0PS20  ONLY,  VERSION  5  WILL  RUN  UNDER  TOPSIO.) 


VERSION: 

AUTHOR: 

DATE: 


MAINDEC-10-DFDXD-E 
ROBERT  NOBREGA 
JANUARY  1985 


VERSION  0.5 


REASON  FOR  UPDATE: 


1. 


FIXED  PROBLEM  WITH  EXPECTED  ASYNCHRONOUS  STATUS  AFTER  A  REWIND 
CAUSED  BY  CHANGES  TO  MICROCODE  IN  VERSION  10.1.  MINIMUM 
MICROCODE  VERSION  FOR  THIS  DIAGNOSTIC  IS  NOW  10.1. 


2.  REMOVED  MISLEADING  TEXT  FROM  PRINTOUT  OF  DXGP1  AND  DXGPA  ^^^  ^^^ 

3.  MODIFIED  STATUS  CHECKING  ROUTINE  TO  PREVENT  CHECKING  OF  SENSE 
BYTES  IF  A  UNIT  EXCEPTION  HAS  OCCURRED.  THE  DX20  MICROCODE 
PREVENTS  A  SENSE  OPERATION  FROM  OCCURRING  IF  UNIT  EXCEPTION  IS  SET. 

4.  ADDED  CONSOLE  SWITCH  20  TO  INVOKE  THE  DX20  CONSOLE  CONTROL 
PROGRAM.  ALSO  CHANGED  THE  PROMPT  FOR  THE  CONSOLE  CONTROL  PROGRAM 
FROM  •*•  TO  •CCP>\ 

5.  ADDED  MESSAGE  TO  CONSOLE  CONTROL  PROGRAM  TO  REPORT  THAT  CONSOLE 
CONTROL  PROGRAM  DOES  NOT  RUN  IN  USER  MODE. 

6.  ADDED  DXGPO  AND  DXGP1  TO  STATUS  PRINT  ROUTINE. 
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SEQ  0046 


DOCUMENT 
DFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  * 

tt  tick  ■kit*  If  it  tit  til 


COPYRIGHT  1985 

DIGITAL  EQUIPMENT  CORPORATION 

MAYNARD,  MASS.  01754 
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TABLE  OF  roNTENTS 

13  ASSEMBLY  CONTROL  SWITCHES 

58  ACCUMULATOR  AND  UUO  DEFINITIONS 

160  PROGRAM  MACRO  DEFINITIONS 

305  MAGNETIC  TAPE  SUBSYSTEM  PARAMETERS 

A90  MASSBUS  DEVICE  BIT  ASSIGNMENTS 

706  RH20  BIT  DEFINITIONS 

819      RH10  BIT  DEFINITIONS 

948  *PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

983  ♦PARAM*  PROGRAM/SUBROUTINE  PARAMETERS,  :>EPT  18,1979 

1189  ERROR  HANDLING  UUO  DEFINITIONS,  SEPT  16,1979 

1227  ♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 

1555  PROGRAM  START  ft  RESTART  CODE 

1734  routine  to  run  the  micro-code  diagnostic 

55  Channel  bus  interface  register  bit  definitions 

625  selection  sequence  mi crodi agnostic 

2126  non-motion  control  tests 

2385  motion  control  commands  tests 

3165  data  transfer  commands  tests 

5975  subroutines 

6819  status  printer 

8432  save  and  restore  ac  routines 

9056  repeat  loop  routine 
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TABLE  OF  CONTENTS 


SEQ  0048 


9171  CONTROL  BUS  TIMEOUT  ERROR  HANDLER 

9288  USER  MODE  UUO  SUPPORT  ROUTINES 

9319  CONFIGURATION  MODULE 

9412  RHTST  -  -  EXEC  MODE  SCAN  FOR  AVAILABLE  CONTROLLERS 

9939  DEVICE  SELECTION  AND  PROGRAM  TRACE  ROUTINES 

9992  CONTROLLER  INITIALIZATION  ROUTINE 

10015  SOME  TTY  INPUT  UTILITY  ROUTINES 

10079  GENERAL  PRINT  UTILITIES 

10122  MASSBUS  CONTROLLER  UTILITY  PKG 

10160  REGISTER  LOAD  AND  READ  ROUTINES 

10623  DATA  CHANNEL  SUBROUTINES 

11540  ROUTINE  TO  ENABLE  PROCESS  CAPABILITIES  IN  USER  MODE 

11564  ROUTINE  TO  GET  IN  AND  OUT  OF  USER  lOT  MODE 

11697  UifR  MODE  SUPPORT  ROUTINES 

11929  STORAGE  FOR  CHANNEL  ROUTINE  VARIABLES 

11965  REGISTER  AND  CONI  PRINT  ROUTINES 

12159  REG-CONI  PRINTER  LOOKUP  TABLES 

12369         REGISTER  BYTE  INFORMATION  PRINTERS 

12465  BIT  PRINTER  ROUTINE  -TYPBIT- 

12952  DX20  DIAGNOSTICS  CONSOLE  PACKAGE 

13208  DIAGNOSTIC  CONSOLE  COMMAND  SUBROUTINES 

13535  PROGRAM  SELECT 
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TABLE  OF  CONTENTS 
******************* 


SEQ  0049 


14047   PRINT  RUN  TIME 

14226   ♦STOR*  RESERVED  STORAGE,  SEP^  18,1979 

14300   BUFFER  AREA 
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SEQ  0050 


13 


58 


160 


ASSEMBLY  CONTROL  SWITCHES 


16 
37 


SUBROUTINE  PACKAGE  ASSEMBLY  SWITCHES 

SOME  PROGRAM  ADDRESS  OPTIONS  AND  PARAMETERS 


ACCUMULATOR  AND  UUO  DEFINITIONS 


61 

81 

91 

109 

119 

134 


SOME  ACCUMULATOR  DEFINITIONS 

DEFINITION  OF  BITS  IN  F(AC10) 

ERROR  FOUND  FLAGS  WHICH  GET  SET  IN  ERRFND  AC7 

DATA  MODES 

DRIVE  MODES 

DX20-V100  FUNCTION  CODES 


PROGRAM  MACRO  DEFINITIONS 


162 
213 
257 

269 

280 


HERE  ARE  THE  PROGRAM  UUO  DEFINITIONS 
MACRO  DEFINITIONS 

THIS  MACRO  LOADS  REGISTERS  0-37. 

IF  AC  ARG.  IS  LESS  THAN  20  IT  ASSEMBLES  UUO  LDREGA 

IF  AC  ARG.  IS  GREATER  THAN  17  IT  ASSEMBLES  UUO  LDRE68 

THIS  MACRO  READS  REGISTERS  0-37. 

IF  AC  ARG.  IS  LESS  THAN  20  IT  ASSEMBLES  UUO  RDREGA 

IF  AC  ARG.  IS  GREATER  THAN  17  IT  ASSEMBLES  UUO  RDREGB 

THIS  MACRO  SETS  AND  CLEARS  FLAGS  FOR  ERROR  REPORTING 
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SEQ  0051 


490 


MAGNETIC  TAPE  SUBSYSTEM  PARAMETERS 


308 
344 
379 
400 
408 
415 
423 
438 
452 
459 
480 


EXTENDED  STATUS  INDEX  0  BIT  DEFINITIONS  (SENSE  BYTES  0-3) 
EXTENDED  STATUS  INDEX  1  BIT  ASSIGNMENTS  (SENSE  BYTES  4-7) 
EXTENDED  STATUS  INDEX  2  BIT  ASSIGNMENTS  (SENSE  BYTES  8-11) 
EXTENDED  STATUS  INDEX  4  BIT  ASSIGNMENTS  (SENSE  BYTES  16  -  19) 
EXTENDED  STATUS  INDEX  5  BIT  ASSIGNMENTS  (SENSE  BYTES  20  -  23) 
MICRO-CODE  PARAMETERS 
CHANNEL  LOGOUT  STATUS  BITS 
DEVICE  STATUS  BYTE,  FROM  DXGPO 
FLAG  REGISTER  BIT  DEFS,  FROM  DXGP3 
ERROR  CLASS  CODES  AND  SUB-CLASS  CODES 
PROGRAM  CONSOLE  SWITCHES 


MASSBUS  DEVICE  BIT  ASSIGNMENTS 


493 
529 
536 
545 
559 
567 
580 
600 

607 


MASSBUS  DEVICE  REGISTER  BIT  ASSIGNMENTS  (REGISTERS  00-37) 

MASSBUS  DEVICE  CONTROL  REGISTER  BIT  ASSIGNMENTS  (DXCTR  REG-00) 

MASSBUS  DEVICE  STATUS  REGISTER  BIT  ASSIGNMENTS  (DXSTR  REG-01) 

BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  ERROR  REGISTER  (DXER  REG-02) 

BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  MAINT  REGISTER  (DXMTR  REG-03) 

BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  ATTENTION  SUMMARY  REGISTER  (DXASR  REG-04) 

BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  DRIVE  TYPE  REGISTER  (DXDTR  REG-06) 

BIT  ASSIGNMENTS  FOR  MASSBUS  GENERAL  PURPOSE  REGISTER  0-7 
THIS  IS  FOR  REGISTERS  20-27 

BIT  ASSI^^FNTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  0  (DXDRO  REG-30) 
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613  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  1   (DXDR1  REG-31) 

623  BIT  ASSIGNMENTS  FOR  MASSRUS  DIAGNOSTICS  REGISTER  2  (DXDR2  REG-32) 

630  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  3  (DXDR3  REG-33) 

637  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  4  (DXDRA  REG-34) 

650  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  5  (DXDR5  REG-35) 

657  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  6  (DXDR6  REG-36) 

66A  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  7  (DXDR7  REG-37) 

675  MASSBUS  INTERFACE  REGISTER  ASSIGNMENTS  AS  ADDRESSED  FROM  MICRO-PROCESSOR 

***************************************************************** 

706    RH20  BIT  DEFINITIONS 
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SEQ  0052 


709 
722 
736 
757 
770 
778 
789 
796 
805 
811 


DEVICE  CODE  FOR  THE  RH20 

RH20  CONO  BIT  ASSIGNMENTS 

RH20  CONI  BIT  ASSIGNMENTS 

DATAO-DATAI  FOR  THE  DRIVE  REGISTERS  (00-37) 

DATAO-DATAI  FOR  RH20  SECONDARY  BLOCK  ADDRESS  REGISTER  (70) 

DATAO-DATAI  FOR  RH20  SECONDARY  TRANSFER  CONTROL  REGISTER  (71) 

DATAO-DATAI  FOR  RH20  PRIMARY  BLOCK  ADDRESS  REGISTER  (72) 

DATAO-DATAI  FOR  RH20  PRIMARY  TRANSFER  REGISTER  (73) 

DATAO-DATAI  FOR  THE  rH20  INTERRUPT  VECTOR  REGISTER  (74) 

RH20  REGISTER  ASSIGNMENTS 
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SEQ  0053 


819  RH10  BIT  DEFINITIONS 


948 


983 


822 
829 
8A7 
875 
888 
898 
910 
918 
930 
944 


DEVICE  CODE   FOR  THE  RHIO 

RH10  CONO  BIT  ASSIGNMENTS 

RHIO  CONI  BIT  ASSIGNMENTS 

RHIO  DATAO-DATAI   00  -  37  BIT  ASSIGNMENTS   (DRIVE   INTERFACE  BUFFER) 

RHIO  REGISTER  ASSIGNMENTS 

RHIO  DATAO-DATAI   54  BIT  ASSIGNMENTS    (REGISTER  ACCESS  ERROR  STATUS) 

RHIO  DATAO-DATAI  44  BIT  ASSIGNMENTS    (INTERRUPT  ADDRESS  REG) 

RHIO  DATAO-DATAI   50  BIT  ASSIGNMENTS    (DATA  BUFFER  REG) 

RHIO  DATAO-DATAI   40  BIT  ASSIGNMENTS    (CONTROL  REGISTER) 

MASK  FOR  ASYNC  STATUS 


♦PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,   SEPT  18J97y 

»ik**t  **•♦♦•♦*♦♦♦♦♦♦»♦*♦*♦**♦**•♦**♦****•**♦******♦♦♦******  ******** 

953  DATA  SWITCHES   (READ  FROM  CONSOLE   IN  EXEC  MODE  OR  TYPED   IN  IN  USER  MODE) 

LEFT  HALF   SWITCHES  ARE  PRE-ASSIGNED  FOR  SUBROUTINE  PACKAGE  USE 
AND  CONTROL  LOOPING,  PRINTING   (TTY  OR  OTHER  DEVICE)   AND  MISC.   FUNCTIONS 

••*•**••*••***♦•♦*♦♦♦♦••♦•♦♦*•♦*♦**♦*♦**♦**•****♦»♦*************♦ 

*PARAM*  PROGRAM/SUBROUTINE  PARAMETERS,   SEPT   18,1979 
♦♦♦*♦»*♦♦»•♦♦*♦♦♦•***♦***•*♦•**»•♦♦****♦*♦****♦**************♦*** 

986  SPECIAL   SUBPROGRAM  LINKAGES 

997  SPECIAL   SUBROUTINE   FATAL  HALTS 

USED  TO  REPORT  ERRORS   THAT  CAUSE  THE   SUBROUTINES  TO  BE  UNUSABLE 


Mmmi-tHMm<*mii0n 


iMiiiili>|»i;i>i(irfHriiriii>rii  »-|iii 
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1227 


1555 


1734 


♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦*♦*♦♦*♦*♦♦♦*♦♦»*♦***♦*** 

ERROR  HANDLING  UUO  DEFINITIONS,  SEPT  18J979 


♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 

♦♦*♦♦♦   v***********************. '-♦♦**♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦♦***♦*♦♦♦* 

♦»♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦♦♦♦♦**♦***>♦♦******♦♦♦♦*♦*♦♦*♦♦♦♦♦♦*♦♦* 

PROGRAM  START  ft  RESTART  CODE 
♦♦♦♦*♦♦♦•♦♦*♦♦*♦♦♦♦♦♦♦»♦♦»♦♦**♦****♦**♦♦♦***♦**♦♦♦♦♦♦♦*♦*♦*♦***** 


1557 


1574 
1705 


This  error  macro  is  the  same  is  in  param.klm.  the  reason  that  it  also 
Appears  here  is  so  that  the  micro  expansion  doesn't  take  place  in  the 
Listing,  there  is  a  part  of  tie  macro  in  param.klm  that  is  not  supressed. 
This  causes  the  succeeding  mai  ros  to  be  expanded  if  this  copy  of  the  one 
In  param.klm  was  not  placed  he^e. 

Channel  command  list  storage  area 

*♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦*♦♦****♦♦♦♦*♦*****♦*♦♦•♦*•*****♦*♦♦♦*♦*****♦*♦♦**** 

DFDXD  *  TEST  1  ♦      DRIVE  TYPE  NUMBER 


1713    Check  that  the  drive  type  is  correct,  i.e.,  is  for  dx20-v100. 

♦#♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*»♦♦♦♦»♦*♦♦*♦♦»♦♦♦***♦♦♦♦♦*♦**♦♦♦♦**♦♦*♦* 

ROUTINE  TO  RUN  THE  MICRO-CODE  DIAGNOSTIC 
♦♦♦##♦*♦♦♦*♦♦♦♦♦♦♦♦♦**♦*♦♦♦♦♦♦♦♦♦♦**♦♦♦♦»♦**♦♦♦*♦♦♦*♦♦♦**♦♦♦***♦* 


19 


SEQ  0054 


MCDXD  IS  A  MICRODIAGNOSTIC  WHICH  IS  RUN  UNDER  CONTROL  OF  'DFDXD', 
THE  DX20-V100  MAGTAPE  SUBSYSTEM  DIAGNOSTIC.  FIRST  IT  CHECKS  THAT  ALL  TAG 
OUT  LINES  DROP  AFTER  A  DX20  RESET  AND  THAT  ALL  TAG  IN  LINES  DROP  AFTER  A 
SYSTEM  RESET.  THEN  IT  CHECKS  FOR  CORRECT  'SEL  OUT'  PROHAuATION  AND  CORRECT 
•OPL  IN'  RESPONSE  TO  AN  INITIAL  SELECTION  SEQUENCE.  A  TEST  I/O  COMMAND 
IS  EXECUTED  TO  DEVICE  ADDRESS  0.  PROPER  TAG  IN  RESPONSES  ARE  CHECKED  FOR 
AT  EACH  STEP  OF  EXECUTION.  FINALLY,  A  SENSE  COMMAND  IS  EXECUTED  TO  THE  DEVICE 
ADDRESS  WHICH  IS  SUPPLIED  BY  THE  HOST  VIA  GP  REGISTERS.  THE  SENSE  BYTES 

ARE  EXAMINED  FOR  EXPECTED  DATA.  IF  ANY  ERRORS  ARE  DETECTED,  THE  NEXT  DEVICE  ADDRESS  IS  REQU 
ESTED  FROM 

THE  HOST.  ELSE,  THE  CORRECT  SENSE  DATA  IS  TRAN:)rtITTED  BACK  TO  THE  HOST 
VIA  THE  GP  REGISTcRS. 
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SEQ  0055 


35     CHANNEL  BUS  INTERF/ :E  REGISTER  BIT  DEFINITIONS 

*♦♦♦♦♦**♦♦♦»**♦*»♦•*♦»♦♦♦♦♦*♦«*♦♦*♦*♦*♦**♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦*♦*♦♦♦ 

♦♦♦♦♦♦♦♦♦♦*♦♦***♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦**♦**♦♦**♦♦♦♦♦♦*♦♦♦******♦♦* 

625     SELECTION  SEQUENCE  MI CROD I AGNOSTIC 


629 

6A2 
644 

680 

689 
692 

741 

750 

794 

803 
805 


MCDXD  ♦  TEST  2  ♦    TEST  TAG  OUT  STATUS  AFTER  DX20  RESET 

TEST  THAT  DOING  A  DX20  RESET  CLEARS  THE  TAG  OUT  LINES. 

DO  A  MICROBUS  INIT. 

SET  ONLINE  AND  CHANNEL  MODE  THEN  WAIT  5  MS  FOR  SEL  OUT  RELAY  TO  SETTLE. 

CHECK  THAT  ALL  TAG  OUT  LINES  ARE  RESET. 

»♦♦»♦♦»♦♦*♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦*♦**»♦♦♦♦♦♦♦♦♦****♦**♦♦*♦*♦♦♦♦*♦♦♦**♦* 

MCDXD  ♦  TEST  3  -    TEST  TAG  IN  STATUS  AFTER  SYSTEM  RESET 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦*♦♦»♦♦*♦♦*♦♦*»»♦♦♦♦♦♦♦♦♦♦♦»♦♦♦*♦♦♦♦♦♦♦♦♦♦♦*♦**»♦♦* 

TEST  THAT  NO  DEVICES  RESPOND  WITH  A  TAG  IN  LINE  TO  'X)PL   OUT" 
AFTER  A  SYSTEM  RESET. 

CLEAR  ALL  TAG  OUT  LINES. 

SET  'loPL  our*. 

CHECK  THAT  ALL  TAG  IN  LINES  ARE  CLEARED. 

*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦»♦♦♦*♦♦♦♦♦♦♦♦♦»»»♦♦♦*♦♦ t ♦♦♦♦*♦*****♦*♦»♦♦♦»* ♦♦*♦♦*♦ 

MCDXD  »  TEST  4  ♦    TEST  "SEL  OUT"  Pr^OPAGATION 

CLEAR  ALL  TAG  OUT  LINES. 

SET  'lOPL  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 

WAIT  FOR  "SEL  OUT*^*  TO  RETURN  AS  "SEL  IN". 

MCDXD  ♦  TEST  5  ♦    TEST  '*OPL   IN"  RESPONSE  TO  SELECTION  SEQUENCE 

TEST  THAT  THE  CONTROLLER  RESPONDS  W*TH  'V.Pi   IH"   TO  AN  INITIAL  SELECTION  SEQUENCE. 

CLEAR  ALL  TAG  OUT  LINES. 

SET  •t)PL  OUT". 

PUT  DEVICE  ADDRESS  OF  0  ON  BUS  Cv^  I  INES. 

SET  ^^•ADR  OUT*^'  "HLD  OUT",  THEN  S -v  OUT". 

CHECK  FOR  SOME  RESPONSE  ON  TAG  I^  .iNES. 
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851     CHECK  THAT  NO  TAG  IN  LINES  GOT  SET  OTHER  THEN  "SEL  IN"  OR  "OPL  IN". 
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SEQ  0056 


912 

921 
923 


956 

977 
991 
1005 

1031 

1052 

1u.'5 
1076 
1103 
1120 

1129 
1132 


MCDXD  ♦  TEST  6  ♦    TEST  '^EST  I/O"  COMMAND 
TEST  THAT  THE  CONTROL  UNIT  RESPONDS  CORRECTLY  TO  THE  "TEST  I/O  COMMAND"  SEQUENCE. 


CLEAR  ALL  TAG  OUT  LINES. 

SET  •t)PL  OUT". 

PUT  DEVICE  ADDRESS  0  ON  THE  BUS  OUT  LINES. 

SET  ^^•ADR  OUT*^".  "HLD  OUT",  THEN  "SEL  OUT*^*. 

CHECK  THAT  'WL  IN"  SETS. 

CLEAR  "ADR  OUT". 

CHECK  THAT  "ADR  IN"  SETS. 

CHECK  THAT  BUS  IN  LINES  CONTAIN  ADDRESS  REQUESTED (0). 

CHECK  THAT  'BUSO  PE  FLAG"  IS  NOT  SET. 

PUT  TEST  I-O  COMMAND  (0)  ON  BUS  OUT  LINES. 

SET  "CMD  OUT". 

CHECK  THAT  "ADR  IN"  CLEARS. 


••  • 


CLEAR  "CMD  OUT' 

CHECK  THAT  "STA  IN"  SETS. 

SET  "SRV  OUT". 

CHECK  THAT  "STA  IN"  CLEARS. 

CLEAR  "SRV  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 

CHECK  THAT  "OPL  IN"  CLEARS. 

GET  DRIVE  ADDRESS  AND  '^ESTING-ONE-UNIT"  FLAG  FROM  HOST. 

♦♦»♦♦♦#♦♦♦♦♦♦♦♦♦#♦♦♦♦♦♦♦♦♦♦*♦♦♦»♦♦*♦♦*♦♦♦♦#♦♦♦♦♦♦*♦*♦*»**♦***♦**♦♦**♦♦ 

MCDXD  ♦  TEST  7  ♦    TEST  "SENSE"  COMMAND 
♦♦♦♦♦♦♦ t**»***»**»»»*»**»»**t********»*t ♦♦♦*♦♦♦♦♦*♦*♦♦♦ ♦♦♦♦♦♦*♦♦♦♦♦♦♦* 

TEST  THAT  THE  CONTROL  UNIT  RESPONDS  CORRECTLY  TO  THE  "SENSE  COMMAND"  SEQUENCE. 
READ  AND  CHECK  THE  24  SENSE  BYTES. 

CLEAR  ALL  TAG  OUT  LINES. 
SET  "OPL  OUT". 

PUT  DRIVE  ADDRESS  ON  THE  BUS  OUT  LINES. 
SET  '^'ADR  OUT*^'  "HLD  OUT*^*.  THEN  "SEL  OUT". 
CHECK  THAT  "OPL  IN"  SETS. 
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SEQ  0057 


1187    CLEAR  *'AOR  OUT".  .. 

CHECK  THAT  "ADR  IN"  SETS. 

1209    CHECK  THAT  BUS  IN  LINES  CONTAIN  ADDRESS  REQUESTED(O). 

1223    CHECK  THAT  'BUSO  PE  FLAG"  IS  NOT  SET. 

1239    PUT  SENSE  COMMAND  (0)  ON  BUS  OUT  LINES. 
SET  '^'CMD  OUT". 
CHECK  THAT  "ADR  IN"  CLEARS. 

1265    CLEAR  "CMD  OUT".  .. 

CHECK  THAT  "STA  IN"  SETS. 

1286    CHECK  THAT  INITIAL  STATUS  IS  ZERO. 

1312    SET  "SRV  OUT". 

CHECK  THAT  "STA  IN"  CLEARS. 

1335    CLEAR  "SRV  OUT". 

CHECK  THAT  "SRV  IN"  SETS. 

1359    READ  AND  SAVE  THE  SENSE  BYTE. 

CHECK  THAT  'BUSO  PE  FLAG"  DID  NOT  SET. 

1375    GO  PROCESS  THE  SENSE  BYTE 

1A10    STORE  SENSE  BYTE  AND  SET  "SRV  OUT". 
CHECK  THAT  "SRV  IN"  CLEARS. 

UA2    CLEAR  "SRV  OUT". 

IF  RECEIVED  ALL  24  SENSE  BYTES,  TERMINATE  SEQUENCE. 

ELSE,  CHECK  THAT  "SRV  IN"  SETS  AND  CONTINUE  RECEIVING  BYTES. 

1A82    TERMINATE  THE  SENSE  COMMAND  SEQUENCE. 

CHECK  THAT  "STA  IN"  SET  IN  RESPONSE  TO  LAST  "SRV  OUT"  CLEARING. 

1502    SET  "SRV  OUT". 

CHECK  THAT  "STA  IN"  CLEARS. 

1525    CLEAR  "SRV  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 
CHECK  THAT  "OPL  IN"  CLEARS. 

1787    Come  here  if  at ten  was  set  by  the  mi c rod 1 agnostic 

1826    Come  here  to  report  microdiagnostic  error 

1994    Routine  to  send  micrO-diagnostic  the  drive  address  to  be  tested. 


~~! 


DFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  *  DECDOC  VER  00.25    6-APR-85  18:46:18 

2019    Additional  print  routines  for  the  sense  command  test 
2037    Come  here  when  microdiag  completed,  print  controller  type  and  drive  type. 
2092    Load  the  operational  micro  code  and  setup  various  test  parameters. 

2126    NON-MOTION  CONTROL  TESTS 

2128    •♦♦*♦♦♦**♦♦♦*♦*»***♦♦♦♦♦»♦*♦**♦♦****•**•*•****♦*********♦*********♦*** 

DFDXD  ♦  TEST  8  *      NOP  COMMAND 

2138    Send  a  nop  command  to  the  dx20. 

Check  that  no  error  conditions  occur. 

2153    ***♦*♦****♦♦♦♦♦♦*♦♦**♦♦*♦♦**♦♦*»**♦***♦♦♦♦**************************** 

DFDXD  ♦  TEST  9  ♦      ILLEGAL  COMMAND 

2163    Send  an  illegal  function  code  (2)  to  the  dx20.         ,. 

Verify  that  composite  error"  and  "illegal  function  (ilf)  are  set. 

2194    ♦♦♦♦**♦♦»♦♦•♦**♦*♦♦♦♦*♦♦***♦**♦♦♦**•♦♦*♦♦*****»♦*♦•******'*****♦******* 
DFDXD  ♦  TEST  10  *     EXTENDED  STATUS  TABLE  SIZE 

2203    Verify  that  the  extended  status  table  size  is  correct. 

22''3    *♦♦♦♦♦♦*♦♦♦♦•**♦♦*•♦**♦♦♦♦♦»♦♦*♦******♦♦♦*♦•**»**♦**♦*♦♦*********♦*♦** 
DFDXD  ♦  TEST  11  *     DRIVE  CLEAR 

2222    Issue  a  drive  clear  command  to  dx20. 

Check  that  'go*  bit  clears  and  all  regs  that  are  supposed  to  get 
Cleared  do  get  cleared. 

2270    ♦♦♦♦♦♦*♦♦»•♦»♦♦»*♦♦*♦♦♦*♦*♦♦♦**♦*♦♦♦**♦♦*♦♦****•********•**********♦** 
DFDXD  *  TEST  12  ♦     SENSE  COMMAND 

2280    Send  a  sense  command  to  the  dx20  and  verify  that 

(1)  The  ext  status  request  bit  and  ext  status  index  are  zeroed 

(2)  The  tape  drive  status  is  correct  -  channel  and  device  end. 

(3)  The  sense  bytes  are  the  same  as  those  read  by  the  microdiagnostic. 

2302    ♦♦♦♦♦♦♦♦»»♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦*♦♦♦♦»♦**♦♦♦♦♦♦♦♦*******♦*♦♦*♦♦♦**♦*♦***♦* 
DFDXD  *  TEST  13  ♦     NOP  WITH  FORCED  SENSE 
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SEQ  0058 
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2311    Send  a  nop  command  to  the  dx20  with  the  forced  sense  bit  set. 

Check  that  the  forced  sense  bit  gets  cleared  and  that  the  sense  data 
Gets  read. 

2332    ♦♦**•♦*♦•♦***•••*****•••**•*****•*****♦♦*•*******♦*************♦****** 
DFDXD  ♦  TEST  H  ♦     SENSE  RESERVE/SENSE  RELEASE 

2342    Check  that  a  sense  reserve  command  sets  tcu  reserved  bit  in  sense 
Byte  9  and  a  sense  release  command  clears  that  bit. 
This  test  is  only  done  if  the  tcu  has  the  2  channel  switch  option. 

2385    MOTION  CONTROL  COMMANDS  TESTS 

DFDXD  *  TEST  15  *     REWIND  FOR  TWO  INTERRUPTS 

2399    Do  a  rewind  and  check  that  two  interrupts  are  received,  one  for 

This  initial  channel  end  status  and  one  for  the  final  asynchronous 
Device  end  status. 

2450    ♦*♦♦♦♦♦♦♦♦♦*♦♦**♦♦*♦*♦*•♦♦*♦♦*♦♦♦•***♦*♦*♦**•*********♦♦♦'************* 
DFDXD  *  TEST  16  *     TEST  I/O 

2460    Send  a  test  i/o  command  to  the  dx20  with  the  forced  sense  bit  set. 

2484    ♦*♦♦♦♦•♦♦♦*♦♦♦♦♦*♦•♦***♦♦*♦♦*♦♦♦*♦♦♦♦♦•♦♦♦♦♦***♦*♦*»******♦*********** 
DFDXD  *  TEST  17  ♦     ERASE  GAP  FROM  LOAD  POINT 

2494    Do  an  erase  gap  command  and  check  that  bot  clears. 

DF?XD  *  TEST  18  ♦     REWIND  STATUS 

2526    Do  a  rewind  and  check  that  tape  moves  to  bot. 

2590    Do  8  erase  gaps  then  do  a  rewind,  do  a  nop  while  rewinding  and 
Check  that  axbusy  status  is  received. 

2670    *♦♦♦#♦♦**♦♦♦♦♦****♦*♦**♦♦**»♦»♦♦*♦**♦♦♦♦**♦♦♦**♦*♦♦*♦♦****♦*»********* 
DFDXD  ♦  TEST  19  ♦     BACKSPACE  BLOCK  AT  LOAD  POINT 


DFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  "   DECDOC  VER  00.25    6-APR-85  18:A6:18 

2680    Do  a  backspace  block  at  load  point  and  check  that 

(1)  Mperr  sets  with  error  class  =  1  0 

(2)  Unit  check  sets  in  tape  drive  status 

(3)  An  auto  sense  is  done. 

2706    ********************************************************************** 

DFDXD  ♦  TEST  20  ♦     BACKSPACE  FILE  AT  LOAD  POINT 

2716    Do  a  backspace  file  at  load  point  and  check  that 

(1)  Mperr  sets  with  error  class  =  1  subclass  =0 

(2)  Unit  check  sets  in  tape  drive  status 

(3)  An  auto  sense  is  done. 

2742    ♦**♦*♦*♦♦♦»*♦*•♦♦♦**♦♦*♦*♦*****♦*♦♦*♦♦♦***♦♦*********♦♦****♦♦*♦**♦**** 

DFDXD  ♦  TEST  21  ♦     WRITE  TAPE  MARK 

2752    Issue  a  write  tape  mark  command  and  check  that  bot  clears. 

2778    ♦♦♦♦*♦*♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦****♦♦♦♦♦♦****♦♦****♦♦*******♦******* 
DFDXD  *  TEST  22  ♦     BACKSPACE  BLOCK  OVER  TAPE  MARK 

2788    Urite  o  tape  mark  then  do  a  backspace  block  and  check  that 

(1)  Unit  exception  sets 

(2)  Mperr  sets  with  error  class=U  sub-class=0 

2823    ♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•**********************»*********<^******** 

DFDXD  *  TEST  23  ♦     BACKSPACE  FILE  OVER  TAPE  MARK 

2833    Urite  a  tape  mark  then  do  a  backspace  file  and  check  that  bot  sets. 

2865    ♦♦»♦♦♦♦♦*♦♦♦»»»***♦♦♦»♦***♦*»♦♦♦♦♦*»*♦♦♦♦♦**♦♦♦♦**♦♦♦♦*♦*»♦♦♦**♦*♦♦**♦ 

DFDXD  *  TEST  24  ♦     FORWARD  SPACE  BLOCK  OVER  TAPE  MARK 
♦♦»♦♦♦♦♦♦♦♦♦»♦»♦♦♦♦♦•♦♦♦♦♦♦♦*♦***♦♦♦*♦♦♦*♦♦♦♦**♦**♦♦♦***♦*♦♦♦♦♦♦♦♦♦♦♦♦ 

2875    Write  a  tape  mark  then  rewind  and  do  a  forward  space  block  and  check  that 

(1)  Unit  exception  sets 

(2)  Mperr  sets  with  error  class=1,  sub-class=0 

DFDXD  ♦  TEST  25  »     FORWARD  SPACE  FILE  OVER  TAPE  MARK 

2920    Write  a  tape  mark  then  rewind  and  do  a  forward  space  file  and  check  that 
Bot  clears. 
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DFDXD  *  TEST  26  *     READ  EXTENDED  STATUS 

2963    Execute  a  read  extended  status  convnand  and  check  that  the  sense 
Information  transfered  is  correct. 

2984    ♦♦**♦♦♦*♦♦*♦♦♦*♦♦♦*♦♦♦*♦*♦♦♦♦♦♦**♦**♦*♦♦♦♦♦♦♦♦*♦*♦*♦♦♦•♦**♦*♦♦♦♦♦♦*♦*♦ 

DFDXD  ♦  TEST  27  *  SUPPRESS  AUTO  SENSE 

299A    Do  a  backspace  block  at  load  point  with  the  suppress  auto  sense  bit  set. 
This  should  cause  a  unit  check  error  but  no  sense  should  be  performed. 
Instead,  all  zeros  should  be  returned  in  the  sense  bytes. 

DFDXD  *  TEST  28  *     END  OF  TAPE  TEST 

303A    Write  tape  marks  on  all  of  tape. 
Check  that  eot  sets. 

Then  do  a  backspace  file  and  check  that  unit  exception  clears. 
This  test  is  bypassed  if  console  switch  21  is  set. 

DFDXD  ♦  TEST  29  *     DATA  SECURITY  ERASE 

3107    Test  that  a  data  security  erase  will  move  the  tape  to  eot. 

Then  check  that  tape  was  erased  by  doing  a  backspace  block  and 
Checking  fot  bot  setting. 

3165    DATA  TRANSFER  COMMANDS  TESTS 

DFDXD  ♦  TEST  30  ♦     LOOP  WRITE  TO  READ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*»»*»**»t»t*»*»t*»t*****»*»***»* ♦*♦*♦♦♦*♦♦♦♦♦♦♦* 

3177    Do  loop  write  to  read  xfers. 

If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Industry  compatible  mode. 

3218    Write  tape  mark  to  move  from  bot. 
Do  looD  write  to  read  xfers. 

If  tu72,  set  Qcr  mode,  if  tu70,  set  800  bpi  nrzi  mode. 
Skip  if  7  trk. 
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DFDXD  ♦  TEST  31  ♦     WRITE 

3297    Do  write  xfers  in  industry  compatible  mode. 
Pe  mode  if  9  trk.  skip  if  7  trk. 

3336    Do  write  xfers  in  industry  cofnoatible  mode.  „^^  ,  .    .   , 
If  tu72.  set  gcr  mode,  if  tu7D  or  tu71,  set  800  bpi  nrzi  mode. 

3381    *»♦»»♦»♦♦♦♦♦•»♦♦*♦*♦*•*•»-********♦**•♦•♦♦♦♦*♦*************»♦*♦*♦♦*♦♦♦* 

DFDXD  ♦  TEST  32  *     READ  FORWARD  IN  PE  MODE 

3391    Do  writes  and  read  forward  xfers  in  pe  mode. 
Skip  this  test  if  7  trk. 
Core  dump  mode 

3A54  Industry  compatible  mode 

3503  Six  bit 

3552  7-Bit  ascii 

3601  High  density  mode 

3652    »♦♦♦♦♦♦*♦♦*»♦*♦♦»♦♦♦♦*♦♦♦♦♦♦♦♦♦*♦♦♦*♦*♦♦♦♦♦*»♦♦♦**♦♦*♦****♦♦***♦♦***** 

DFDXD  *  TEST  33  ♦     READ  REVERSE  IN  PE  MODE 

3662    Do  writes  and  read  reverse  xfers  in  pe  mode. 
Skip  this  test  if  7  trk. 
Core  dump  mode 

3720  Industry  compatible  mode 

3764  Sfx  bit 

3808  7-Bit  ascii 

3852  High  density  mode 

3899    ♦♦♦♦♦♦»♦♦♦♦♦♦♦♦♦♦♦♦♦♦#♦#♦»•*♦♦»»*»**♦♦♦♦♦♦♦*»♦♦♦*♦»*♦♦♦***♦♦»♦*♦♦*♦♦♦♦ 

DFDXD  ♦  TEST  34  ♦     READ  FORWARD  IN  NRZI  OR  GCR  MODE 
t»*»t ♦♦♦♦»»♦•♦♦♦»•♦♦♦♦••♦♦ t»»»»»*»**»** ♦♦♦♦♦*♦»*♦***♦♦♦♦♦***♦* ♦♦♦♦♦♦** 

3909    Do  writes  and  read  forward  xfers. 

If  tu72,  set  gcr  mode,  if  tu70  or  tu71 ,  set  800  bpi  nrzi  mode. 
Core  dumo  mode 
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3978    Industry  compatible  mode 
Six  bit 
7-Bit  ascii 
High  density  mode 
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SBQ   0063 


4027 
'076 
4125 
4176 


DFDXD  »  TEST  35  »     READ  REVERSE  IN  NRZI  OR  GCR  MODE 

4186    Do  writes  and  read  reverse  xfers.    ^^     «««   .    .   . 
If  tu72.  set  gcr  mode,  if  tu70  or  tu71 ,  set  800  bpi  nrzi  mode. 
Core  dump  mode 

4250  Industry  compatible  mode 

4293  Six  bit 

4336  7-Bit  ascii 

4379  High  density  mode 

DFDXD  ♦  TEST  36  ♦     READ  FORWARD  PARTIAL  WORD  TRANSFERS 

4434    Do  writes  and  read  forward  xfers  which  do  not  fall  on  word  boundaries. 
If  9  trk,  set  pe  mode,  if  7  trk.  set  800  bpi  nrzi  mode. 
Core  dump  mode 

4502    Industry  compatible  mode 

4551    Six  bit 

4600    7-Bit  ascii 

4649    High  density  mode 

4700     ♦*»»♦♦♦#♦♦♦♦»»♦♦»♦♦♦»♦♦♦♦♦♦♦»♦♦♦♦»»♦*♦ t»t**»*»*»»*»»» ♦♦♦♦»#*♦♦♦♦»»♦♦»♦ 

DFDXD  ♦  TEST  37  ♦     READ  REVERSE  PARTIAL  WORD  TRANSFERS 

4709    Do  writes  and  read  reverse  xfers  which  do  not  fall  on  word  boundaries. 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Core  dump  mode 

4767    Industry  compatible  mode 
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4810    Six  bit 
4853    7-Bit  ascii 
4896    High  density  mode 

4942    ♦♦♦»»*♦*♦**♦♦♦♦*♦♦♦**»♦*****♦*•♦♦♦♦♦***♦**♦**♦**»*♦***♦♦♦***»****♦♦♦** 

DFDXD  *  TEST  38  *     SHORT  RECORD  READ  FORWARD  TRANSFER 

4952    Write  a  record. 

Read  the  record  (forward)  but  set  the  dx20  byte  count  to  one  more  than 

The  actual  size  of  the  record. 

If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

Check  that  an  error  is  detected  with  ec  =  2. 

Industry  compatible  mode 

5026    *»♦»»♦♦♦♦♦♦*»♦♦♦♦♦♦*♦♦♦*♦*♦♦*♦*»**♦*♦**♦♦♦♦♦♦*•***♦»*♦♦**♦***♦*♦*♦**♦* 

DFDXD  ♦  TEST  39  ♦     SHORT  RECORD  READ  REVERSE  TRANSFER 

5036    Write  a  record. 

Read  the  record  (reverse)  but  set  the  dx20  byte  count  to  one  more  than 

The  actual  size  of  the  record. 

If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

Check  that  an  error  is  detected  with  ec  =2. 

Check  that  'exception'  is  set  in  rh20  coni  status. 

DFDXD  *  TEST  40  «     LONG  RECORD  READ  FORWARD  TRANSFER 

5107    Write  a  record. 

Read  the  record  (forward)  but  set  the  dx20  byte  count  to  one  less  than 

The  actual  size  of  the  record. 

If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

Check  that  an  error  is  detected  with  ec  =  3. 

Industry  compatible  mode 

5181    »♦♦♦♦♦♦♦♦*♦♦♦»♦♦♦♦♦»♦♦♦♦♦♦♦♦♦♦♦*»♦»»»»♦♦♦♦♦♦♦♦♦♦♦»♦♦♦♦♦♦•♦♦♦♦♦♦*♦♦♦»♦♦ 

DFDXD  ♦  TEST  41  ♦     LONG  RECORD  READ  REVERSE  TRANSFER 

5191    Write  a  record. 

Read  the  record  (reverse)  but  set  the  dx20  byte  count  to  one  less  than 

The  actual  size  of  the  record. 

If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

Check  that  an  error  is  detected  with  ec  =3. 

Check  that  'exception*  is  set  in  rh20  coni  status. 

Industry  compatible  mode. 
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DFDXD  *  TEST  42  *     READ  FORWARD  LARGE  TRANSFER 

5271  Write  and  read  forward  the  largest  possible  xfer,U7777  bytes. 

If  9  trk,  set  pe  mode,     if  7  trk,  set  800  bpi  nrzi  mode. 
Core  dump  mode 

53"^5  Industry  compatible  mode 

5380  Six  bit 

5425  7-Bit  ascii 

5470  High  density  mode 

5516    »♦♦♦♦*♦♦♦♦♦♦♦♦♦*♦♦*♦♦***♦♦♦♦♦♦♦*♦♦♦**♦♦♦♦♦♦**♦**♦♦♦♦******♦*♦*♦**♦*♦♦» 

DFDXD  ♦  TEST  43  *     READ  REVERSE  LARGE  TRANSFER 

5526    Write  and  read  reverse  the  largest  possible  xfer,  \77777   bytes. 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Core  dump  mode 

5580  Industry  compatible  mode 

5619  Six  bit 

5658  7-Bit  ascii 

56^7  High  density  mode 

5738    ♦♦♦♦♦♦*♦*♦♦♦♦♦♦♦*♦**♦♦♦♦♦**»♦*»»»♦♦♦♦♦♦♦♦♦♦♦*»♦♦**»*♦♦»**♦♦*♦♦*»**♦*♦♦ 

DFDXD  *  TEST  44  ♦     READ  FORWARD  MULTIPLE  BLOCK  TRANSFERS 

5748    Do  write  and  read  forward  xfers  of  2,3-4.5  blocks  (records). 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Industry  compatible  mode 

DFDXD  ♦  TEST  45  ♦     READ  REVERSE  MULTIPLE  BLOCK  TRANSFERS 

5833    Do  write  and  read  reverse  xfers  of  2,3.4.5  blocks  (records). 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Industry  compatible  mode 

DFDXD  •  TEST  46  ♦      TIE  REQUEST 
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5905    Write  a  record.  ... 

Do  a  read  forward  of  that  record  with  tie  request  set. 
Check  that  the  tie  request  bit  aets  cleared  after  the  read. 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Industry  compatible  mode 

5975    SUBROUTINES 

*••*•♦ t *•♦♦••♦*•♦**••***♦***♦•***♦** ^ ********************* ******* 
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SEQ  0066 


5977 
5990 
6004 
60A9 
6065 


6132 
6205 


this 
a 
sense 


Load  the  operational  micro-code. 

Start  the  operational  microcode 

"Setup"  initializes  the  rh20  and  dx20  before  each  test. 

Attempt  to  get  the  mp  running  aqain.  if  can't,  abort  diag. 

Tape  operations  uuo  handler 

All  tape  commands  are  loaded  by  this  routine  which  is  called  by  uuo. 
The  uuo  command  code  identifies  the  tape  operation  to  be  executed. 
Code  corresponds  to  the  value  of  'function+go'  for  the  tape  command. 
Special  bit,  'frcsns',  in  the  uuo  command  code  is  set  if  a  forced  se 
Operation  is  to  be  requested. 

For  data  xfer  commands  the  following  parameters  must  be  setup  prior  to 
Calling  this  routine. 

Blokct  =  block  (record)  count  for  the  xfer 

Rept  =  data  pattern  code 

Repti  =  word  count  index  .   ^^  ^,^ 

Dmode  =  data  mode  (bits  20-23)  and  drive  mode  (bits  2h'27) 

Shtrec  =  this  flag  is  set  if  forcing  short  record  error 

Lngrec  =  this  flag  is  set  if  forcing  long  record  error 

Tiereq  =  this  flag  is  set  if  want  tie  request  done 

Pwdxfr  =  this  flag  is  set  if  repti  contains  byte  count  index 

The  following  flags  are  setup  for  use  by  later  routines 

Forsns  =  set  if  forced  sense  operation  was  requested 

Snscmd  =  set  if  tape  command  is  a  sense 

Xfrcmd  =  set  if  tape  command  is  a  data  xfer  command 

ndcomd  =  set  if  tape  command  is  a  read  command 

Rdfwd  =  set  if  tape  c  imand  is  a  read  forward 

Rexcmd  =  set  if  tape  ' jmmand  is  read  extended  status 


Setup  to  do  a  data  xfer  operation 

Status  checking  routine 
Th'         p     .        ^ 

E 


his  routine  cnecks  status  after  completion  of  a  tape  operation, 
rror  is  found,  the  appropriate  error  bit  In  'errfnd'  is  set. 
The  following  items  are  checked: 
Rh20  coni  status 
Rh20  logout  status  word  1  (xfer  cmds  only) 


if  an 
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Data  buffer  (read  xfers  only) 
Dx20  status  reg  (dxstr) 
Dx20  error  reg  (dxerr) 
Taoe  drive  status  (in  dxgpO) 
Dx20  flags  reg  (dxgp3) 
Sense  bytes  (if  they  were  read) 

Reading  of  the  sense  bytes  by  microcode  is  inhibited  by  tape  drive  dxbusy 
Status  or  by  errors  of  class  4,6*7,8.  hence,  sense  bytes  are  not  checked 
Under  these  conditions. 

The  following  parameters  must  be  setup  prior  to  calling  this  routine: 
Drvexp  =  the  expected  tape  drive  status 
Dxerex  '   the  expected  dxerr  status 

The  following  flags  which  were  setup  by  tapuuo  are  interpreted  by  this  routine. 
Tiereq,  forsns,  rexcmd,  snscmd,  xfrcmd,  shtrec,  Ingrec,  rdcomd 

6383    Routine  to  check  sense  bytes  with  expected  sense  byte  status. 

6403    Routine  to  read  extended  status 

6442    Routine  to  fill  data  buffer  with  a  data  pattern 

Buffer  is  at  buf1  ..     .  .  ^ 

Enter  with  ac2  containing  ♦  word  count  or  byte  count  if  partial  xfer 
Ad  containing  data  pattern  code 

6525    Routine  to  compare  data  in  buffer  with  data  pattern  specified 
Buffer  starts  at  bufl 
Enter  with 

'Words'  containing  positive  word  count 

*Dpat'  containing  data  pattern 

6592    •\rfait"  waits  for  the  dx20  to  complete  an  operation. 

6668    Rewind  routine. 

6758    Time  calculation  routine 
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SEO  0068 


6819    STATUS  PRINTER 


6822 


6873 
6892 
6920 
6940 
6953 
6969 
6990 


This  routine  is  called  as  an  additional  error  print  routine. 
The  folloying  is  the  general  format  of  the  printout: 
Actual: 

Rh20  coni  status 

Rh20  logout  status 

Rh20  ccw  list 

Dx20  nassbus  registers 

Dx20  extended  status 
Expected: 

Rh20  coni  status 

Rh20  logout  status 

Dx20  massbus  registers 
Actual: 

Sense  bytes 
Expected: 

Sense  bytes 

Data  errors 

The  logout  status  and  ccw  list  are  printed  only  for  data  xfer  commands. 
The  data  errors  are  printed  only  for  read  xfer  commands. 
The  sense  bytes  are  printed  only  if  they  were  read. 

If  console  switch  22   is  set  then  all  data  errors  will  be  printed,  else. 

Only  3  lines  of  errors  will  be  printed. 

If  switch  23  is  set  then  all  available  status  will  be  printed,  else* 

Only  the  status  in  error  will  be  printed. 

If  switch  24  is  set  then  all  status  will  be  printed  in  octal,  else. 

Full  descriptions  of  all  status  will  be  given. 

Print  the  rhtO  coni  status 

Print  the  rh20  logout  status 

Print  the  rh20  ccw  list 

Print  the  dx20  control  reg  (dxctr) 

Print  the  dx20  status  reg  (dxstr) 

Print  the  dx20  error  reg  (dnerr) 

Print  the  dx20  maintenance  reg  (dxmtr) 
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7003  Print  the  dx20  gp  reg  0  (dxgpO) 

7022  Print  the  0x20  gp  reg  1  (dxgpD 

7035  Print  the  dx20  gp  reg  2  (dxgp2) 

7048  Print  the  dx20  gp  reg  3  (dxgp3) 

7071  Print  the  dx20  gp  reg  4  (dxgp4) 

7115  Print  the  dx20  gp  reg  7  (dxgp7) 

7128  Print  the  dx20  ir  reg  (dxdrO)  CO. 5] 

7141  Print  the  dx20  pc  reg  (dxdrl)  CO. 53 

7154  Print  the  dx20  extended  status  (if  it  was  read) 

7169  Print  the  sense  bytes  (if  they  were  read) 

7188  Print  sense  bytes  in  octal 

7207  Print  sense  byte  descriptions 

7237  Check  error  bits 

7291  Print  tu  status 

7310  7-Trk,  bot,  wr  status  and  protected 

7329  Track  in  error 

7345  Density  and  direction 

7364  Ti,  Iwr,  sub-system,  diag  mode  and  rpq  (txOI) 

Ti,  Iwr.  sub-system,  rpq,  7-trk,  dd  drive,  not  1600 

7415  Tape  unit  model  identification 

7431  Data  security  erase 

7447  6250  Tcu  (tx02  controller  only) 

7464  Tcu  reserved 

7480  Cu  features 

7496  Control  unit  serial  number 


SEO  0069 


(tx02) 


1_ 
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7511  Tu  serial  number  (tx02  controller  only) 

7536  2  Channel  switch  feature 

7551  Switch  features 

7568  Tcu  diagnostic  release  level 

7584  Tu  ec  level  (tx02  controller  only) 

7599  Units  with  busy  status 

7631  Mod  iv  bit  (tx02  controller  only) 

7659  Print  data  errors  if  there  were  any.  if  a  write  xfer,  print  data  pattern. 

7674  If  intervention  req'd  bit  was  set  in  sense  byte,  abort  this  pass. 

7698    Status  bit  description  printer       , 

Call  with  address  of  description  table  in  0 
Status  bits  in  ac11  left  justified 
-1  In  sepr  if  no  separator  characters  wanted  on  first 
Carriage  position  in  caret 

To  get  expected  status  printed,  set  c (expect)  not  equal  to  zero 
Expected  status  bits  in  ac  (left  justified) 

This  routine  uses  0,ac2,ac11,ac12,ac3 

7740    Print  separator 

Print  comma  then  space  if  a  message  of  length  specified 

By  c(ac3)  will  fit  in  currentaiine 

Print  carriage  return  then  six  spaces  if  message  will  not 

Fit  in  current  line.  .    .   _. 

Update  caret  to  show  position  of  carriage  after  message  is  printed. 

This  routine  uses  ac3 

7765    Compute  length  of  sixbit'z  string  pointed  to  by  address  in  c(0). 
Put  result  in  ac3 

7798  Merge  the  error  bits  from  the  first  11  sense  bytes  (txOI) 

7825  Merge  ti,  sub-system,  diag  mode  and  rpq 

7839  Merge  error  bits  from  first  7  sense  bytes  (tx02) 

7871  Merge  the  error  bits  from  sense  bytes  8-11  (tx02) 

7889  Merge  ti,  Iwr,  sub-system,  rpq,  7-trk,  dd  drive,  not  1600 


SEQ  0070 


DFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  *"   DECDOC  VER  00.25    6-APR-85  18:46:18 

7906    This  routine  prints  the  four  8-bit  bytes  in  a. 

If  the  remaining  A  bits  are  not  zero, they  are  also  printed. 
This  routine  uses  0,acl.ac2 

7923    Sense  byte  bit  descriptions 

8033    This  routine  prints  the  data  errors  which  occurred  during  a  read  xfer. 

8218    This  routine  prints  the  extended  status. 

8300    Print  an  octal  number  in  a  field  of  size  x. 
Call  is:  pntnum  x,adr 

8344    Data  pattern  table 

8366    Word  counts  for  all  data  transfer  loops 

8380    Byte  size  for  all  partial  word  transfer  loops 

8432    SAVE  AND  RESTORE  AC  ROUTINES 

8435    This  routine  will  save  all  ac's  for  the  tape  op  uuos 

8448    This  routine  will  restore  all  ac's  after  a  tape  op  uuo 

8474    This  is  the  common  code  area  for  the  dx20  diagnostics,  this  code  applies 
To  dfdxc,  the  dx20  test;  dfdxd,  which  tests  the  basic  tape  operations; 
And  dfdxe  which  is  the  tape  reliability  test. 

!!!!!Warning!!l!! 
If  you  change  anything  here,  make  sure  you  know  that  the  other  tests 
Might  be  affected. 

8689  Get  topslO  version  number 

8717  Read  the  dx20  microcode  version  into  ad 

8738  Print  dx20  u-code  version  from  ad 

8768  Print  test  number 

8830    Control  c  interrupt  handler 

8858  Control  c  intercept  tables 

8V94  Print  all  dx20  info 

9044  This  routine  prints  the  test  pass  count 
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SEQ  0071 
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SEQ  ^12 


9056 


REPEAT  LOOP  ROUTINE 

9058   Setrep  -  -  setup  number  of  repeat  loops 

This  routine  sets  c(reptu)  with  the  number  of  test  . 

Iterations  it  will  do.  if  reliability  switch  is  0  it 

Does  only  one  iteration  of  a  test. 


9072 


Uuo-routine  to  determine  which  register  to  load  or  read 


9171 


CONTROL  BUS  TIMEOUT  ERROR  HANDLER 


9173 


92K 


9257 
9268 
9280 


Cbtoer  —  routine  to  fit'.d  unexpected  cbto's 

This  routine  is  used  to  field  and  report  unexpected  control 

Bus  timeouts  when  loading  or  reading  device  registers,  a 

Cbto  is  unexpected  after  the  demand-transfer  logic  has 

Been  tested,  this  routines  only  option  is  to  report 

The  fact  that  the  error  occured. 

This  routine  must  also  put  in  a  device  request  since  the  rh 

May  have  been  given  up  for  error  reporting. 


Call  seq: 

Go     cbtoer 
Return 


;call  the  routine 
; returns  here 


Cparer  —  field  and  report  unexpected  Ctrl  bus  p.e.*s 
This  routine  is  used  to  field  and  report  control  bus  parity 
Errors  that  happen  to  occur  after  the  control  bus  parity 
Logic  has  been  tested  and  assumed  operational,  the  only 
Option  of  this  routine  is  to  report  the  fact  that  the 
Parity  error  occured. 

The  routine  will  also  have  to  do  a  device  request  since 

The  rh  was  given  up  to  report  the  error. 


Calling  seq: 

Go     cparer 
Return 


;call  the  routine 
; returns  here 


Uuo  routine  to  execute  an  instruction  from  the  ir 

Uuo  to  load  an  instruction  into  the  cram 

Uuo  routine  to  repeat  test  or  cause  test  to  loop  if  got  composite 
Error, parity  error,  or  control  bus  time  outs 
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SEQ  0073 


9288 

9290 


9319 


USER  MODE  UUO  SUPPORT  ROUTINES 


Settrp  -  -  patches  uuotst  into  subr  pkg  uuo  handler. 
This  routine  does  nothing  in  exec  mode,  in  user  mode  it  modifies 
The  subroutine  pkges  uuo  handler  to  execute  a  routine  called 
"Uuotst"  each  time  the  pgm  executes  a  uuo  and  then  passes 
Control  to  the  subroutine  package  for  normal  uuo  processing. 
Eg.    go     settrp  ;patch  In 
Rl 


ttn 


; returns  control  here 


9312 


Uuotst  -  -  routine  to  test  for  control  c  prior  to  executing  a  uuo. 
This  routine  Is  run  each  time  a  uuo  Is  executed  provided  settrp 
Was  previously  called,  (after  pgmint). 


CONFIGURATION  MODULE 


9321    Config  -  -  system  configurator 

This  routine  determines  which  controllers  and  dx20's  are 

On  the  system  and  then  allows  for  the  selection  of  which 

Ones  are  to  be  tested  by  the  diagnostic.        _  ,  ^^. 

If  switch  19  Is  not  set  the  diagnostic  will  test  all  dx20's 

That  are  available  (exec  mode  only). 

This  routine  also  calls  a  routine  to  set  up  the  proper  diagnostic 

Monitor  call  via  a  uuo  or  jsys  based  on  monitor  type. 

9412    RHTST  -  -  EXEC  MODE  SCAN  FOR  AVAILABLE  CONTROLLERS 

94U   This  routine  determines  which  controllers  are  available. 

A  controller  Is  present  and  useable  only  after  2  conditions  are  met. 

1.  An  rhclr  can  Initialize  It  to  where  no  error  conditions  persist. 

2.  Must  be  able  to  set  the  pi  address  to  7  and  read  It  back  successfully. 
Failure  to  complete  either  of  these  basic  operations  will  cause  the 
Program  to  disallow  the  use  of  the  controller. 

9478   Drvtst  -  -  scans  for  available  dx20's 

This  routine  determines  which  dx20*s  are  on  the  available 
Rh*s  and  sets  up  "devtbl"  accordingly. 
It  is  possible  to  detect  dx20*s  only  on  controllers 
That  have  been  previously  detected,  a  dx20  will  be 
Reported  only  if  the  program  can  successfully 
Read  the  dx20's  "drive  type"  register  and  if  the 
Type  is  one  of  the  valid  device  drive  types. 
Uses  ot  the  ac's  during  this  routine 
Ac     function 

Not  used 

Scratch 

Entry  from  proper  table 
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SEO  Q07^ 


3 
4 


Pointer 
Pointer 


to  devtbl 
to  rhtbl 


9554 


Tell  —  configuration  reporter 

This  routine  scans  rhtbl  %   devtbl  telling  which  dx20*s 

And  controllers  ore  available. 

Use  of  the  ac's  during  this  routine 
Ac     function 

Used  for  printing 

A  flag 

Entry  from  the  current  table 

Index  into  devtbl 

Index  into  rhtbl 


9640 


Askrh  -  -  inputs  controller  #'s  to  be  tested 

'   ^  *-"  of  numbers 
available. 


Allows  for  the  input  of  a  strina  of  numbers  separated  by  commas 
Or  the  character  *a"  meaning  all 


9744 


9848 


Uses  of  the  ac*s  duriri^  this  routine 
Ac     function 

Used  for  printing 

Scratch 

Holds  entry  from  proper  table 

Not  used 

Index  into  rhtbl 

Askdr  —  inputs  dx20s  to  be  tested 
Inputs  a  string  of  dx20  numbers  separated  by  commmas 
Or  will  also  accept  the  character  V  for  all  dx20s 
That  are  available. 

Uses  of  the  ac's  during  this  routine 

0     Used  for  printing 

Scratch 

Holds  entry  from  proper  table 

Index  into  devtbl 
4     Index  into  rhtbl 

Rngchk  —  routine  to  range  test  rh  device  codes 
This  routine  tests  the  low  order  9  bits  of  acO  for  a  valid  rh 
Device  code  and  branches  accordingly,  the  non  skip  return  is 
Taken  either  if  the  device  code  is  illegal  or,  the  subroutine 
Package  flag  "ttnbrf"  indicates  that  the  user  has  hit  the 
Delimiting  character  before  entering  the  number,  in  either 
Case,  acO  is  returned  unmou^'fied. 


Calling 


sequence: 

Go     rngchk 

Rtn-1 

;out 

Rtn-2 

;ok 

of  range 
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9889 


Constants  and  variables  for  configuration  module 
Bit  meaninas  for  rhtbl        ^.    ^   ..... 

Bit  15  =  0  no  catastrophic  probs  witK  this  rh 
Bit  15  =  1  can't  allow  using  this  rh.  (its  sick) 


SEO  0075 


Bit 

16  =  0 

Bit 

16  =  1 

Bit 

17  =  0 

Bit 

17  =  0 

Bit 

17  =  1 

will  not  be  selected  for  ♦•est 

will  be  tested 

rh  does  not  appear  to  exist 

rh  does  not  exist 

rh  is  on  the  system 


Bit  meanings  for  devtbl 

Bit  16  =  0  dx20 

Bit  16  =  1  dx20 

Bit  17  =  0  dx20 

Bit  17  =  1  dx20 


will  not  be  tested 

will  be  tested 

does  not  appear  to  exist  on  rh 

was  detected  on  the  rh 


9939 


9914         Incrh  —  routine  to  increment  mbcn  properly 

This  routine  increments  mbcn  properly  to  get  it  set  for  the  next 
Controller,  it  is  necessary  because  of  the  staggered  rh  device 
Codes  that  have  been  assigned. 

DEVICE  SELECTION  AND  PROGRAM  TRACE  ROUTINES 


9941 


Devsel  —  device  selection  routine  #1 
This  routine  will  allow  for  the  selection  of  the 
Next  available  dx20/controller  pair  to  be  tested,  its 
Decisions  are  based  on  the  current  state  of  mbcn  and 
Dx20  alona  with  information  from  bit  16  from  the  app- 
Ropriate  devtbl"  entry,  the  standard  algorithim  for 


Ropriate  "devtbl"  entry,  the  standard  aLg( 

Testing  will  be  done  by  selecting  all  dx20's  on  a  particular 

Controller  before  advancing  to 


ng  i 
the 


next  controller. 


Calling 


seq: 
Go 
Rtnl 
Rtn2 


devsel 


.-select  next  dev  for  test 
;tried  all.  first  re-selected 
;next  is  selected. 


L. 
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SEQ  0076 


CONTROLLER  INITIALIZATION  ROUTINE 


Hstclr  —  rh  master  clear  routine 
This  routine  does  the  foUowina: 

1.  Clears  all  possible  errors  Tissues  an  rhclr) 

2.  Will  allow  attn's  to  be  seen  in  the  coni  if  rhIO 
(Issues  an  attnen) 

3.  Clears  m-box  errors  (rh20  only)  (issues  rclp) 
A.  Enables  rh20  transceivers  (issues  mbe) 


Calling  seq: 
Ldreg   dxmtr^dxres 
Return 


; issue  dx  reset 

; returns  here  always 


10015 


SOME  TTY  INPUT  UTILITY  ROUTINES 


10017 


10038 


Qstn  —  routine  to  input  answers  (y  or  n)  and  branch 
This  routine  automatically  outputs  the  "y  or  n"  promt  msg. 
Calling  sequence: 

Go     qstn  .-call  the  routine 

Rtn-1  .-timeout 

Rtn-2  ; answer  was  a  no 

Rtn-3  .-answer  was  a  yes 


Numin  —  input  and  range  test  a  convertable  number 

The  limits  are  inclusive  and  are  specified  by  acO  of  the 

Multiple  returns  are  supplied  for  branching. 


call. 


Calling  seg: 

Move    O.Llim1,.lim2] 

Go     numin 

Rtn-1 

Rtn-2 

Rtn-3 


.-specify  the  limits 

.-call  the  routine 

; timeout,  no  response  (acO  unchanaed) 

; illegal  or  out  of  range  (acO  uncnanged) 

;normal.  (36  bit  num  in  acO) 


>4 
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SEQ  0077 


10079 


GENERAL  PRINT  UTILITIES 


10081 


Telyho  —  prints  current  dx20  and  controller  number 

This  routine  prints  "dx20-x  rh-xxx"  W'.hout  any  line  cont 


roU 


10122 


.  .  _  pr 

This  routine  is  primarily  used  to  identify  the 

Device  in  the  operator  interventior  riessages. 

Calling  seq:  ... 

Go     telwho  ;call  the  routine 

Rtn  ;the  return        • 

10103         Charin  —  routine  to  input  a  specific  char  from  the  tty 

Calling  seq: 

Hovei   0-char  .-specify  the  character  you  want 

Go     charin  :go  and  do  input 

Rtn-1  ;no  response,  timeout 

Rtn-2  ;wrong  character  (acO  holds  char) 

Rtn-3  .-correct  char  (acO  holds  char) 

MASSBUS  CONTROLLER  UTILITY  PKG 


10125 


1. 

2. 
3. 

4. 
5. 


6. 


7. 


Notes  on  i/o  routine  design 

All  code  in  this  file  is  re-entrant 

With  the  exception  of  the  user  mode  stuff  which  need 
Not  be  since  the  pi  system  cannot  be  used  in  user  mode 

The  routines  expect  to  find  the  dx20  number  in  an  ac  labled 
"Drive"  bits  33-35  . 

The  routines  will  expect  to  find  the  controller  device  code 
In  an  ac  labled  Imbcn"  (massbus  controller  number) 
Bits  3-9 

No  ac's  are  modified  unless  they  return  data. 

There  is  a  global  software  flag  called  "shmode"  which 
Overrides  and  works  functionally  identical 
To  the  short  printout  switch  "txtinh".  this 
Is  a  convenient  way  for  the  software  to  force 
The  diagnostic  ^'nto  octal  output  mode. 

If  in  (exec  mode)  with  an  rh20  it's  necessary  for  the  chan  routines 
To  do  a  limited  amount  of  paging,  this  is  accomplished  by  setting 
Up  a  location  called  "cbase  to  be  a  paged  address  of  ^  .  the 
The  routines  will  then  work  properly. 

Tnis  pkg  has  been  constructed  to  work  correctly  with  the  das-33 
Extended  status  feature  if  in  exec  mode,  rr.onitor  does  not  support 
The  feature  in  user  mode. 


r 


b5 
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8.    RhIO's  yill  default  to  location  100  for  their  kwa.  to  change 
The  default  address,  write  the  desired  adr  into  locations 
IcwaO  thru  icwa5.  there  is  one  location  for  each  of  the  possible 
RhIO's  (up  to  6) 
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10160   REGISTER  LOAD  AND  READ  ROUTINES 


10163 


10285 


nassbus  device  register  load  routines  specification: 

Device  registers  dre   loaded  by  setting  up  ad 
With  some  appropriate  argument  and  then  calling  the  correct 
Routine  witn  a  pushj.  the  routines  have  a  normal  return  and  an  error 


Return. 


Eg. 


move 
Go 
Rtnl 
Rtn2 


ac1«foo 
Idrg 


:get  some  argument 

;rae  detected  after  the  load 
:load  was  successful 


Ad: 
Spec  i  f y 
Specify 


register  data  in  bits  20-35 

garity  mode  bit  18 
Means  odd 
1  Means  even 
Specify  software  option  bits  13-14 
Bit  13=0      clear  rae's 
Bit  13=1      don't  clear  rae's 
Bit  14=0       report  rae's 
Bit  14=1       don't  report  rae's 
Specify  register  number  in  bits  0-5 

Status: 

If  no  errors  are  detected*  ad  is  returned  as  it  was 

Specified  except  for  the  register  and  drive  fields  which  will  have 

Been  supplied  by  the  routine. 

Ad  on  return  from  an  rhIO  error  holds  the  present  value 

Of  the  dib.  ad  on  return  from  an  rh20  error  holds  the  datao  argument 

That  caused  the  rae. 

Massbus  device  register  read  routines 
Specification: 

Device  registers  are  read  into  ad  by  setting  up  some  argument 
In  ad  ana  then  calling  the  correct  routine  with  a  pushj  . 
The  routines  have  a  normal  return  and  2  error  returns. 


Eg. 


move 

Go 

Rtnl 

Rtn2 

Rtn3 


ac1,foo 
rdrg 


some  argument 

;rae  due  to  Ctrl  buss  timeout 
;rae  other  than  ctrl  buss  timeout 
;read  was  successful 


SEQ  0078 


Ad: 

Specify  parity  mode  bit  18 
Means  odd  parity 


8 


r 
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1  Means  even  parity 
Specify  software  option  bits  13-U 

Bit  13=0       clear  rae's 

Bit  13=1       don't  clear  rae's 

Bit  U=0       report  rae's 

Bit  14=1       don't  report  rae's 
Specify  register  number  in  bits  0-5 

Status: 

'"^on  completing  a  register  read,  all  36  bits  of  the  dib  reg  (rhIO)  or 
I    "eg  (rh20T  are  returned  in  ad.  the  error  returns  are  taken  if  an  rae  is 
Dett   a  by  the  controller  during  the  r^ad   operation,  the  conditions 
That  cduse  the  rae  are  different  for  the  rhID  than  rh20  and  may  be 
Analyzed  based  on  the  status  from  ad. 


SEQ  0079 


10395 


10435 


Routines  for  writinq  rhIO  internal  registers 
There  are  4  internal  regs  that  can  be  writte 
Call  to  the  proper  subroutine. 


en  into  with  a 


Entry  points  are: 

Ldcr 

Ldiar 

Lddbuf 

Lodrae 


;load  thr  control  reg 

;load  the  interrupt  address  reg 

;load  the  data  buffer  register 

;loau  the  rae  reg 


Arguments  are  passed  in  ad.  bits  are  defined  exactly 
As  in  the  rhIO  spec,  the  routines  return  to  calUI  always 


Eg. 


move 

Go 

Return 


ad.arg 
lodrae 


;get  the 
;want  to 
.•returns 


data 
load 
here 


the  rae  reg 


Routines  for  reading  rhIO  internal  registers 

There  are  6  internal  rhIO  registers  tnat  can  be  redd 

Into  ad  with  a  call  th  the  proper  subroutine,  the  routines 

Return  to  call+1  always. 

The  entry  points  are 
Rddib 


Rdrae 

Rdiar 

Rddbuf 

Rdcr 

Rdcbuf 

Note:  - 


;read  the  dib  register 
;read  the  rae  register 
;read  tfie  interrupt  register 
;read  the  data  buffer  register 

;read  the  transfer  register 
;read  the  channel  buffer  register 
-  the  channel  buffer  reg  is  36  data  bits  ••^'ae 
Unlike  the  other  registers  in  the  rhIO.  because 
Of  this  property,  tne  register  number  is  not 
Returned  as  part  of  the  data. 


Eg. 


8 


0 

eturn 


rdiar 


;read  the  cuf^rent 
; return  here 


interrupt  adr 


mtm 


DFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  "   OECDOC  VER  00.25    6-APR-85  18:46:18   PAGE  35 


10A80 


10524 


10565 


Routines  for  writing  rh20  internal  registers 
There  are  5  internal  registers  in  the  rh20  that 
Uriteable  with  a  call  to  the  proper  subroutine. 


are 


The  entry  points  are: 

Ldsbar 

Ldstcr 

Ldivrg 

Lddcr 

Ldwtrg 


;load  the  secondary  block  addr  register 
;load  the  secondary  transfer  control  register 
;load  the  interrupt  vector  register 

;load  the  diagnostic  control  register 
;load  the  write  register 


Arguments  ^re   passed  in  ad  and  the  bits  are  defined  exactly 
As  seen  in  the  rh20  spec. the  routines  return  to  calUI  always. 


Eg. 


move 
Go 

Return 


acKarg 
ldivrg 


;some  argument 

;load  the  interrupt  vector  reg 

.•return  here 


Routines  for  reading  the  rh20  internal  registers 

There  are  6  internal  registers  within  the  rh20  that  can  be 

Read  by  means  of  a  call  to  the  proper  subroutine. 

The  registers  are  read  into  ad  andthe  routines  return  to 

CalUI  always. 


The  entry  points  are: 

Rdsbar 

Rdstcr 

Rdpbar 

Rdptcr 

Rdivrg 

Rdrdrg 


;read  the  secondary  block  addr  reg 

;read  the  secondary  xfer  Ctrl  reg 

;read  the  primary  block  addr  reg 

;read  the  primary  xfer  Ctrl  reg 

;read  the  interrupt  vector  reg 

;read  the  read  register 


The  bits  are  defined  exactly  as  in  the  rh20  spec 


Eg. 


re 


turn 


rdivrg 


;read  current  interrupt  address 
; address  is  in  ac1 


Controller  cono,coni.conso,consz  (i/o)  routines  specifications: 

These  routines  are  used  to  perform  the  various  conditions  operations 

To  massbus  controllers,  ic^   is  used  for  argument  passing,  .coni  is  the  only 

Routine  of  the  4  that  will  ;I.er  ad.  the  cono  routine  is  designed  to  allow 

The  user  to  attempt  lo   set  ."-'is  in  the  same  call  as  doing  an  rnclr.  this 
Routine  will  execute  that  type  of  operation  correctly. 


Eg. 


move 

Go 

Return 

Go 

Return 

Move 
Go 


ac1,foo 
.cono 


.com 

ac1,foo 
.consz 


;some  conditions  for  a  cono 

;the  call 

;cono  has  been  completed 

;want  to  Jo  a  com' 
;coni  data  is  in  ad 

;a  mask  for  a  consz 

;the  call  (no  status  is  returned) 


SEQ  0080 
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Return-1 
Return-2 

Hove   acKfoo 
Go     .conso 
Return-1 
Return-2 


;not  all  bits  zero 
;all  bits  are  zero 

;a  mask  for  a  conso 

;the  call  (no  conditions  are  returned) 

;no  bits  are  one 

;at  least  one  bit  is  a  one 


SEQ  008' 


♦♦♦♦♦♦♦♦♦ i********************************************* .»»♦♦♦»»♦♦ 

10623   DATA  CHANNEL  SUBROUTINES 

10626   Routines  to  interface  with  a  channel 

There  are  5  routines  available  for  interfacing  with 
A  data  channel  whose  characteristic  differences 
Become  transoarent  to  the  user. 


Name 

Chinit 
Genccw 
Get  loo 
Logpnt 
Ccwpnt 


function 

initialize,  re-sync  hardware  and  software 
generate  a  list  of  ccw's  in  core 
snapshot  logout  data  to  a  core  buffer  area 
print  channel  logout  data 
print  a  ccw  list  from  memory 


Notes  on  initial  control  word  addr. 

yith  each  controller  is  an  associated  channel  #. 

The  channel  routines  default  to  the  followina  (exec  mode) 

Initial  control  word  addresses  for  each  of  the  channels. 


Type 

dev.  code 

Rh20 

540 

Rh20 

544 

Rh20 

550 

Rh20 

554 

Rh20 

560 

Rh20 

564 

Rn20 

570 

Rh20 

574 

chan  # 


icw-adr 

QOO(icwaO) 
004(icwa1) 
010(icwa2) 
014(icwa3) 

820(icwa4) 
24(icwa5) 
030(icwa6) 
034(icwa7) 

The  rh20  zero  fill  words  are  located  at  ept  locations 
060  Thru  063  these  locations  are  set  to  zero 
By  "chinit"  if  running  in  exec  mode 

Channel  initialization  routine 

Specification: 

This  routine  synchronizes  the  software  and  hardware  char  logK. 


Bg. 


Ad 


move 
Go 

Return 


1  argi 
chinit 


; setup  ac1 

;caU  the  routine 

;icwa  is  in  ad 


[ 
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Specify  (acDr  start  addr  of  channel  comiand  buffer 
Specify  (ad) I  size  of  the  channel  coMRand  buffer 
Note  -   for  figuring  out  the  size  of  the  cotMiand  word. 

Buffer  It  should  be  noted  that  the  genccw  routine 

Will  transfer  a  naximuiR  of  512.  words  per  ccw. 

5  Additional  words  should  be  allowed  for  as  overhead 


SEQ  0082 


1069A 


10713 


1.  Sets  up  the  intiial  control  word  with  the  proper  jump 

2.  Sets  up  various  software  paraiRS  for  channel  routines 

Clear  2nd  and  3rd  words  of  logout  area  if  in  exec  mode 
And  place  a  jump  to  command  list  in  the  ept. 
And  clear  the  zero  fill  locations  of  the  ept. 


Channel  command  word  generator 

Specification: 

This  routine  takes  a  pdp-10  word 


count  and  a  core  address  and  translates 


It  to  a  list  of  ccw's  in  a  command  ring  buffer  defined  at  init  time. 
It  returns  the  starting  address  of  the  list  within  the  ring,  and 
The  #  of  ccw's  for  this  transfer. 

This  routine  has  the  following  properties: 

-  A  maximum  of  512.  words  per  ccw  is  allowed  (1  page). 

-  No  ccw  will  transfer  accross  a  page  boundrv 

-  The  address  passed  to  this  routine  is  the  1st  addr  in  the 
User  buffer  that  data  will  be  transferred  into  or  out  of. 

*  Buffers  need  not  be  page  aligned  in  user  program 


Call  seq: 


Hove 

Move 

nove 

Go 

Return 


ac3,arg3 
ac2«arg2 
ac1,arg1 
genccw 


;a  zero  fill  specifier 
;pos  or  neg  word  count 
:an  addr  up  to  22   bits 
; build  the  command  list 
.•returns  here 


Ac  1 : 

Contains  a  22   bit  address  specifying  where  transfer  is  to  start. 


Ac2: 


Pos  or  neg  word  count  for  #  of  words  to  a 
A  neg  word  count  will  cause  the  routine  t 
List  (core  addr  decrements). 


10  to  or  from  the  device 
0  build  a  reverse  ccw 


Ac3: 

Not  meaningful  I  except  for  disks,  other  devices  should  zero  ac3. 

In  user  mode  under  topslO,  this  routine  will  clear  your  ac3  because  zero 

Fill  is  not  allowed  with  topslO  diag  uuo's.  a  positive,  non-zero,  word 

Count  will  cause  the  routine  to  assume  that  zero  fill  command  words  are 

Desired  in  the  list  and  the  appropriate  zero  fill  words  will  be  generated 

Essentially,  zero  fill  says  that  the  size  of  the  xfer  is  an  even  modulo 

Of  the  value  of  ac3.  extra  words  are  padded  with  zero's  supplied  by  the 

Channel  on  a  device  write  and  extra  words  are  thrown  away  by  the  channel 

On  a  device  read. 


r 
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The  following  methoa  is  used  to  calculate  the  number  of  words  of  fill: 
Filwds  =  ac3  -  x  where:  x  is  the  remainder  of  (abs  val  ac2)/ac3 

Return: 

On  return  ad  will  contain  the  following:-   ... 

(Ad) I  =  #  of  command  words  generated  by  the  routine 

(AcDr  =  points  to  the  first  word  in  the  list 

Functions  of  the  ac's  used  in  genccw  routine 
Ac    function 

0  Holds  remainina  size  in  words 

1  Ccw's  are  manufactured  in  this  ac 

2  Holds  the  current  core  adr  at  any  time 

3  Holds  the  logical  channel  number  (0-7) 

4  Holds  current  software  dp 

5  Holds  wast  avail  buffer  addr 

6  Holds  start  adr  of  ccw  list,,*  of  wds  in  list 

7  Holds  the  read  reverse  flag 

10  A  scratch  ac 

11  A  scratch  ac 

12  A  scratch  ac 
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SEQ  0083 


10767 


10785 
10801 

10810 
iud18 

10829 

10838 
10847 
10851 
10871 
10876 


Here  for  either  exec  mode  or  user  mode  under  tops20 

Set  up  read  reverse  flag  and  take  the  absolute  value  of  size  which 
Will  be  used  as  the  word  count  ... 

Calculate  the  number  of  zero  fill  words  required  (if  any) 

Here  because  the  users  wc=0  and  mi>t  now  check  for  and  set  up  for  the 
Possibility  that  he  wants  to  transfer  no  words  to  memory  but  instead 
Do  throw  away  operations  using  zero  fill  only. 

This  calculates  the  number  of  fill  words  (if  any)  when  there  is  also 
Some  words  being  transferred,  the  users  wc  not  0. 

Set  up  the  rest  of  the  ac's  for  use  by  this  routine  and  those  it  calls 

Check  direction  of  transfer  and  branch  to  proper  ccw  builder  routine 

Done  with  the  list,  time  to  clean  up  and  exit. 

This  is  the  dispatch  table  to  the  proper  ccw  builder 

Subroutine  grindf  builds  a  forward  transfer  ccw  list 

This  subroutine  is  called  from  genccw  and  uses  the  values  already  in  ac  s 

Functions  of  the  ac's  used  in  grindf  routine 

Ac    function 


I 


Holds  remaining  size  in  words 
Ccw's  are  manuractured  in  this  ac 
Holds  the  current  core  adr  at  any  time 
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3  Holds  the  logical  channel  number  0-7) 

4  Holds  current  software  dp 

5  Holds  last  avail  buffer  addr    ,  .  .  .. 

6  Holds  start  adr  of  ccw  list,,*  of  wds  in  hst 

7  No  longer  needed  by  genccw  and  may  be  used  as  a  scratch  ac 

10  A  scratch  ac 

11  A  scratch  ac 

10895  Code  to  set  ac3  to  number  of  words  that  remain  on  the  page 

10902  See  if  words  to  go  will  fit  in  this  ccw  and  process  accordingly 

10912  Here  because  number  of  wds  left  will  fit  in  the  remaining  space 

10924  Store  ccw  from  ad  in  buffer,  see  if  done  and  branch  accordingly 

10930   Subroutine  grindr  -  builds  a  reverse  transfer  ccw  list 

This  subroutine  is  called  from  genccw  and  uses  the  values  already  in  ac's 
Functions  of  the  ac's  used  in  grindr  routine 
Ac    function 

0  Holds  remaining  size  in  words 

1  Ccw's  are  manufactured  in  this  ac 

2  Holds  the  current  core  adr  at  any  time 

3  Holds  the  logical  channel  number  (0-7) 

4  Holds  current  software  dp 

5  Holds  last  avail  buffer  addr 

6  Holds  start  adr  of  ccw  list,,*  of  wds  in  list 

7  No  longer  needed  by  genccw  and  may  be  used  as  a  scratch  ac 

10  A  scratch  ac 

11  A  scratch  ac 

10949   Code  to  set  ac3  to  number  of  words  that  remain  on  the  page 

10958   See  if  words  to  go  will  fit  in  this  ccw  and  process  accordingly 

10968   Here  because  number  of  wds  left  will  fit  in  the  remaining  space 

10980   Set  reverse  xfer  bit  only  if  not  doing  zero  fill 

Store  ccw  from  ad  in  buffer,  see  if  aone  and  branch  accordingly 

10989    Rh20  ccw  store  routine 

1.  Puts  c(ac1)  in  ccw  buffer 

2.  Does  buffer  management 

3.  Counts  each  ccw  entered 

The  ccw  is  returned  an  ad  as  received  except  for 
The  "op-data"  bit  (bit-0)  which  is  set 


SEQ  0084 


'2 
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SEQ  0085 


11057 


11082 


11127 
11150 
11181 


Get  log  -  routine  to  snapshot  the  channel  logout  area 

This  routine  takes  data  from  the  channel  logout  area. 

And  places  it  in  a  core  buffer  so  that  the  logout  printer 

Will  work  correctly  in  user  mode,  it  zeros  the  logout 

Area  as  it  transfers  also,  this  routine  must  be  called 

Before  calling  logpnt.  ^    ^  ,     ^  ^   u  u 

Ad  contains  a  pointer  to  a  user  area  where  the  logout  data  should 

Be  placed,  if  ad  is  0  at  call  time,  no  data  is  put  in  user  area. 


Calling  seq: 

Move    1,arg 
Go     get  log 
Return 

Functions  of  the  ac's  during  getlog 
Ac    function 


;set  up  pointer 

; snapshot 

; returns  here  always 


0 
1 
2 
3 


Holds  data  to  be  transferred 

Pointer  to  actual  logout  area 

Counter  ft  pointer  to  buffered  logout  area 

Pointer  to  user  logout  area 


Replace  1st  and  last  words  of  logout  area  . 

They  contain  initial  iump  and  possibly  an  interrupt  vector 

1st  word  has  bits  34,35  both  clear 

Last  word  has  bits  34,35  both  set 

Channel  logout  printer 

Routine  prints  the  status  of  the  channel  at  logout  time. 
Logout  data  is  printed  from  a  buffered  area,  therefore, 
Getlog  should  be  executed  first. 


Eg. 


8 


0 

eturn 


logpnt 


; print 
;and  return 


Functions  of  ac's  for  logpnt 
Ac    function 

Used  for  printing 
Holds  ept  adr  for  current  word 
Points  to  current  buffered  word 
Holds  the  logical  channel  number 

Printer  for  initial  control  word  S  pointer  setup  routine 

The  rh20  status  word-1  printer 

Print  termination  word  from  the  logout  area 
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11218   Channel  command  list  printer 

Runs  through  core  printing  the  command  list  for  a  particular  transfer. 
Eg. 
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SEQ  0086 


11244 

11305 
11342 


11389 


move 

Go 

Return 


acKarg 
ccwpnt 


;4fcommand  wds,,addr  of  first 
; print 
;and  return 


Ad : 
If  ad  is  6  when  called,  return  is  immediate  specify  (acDr  address 
Of  first  command  word  specify  (ad) I  #  of  words  in  the  list. 
(These  params  were  returned  when  genccw  was  called) 


Functions  of  the  ac* 
Ac     function 


in  ccwpt  routine 


0  Used  for  print ino 

1  Holds  the  current  ccw 
A  scratch  ac 
Pointer  to  the  most  current  ccw 

4      Counter,  inited  to  expected  #  of  ccw's  o 
In  case  of  a  runaway  ccw  list. 

Code  to  check  for  the  special  ccw  list  print  case  when  your  running 
Under  topslO  in  user  mode  since  the  ccw  argument  list  is  non-standard 

Routine  to  interpret  the  channel  command  word  in  ad 


This  is  a  special  routine  to 
Call  when  running  under  tops 
A  pointer  to  the  single  ccw 
Of  the  form  -wc,-addr-1  for 
Transfers,  back  2  locations 
Function  code.  f=4  means  it 
A  reverse  list  and  should  be 
Handles  a  special  case  condi 
Knows  the  format  of  the  ccw 
It  is  necessary  because  tops 
To  old  dflO  style. 


Call 


seq: 
Move 
Go 
Rtn 


1,arg1 
ccwpTO 


grint  the  ccw  list  used  for  the  diag 
in  user  mode,  ad  is  expected  to  contain 
in  its  right  half,  there  can  be  ^nly  1  ccw 
forward  transfers  and  -wcaddr  for  reverse 
from  the  pointer  to  the  word  is  the  diag 
is  a  forward  list,  f=12  means  the  list  is 
printed  accordingly,  this  routine  obviously 
tion  and  is  makes  use  of  the  fact  that  it 
list  that  genccw  built  for  this  situation. 
10  requires  a  single  ccw  in  a  format  similar 


;1, -pointer  (to  ccw) 
;call  the  routine 
.•returns  here 


This  routine  expects  ad 

Following  way: 

AcKr)  =  pointer  to  first  word 
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Add)  =  #  of  yords  in  the  list  (50  or  less) 
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1U12 
11A17 
1U23 
1U35 
1U52 
11458 


11505 
11512 


Calling  seq: 
Hove    l/arg 
Go     chp20 
Return 


;#  of  words,, pointer  to  first 
;call  the  routine 
; returns  •»-1  always 


Get  the  logical  chan  M   to  ac3 

Range  check  the  word  count 

Word  count  ok.  set  up  pointer  I   xfer  to  argument  list 

Set  up  an  execute  diag  monitor  call 

Argument  list  for  channel  program  command 

ChpIO  —  builds  a  topslO  channel  command  list 
This  routine  is  used  to  build  a  topslO  channel  command  list 
Using  the  diag  uuo  monitor  call,  both  forward  and  read  reverse 
Command  lists  are  supported. 

For  a  forward  list  topslO  expects  1  word  of  the  form  -wc,,addr-1 
Where  i/o  is  to  take  place,  this  is  done  with  a  diag  function  4 

For  a  read  reverse  list  topslO  expects  1  word  of  the  form  -wc.addr 
Where  i/o  is  to  take  place,  this  is  done  with  a  diag  function  12 


Calling  sea: 
Move    ac1,arg1 
Move    ac2.arg2 
Go     chpIO 
Rtn*1 


.-start  addr  of  buffer  (first  location) 
;word  count  (♦means  fwd,  -means  rev) 
.-call  the  routine 

;rtn*1  always,  ad  contains  #  of  wds  irt 
;  Ccw  list  and  poir.ter  to  the  first 
;  For  compatability  with  ccwpnt 


Argument  list  for  topslO  diag  ccw  list  builder 

Oiaggl  —  get  logout  area  from  monitor  in  user  mode 
In  user  mode,  this  routine  executes  a  diagnostic  monitor  call. 
Function  -6,  which  moves  logout  data  to  the  argument  list. 
In  user  mode,  it  is  not  possible  to  get  das-33  ext  status. 


Calling  seq: 

Go     diaggl 
Return 


;call  routine 

;data  is  in  the  list 


11531    Argument  list  for  channel  status  snapshot  routine 


SEQ  0087 


75 
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11543 
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SEO  0088 


ROUTINE  TO  ENABLE  PROCESS  CAPABILITIES  IN  USER  MODE 


Enable  —  enable  capabilities  of  this  process 

First  read  capabilities  and  then  enable  them,  same  as 

Typing  *'ena"  from  exec  level. 

Call 


seq: 

Go 

Rtn 


enable 


:call 

; returns  here 


11564 


ROUTINE  TO  GET  IN  AND  OUT  OF  USER  lOT  MODE 


11567 


11586 
11593 
11600 
11616 
11625 


11640 


Usrion  -  usriof  —  turn  user  i/o  privs  on/off 

This  routine  does  nothing  in  exec  mode. 

Under  tops  20  we  do  an  enable  of  priveleges  and  then  a  user  i/o 

Jsys  to  get  user-iot  set.  under  topslO.  a  ♦•rpset  uuo  gets  us 

Into  user-iot  mode,  userion  will  fatal  you  jut  if  you 

Don't  have  user  iot  priveleges. 


;call  the  appropriate  routine 
.•returns  here 


Calling  seq: 
Go     usriox 
Rtn 

TopslO  monitor 

Tops20  monitor 

Common  code 

Code  to  turn  user  i/o  off 

Chsel  —  routine  to  get  the  chan  #  from  mbcn 
This  routine  bit  diddles  the  device  code  in  mbcn  and 
Translates  it  to  a  logical  channel  number,  the 
Channel  numoer  is  returned  right  justified  in  ad. 

Sweep  —  routine  to  sweep  cache  if  kllO-rh10 
This  routine  is  used  to  sweep  cache  when  we  have  an  rh10 
Configured  to  a  kl  processor,  this  is  necessary  so  that  memory 
Data  will  be  valid  when  the  rhIO  starts  the  transfer. 


Calling  seq: 
Go     sweep 
Rtn 


;caU  the  routine 
; returns  here 


I 


76 
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SEQ  0089 


11697   USER  MODE  SUPPORT  ROUTINES 


11699 


11750 


11782 


11830 


Dsetup  ~  setup  routine  for  diagnostic  function 

This  routine  sets  up  d  location  called  ".diag"  with  the 

Appropriate  jsys  or  uuo  for  a  diagnostic  monitor  call. 

Calling  seq:  ,,  ^ 

Go     dsetup  ;call  the  routine 

Return  .-returns  *   1  always 

Ac  #1  is  the  ac  that  is  used  by  the  diag  call  to  pass  arguments 

Devrel  —  user  mode  release  routine 

Does  nothing  in  exec  mode,  in  user  mode  it  issues  a  diagnostic 
Monitor  call,  function  -  3,  to  return  device  to  monitor  resources. 
Device  is  specified  by  'hbcn"  and  "drive". 


Calling  seq: 
Go     devrel 
Return 


; returns  ♦I  always 


Devreq  —  user  mode  request  routine 

Does  nothing  in  exec  mode,  in  user  mode,  this  routine  executes  a  diagnostic 

Monitor  call  of  function  1  for  topslO  or  a  2  for  topstO  to  request  a 

Controller  and  single  dx20  from  the  monitor,  the  device  is  specified 
In  "hibcn"  and  "drive". 
Fairness: 

A  release  is  issued  before  e\/ery   device  request  to 

Guarantee  that  we  take  the  device  for  short  periods  of  time. 

Drop  dead  time:  .    ^ 

The  diag  call  is  set  up  to  request  the  device  for  a  maximum  of 

1  Minute  run  time,  the  drop  dead  time  is  therefore  1  minute. 

Calling  sequence: 

Go     devreq  ^  . 

Return  ; returns  ♦  1  always 

Devadr  —  builds  a  device  addr  word  for  user  mode 

This  routine  builds  the  proper  device  address  word  necessary 

For  the  diag  monitor  call,  the  word  is  returned 

In  ad  and  looks  like  this: 


00-06 
21-23 


Bits 
Bits 
Bits  27-29 


Calling  seq: 
Go     devadr 
Return 


rh  physical  device  code 
logical  rh  (0-7) 
drive  number  (0-7) 


;caU  the  routine 
;adr  word  is  in  ad 


11 


OFDXD  DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)  VERSION  0.5  *  DECDOC  VER  00.25    6-APR-85  18:46:18 

11855   Di'ager  —  report  monitor  call  error  in  user  mode  this  routine 
Prints  an  error  message  stating  where  and  why  a  diagnostic 
Monitor  call  has  failed  and  then  either  continues  or  restarts 
For  the  for  lack  of  anything  more  reasonable  to  do. 
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SEQ  0090 


Calling  seq: 
Go     diager 


;call  the  routine 


11929 


STORAGE  FOR  CHANNEL  ROUTINE  VARIABLES 


11931   Some  channel  routine  variables 

Here  are  the  conditional  (rh10/rh20)  pa-ameters 
Necessary  for  use  with  the  data  channel  routines. 

The  #  of  words  (maximum)  that  will  be  specified  in  a  single 
Channel  control  word,  if  not  an  even  multiple  of  128.  disk 
Overruns  could  occur. 

11965   REGISTER  AND  CONl  PRINT  ROUTINES 

******«*t***t***«t****t***t***tt**t *********************** t*^**** 


11967 


There  are  two  modes  of  program  printout:  normal  (long) 
And  short  (text  inhibit  switch  is  set),  the  normal  mode  interprets 
The  register  bits  in  english  (sixbit  format)  while  the  short  printout 
Mode  prints  register  and  coni  data  in  halfword  octal  mode. 


To  use  the  coni  printer: 

Move  acl^arg 

Go  conipt 
Return 

To  use  the  register  printer: 
Move    acKarg 
Go     regpnt 
Return 


.-fetch  coni  data 
; print  it 


;36  bit  datai  word 
.-print  it 


12024 


The  register  printer  aets  the  register  number  and  drive  (dx20) 
Number  from  tne  left  half  of  the  datai  word. 

To  use  the  channel  buffer  printer  for  the  rhIO  (reg  74;: 
Move   ad. data      :36  bit  chan  buff  data 
Return 
Go     cbufpt        .-print  it. 

Accumulators  used  by  regpnt  .  . 
Ac     function 

Used  for  printing 
Holds  36  bit  datai  word 
Holds  register  number 
Holds  various  table  pointers 


L. 


)78 
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SEO  0091 


12159 


12369 


12465 


4      Scratch  ac 
REG-CONI  PRINTER  LOOKUP  TABLES 


12161   Various  tables  needed  by  print  routines,  there  are  several  type  tables 


Two  octal  words  are  masks  for  typbit  .         ^    ^.  ^ 
yord-1:  has  a  one  in  each  of  the  36  bit  positions  for  which 

There  is  a  corresponding  sixbit  name. 
Uord*2:  has  a  one  in  each  bit  position  that  should  never 

Be  non-zero. 

Table  of  sixbit  names  for  masbus  controller  internal  registers 

12176   Rh20  table  can  be  indexed  into  by  bits  3-5  of  the  dawai  word 
RhIO  table  can  be  indexed  into  by  bits  1-3  of  the  datai  word 

REGISTER  BYTE  INFORMATION  PRINTERS 

12371   These  are  the  routines  thic  print  the  data  from 

Various  registers  when  the  data  is  organized  in  bytes. 

Bl^  PRINTER  ROUTINE  -TYPBIT- 


12467   Typbit  -  t  table  bit  printer 


_  routine  is  used  to  translate  ones  in  a  36  bit 
Data  word  to  a  series  of  equiv.  sixbit  messages  taken 
From  a  table,  th  description  of  the  table  layout  is  four.d 
At  the  start  of  Lne  table  section,  this  routine  merely 
Translates  one  to  sixbit  messages  and  also  types  error 
Messages  if  it  finds  ones  in  bit  positions  where  they  are 
Not  expected. 


Eg. 


move  acl^argl 

Move  ac2«arg2 

Go  typbit 
Return 


;36  bits  of  data 
.-pointer  to  descriptor  table 
;call  the  routine 
.•returns  +1  always 


Functions  of  ac's  for  this  routine 
Ac      function 


fused  tor  printing 
Holds  36  bit  data 


yorcJ 
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Holds  updated  tabic  pointer 
Holds  mask-1  (expected  Ts) 
Holds  mask-  2  (expected  O's) 
A  single  bit  mask  (shifts  to  right) 
6      A  scratch  ac  for  a  jffo 

12549   Psdn  -  -  prints  signed  decimal  numbers^      .... 

Psdn  prints  the  contents  of  acO  as  a  signed  decimal 
Number  followed  by  a  period,  leading  zeros  are 
Surpressed. 


SEO  0092 


12566 


12607 


12625 


Poet  —  octal  number  printer 

Poet  prints  the  contents  of  acO  as  an  octal  number. 

Leading  zeros  are  surpressed. 

Call  seq: 

Move  0,argO 

Go  poet 

Rtn-1 


; number  to  acO 
;call  the  routine 
;+1  always 


Functions  of  ac's  for  the  routine: 
Ac    function 


seq: 
Move 
Go 
Rtn 


0,argO 
pocdec 


;a  36  bit  value 
;call  the  routine 
;returns  ♦I  always 


Pocdef  —  print  acO  in  both  octal  and  decimal 

This  routine  prints  acO  as  a  36  bit  quantity.  acO  is  printed 

First  as  an  octal  value  (leading  zeros  surpressed)  and  right 

Beside  it  as  a  signed  decimal  number  in  parenthesis  (leading 

Zeros  also  surpressed.  all  printing  is  forced. 

Call   seq: 

Move    0,argO        ;a  36  bit  value 
Go     pocdef        ;call  the  routine 
Rtn  ;returns  +1  always 

12642    Print  acO  a?  a  signed  decimal  number 


MMKA«iariM!4MNIBM4MM|H^aiMM 


1    r 
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12655    Routine  to  print  acO  as  an  octal  number  with  lead  zeros  surpressed 
12681   Sychpt  -  -  prints  current  state  of  switches 

12952   DX20  DIAGNOSTICS  CONSOLE  PACKAGE 


SEQ  0093 


12955 


L 


THE  FOLLOWING  IS  A  LIST  OF  THE  CONSOLE  COMMANDS  AND  FORMATS 

THE  COMMAND  FORMAT  FOR  CONSOLE  PACKAGE: 

COMMAND  DATA.ADDRESS(CR) 
THIS  IS  REQUIRED  FOR  THE  FOLLOWING  COMMANDS 

LWMJ-CRAACACIADP,LMBADR,RDAAUP 

COMMAND  DATA(CR) 
THIS  IS  ONLY  NEEDED  FOR  THE  FOLLOWING  COMMANDS 

LIR,LPC,RWM,RCR,RAC,RCI,RDP,RMB,XCR,XI,RDR,ST,LUP 

COMMAND(CR) 
THIS  IS  ONLY  NEEDED  FOR  THE  FOLLOWING  COMMANDS 

RIR,SP,RE,RPC 

LUP— LOADS  AN  ASCII  FILE  WITH  AN  "ADX  OR  CDX"  EXTENSION  ^ 
INTO  THE  CRAM  OF  THE  DX20'S  MICRO  PROCESSOR  STARTING  AT  LOCATION  0 
"CDX"  EXTENSIONS  ARE  USED  WHEN  SUB  FILES(.ADX)  ARE  COMBINED  TOGETHER 
TO  FORM  ONE  FILE."ADX"  EXTENSIONS  CAN  BE  USED  FOR  SINGLE  FILES. 

EXAMPLE LUP  FOO.FOUCR)  ,    .,  .  . 

WHERE  'TOO"  IS  THf  SUBFILE(.ADX)  WITHIN  THE  F01  FILE(.CDX) 

OR 
LUP  FOO(CR) 

LIR — LOAD  IR  REGISTER  WITH  DATA 
EXAMPLE  LIR  177777(CR) 

LPC — LOAD  PC  WITH  ADDRESS 
EXAMPLE  LPC  7777(CR) 

LWM — LOAD  WORKING  MEMORY  WITH  DATA-377  AT  LOC.  200 
EXAMPLE  LWM  377,200(CR) 

LCR — LOAD  CRAM  WITH  DATA-1 77777  AT  LOC.  100 
EXAMPLE  LCR  177777, lOO(CR) 

LAC — LOAD  AC  WITH  DATA-377  AT  LOC.  7 
EXAMPLE  LAC  377,7(CR) 

LCI — LOAD  CHANNEL  INTERFACE  WITD  DATA-377  TO  REG.  3 
EXAMPLE  LCI  377,5(CR) 

LDP LOAD  DATA  PATH  WITH  DATA''377  TO  REG.  3 

EXAMPLE  LDP  377,3(CR) 

REGI5TFR-:0  FR0?1  MICRO  PROCESSOR 


LMB — LOAD  MASSBUS  REG 
EXAMPLE  lMB  377,20(CR) 
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RIR — READ  DATA  FROM  IR  REGISTER 
EXAMPLE  RIR(CR) 

RUM — READ  WORKING  MEMORY  DATA  FROM  LOC.  200 
EXAMPLE  RWM  200(CR) 

RCR — READ  CRAM  DATA  FROM  LOC.  100 
EXAMPLE  RCR  lOO(CR) 

RAC — READ  AC  DATA  FROM  LOC.  7 
EXAMPLE  RAC  7(CR) 

RCI READ  CHANNEL  INTERFACE  REGISTER-A  DATA 

EXAMPLE  RCI  A(CR) 

RDP READ  DATA  PATH  INTERFACE  REGISTER-4 

EXAMPLE  RDP  4(CR) 

RMB — READ  MASSBUS  REGISTER-20  FROM  MICRO  PROCESSOR 
EXAMPLE  RMB  20(CR) 

XCR XCT  MICRO  CODE  INSTRUCTION  AT  LOC.  1 

EXAMPLE  XCR  l(CR) 

XI — XCT  INSTRUCTION  IN  IR-200  =  MOVEI  BR 
EXAMPLE  XI  200(CR) 

ST — START  MICRO  PROCESSOR  AT  LOC.  100 
EXAMPLE  ST  lOO(CR) 

SP — STOP  MICRO  PROCEf'^OR 
EXAMPLE  SP(CR) 

RE — RESET  DX20 
EXAMPLE  RE(CR) 

RDA — READ  DRIVE  REGISTERS  FROM-0  TO-37 
EXAMPLE  RDA  0,37(CR) 

LDR — LOAD  DRIVE  RE6ISTER-3  WITH  Mllll 
EXAMPLE  LDR  177777j(CR) 

RPC — READ  THE  CONTENTS  OF  THE  PC 
EXAMPLE  RPC(CR) 

RDR — READ  DRIVE  PEGISTER-4  FROM  MASSBUS  SIDE 
EXAMPLE  RDR  4(CR} 

TO  START  THE  CONSOLE  PACKAGE  START  THE  PROGRAM  AT  "SFSTRT"  OR  IF  IN 
DDT  TYPE  C$G    $=ALTMODE.  THE  CONSOLE  PACKAGE  CAN  BE  STARTED 
AUTOMICALLY  BY  SETTING  CONSOLE  SWITCH  20. 

THE  CONSOLE  PROGRAM  WILL  PROMPT  YOU  WITH  A  •CCP>'  WHEN  IT  IS  WAITING  FOR 


SEO  0094 


r 
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COWAND  INPUT. 

WHEN  IN  CONSOLE  NODE  ALL  READ  COMMANDS  RETURN  THE  VALUE (S).  WHEN  CALLS 
ARE  MADE  FROM  THE  DIAGNOSTIC  ALL  DATA  IS  RETURNED  IN  ACl  =  1. 
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13208 


13535 


13062    Input  cofimands  from  console  «/ia  terminal 

»♦♦♦♦♦»♦»♦♦»♦♦♦♦♦ t ♦♦♦*♦♦♦♦♦ t »**♦♦♦*♦♦*♦♦♦*♦* t »♦♦♦♦♦*♦♦♦♦»♦♦♦♦*♦♦♦ 

DIAGNOSTIC  CONSOLE  COMMAND  SUBROUTINES 


13489 
13A92 


Ldprg«  request  program  name  ft  sub  file  from  operator 


Calling  seq: 

Move  Csixbit/foo/j 

Movem  fUnam 

Movsi  'cdx* 

Movem  fi'lext 

Move  Csixblt/foo/] 

Movem  subfil 

Movsi  'adx* 

Movem  subext 

Go  Idup 

Error  return 


;put  sixbit  file  name  into  loc.  filnam 
;put  sixbit  file  ext  into  loc.  filext 
;put  sixbit  subfile  name  into  loc.  subfil 
;put  subfile  extension  into  subext 
;go  load  micro  processor 


Normal  return  .  _.        ... 

"Cdx"  extensions  are  used  when  sub  files  are  combined  together 
To  form  one  file."adx"  extension  can  be  used  for  single  files. 

PROGRAM  SELECT 


13538 
13556 
13632 
13650 
13678 
13737 
13756 


Ldprga«  program  selection 

Lprgi,  program  load  "adx" 

Gtwrd,  get  prg  word 

Gtlin,  get  next  line  of  data 

Look  up  the  file 

Get  a  word  in  6-bit 

Cputst  -  determine  which  of  6  cpu's  to  run  on  here  if  topslO  only. 
First  find  out  if  we  have  a  multi  cpu  system,  if  so,  ask  user  to 
Select  the  proper  one.  you  must  test  rh^s  only  that  are  on  the  same  cpu. 
This  code  also  sets  up  to  run  on  the  correct  one. 


Call  seq: 

Go     cputst 

Rtn 


;call  the  routine 
;rtn*l  always 


SEQ  0095 
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13800    This  is  topslO  code  only,  it  checks  which  mt  controller  to  run. 

The  topslO  monitor  assignments  are  variable,  it  sets  the  diagnostic 
Bit  so  that  the  diag  call  won't  fail. 

13857    ♦#♦**♦»♦♦*♦♦♦♦♦*♦♦♦**♦♦♦♦♦*♦♦♦*♦»♦**♦♦♦♦♦♦♦♦♦*♦*♦*»♦♦♦♦*♦*♦♦*♦♦♦♦♦♦♦** 

Pnthex-print  2  digit  hex  number  from  acO 
Call  seq: 

Hove   0,n  ;get  number 

Go     pnthex  ;call  the  routine 

Rtn-1  ; returns  here  always 

Pntbcd  —  print  low  order  part  of  acO  in  bed   ^     ......    . 

This  routine  prints  the  low  order  16  bits  of  acO  as  a  A  digit  bed  number. 

Call  seq:  ,    ,      ^ 

Move   O^argl  ;get  the  value  to  acO 

Go     pntbcd  ;caU  the  routine 

Rtn^l  .-returns  ♦I  always 

Pnfbcd  —  force  print  low  order  part  of  acO  in  bed      .  .  ^  ^   .. 
This  routine  prints  the  low  order  16  bits  of  acO  as  a  4  digit  bed  number. 

Call  seq:  ^   ■        ^ 

Move   O^argl  :get  the  value  to  acO 

Go     pnfbcd  ;call  the  routine 

Rtn^l  .-returns  •♦•1  always 

13926    ♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦*♦♦♦♦#♦♦♦♦♦»*♦**♦♦♦♦*♦♦♦*»♦**♦♦**♦♦** 

Stclok  —  routine  to  initialize  program  runtime  clock 

This  routine  initializes  the  clock  for  the  program,  it  is  used 

In  concunction  with  routine  "runtme". 

In  exec  mode  this  routine  resets,  restarts  and  then  reads  the  current 
Microsecond  time  clock  into  memory  for  reference  by  the  runtime  calculator 
"Runtme".  the  clock  is  set  up  so  that  it  ca*  ses  u  hardware  interrupt. 
It  merely  free  runs. 

In  user  mode  the  program  run  time  is  obtained  in  milliseconds 
With  a  monitor  call,  converted  to  microseconds  and  stored  for 
Future  reference  by  the  runtime  calculator  runtme 

Call  seq: 

Go     stclok  .-calls  the  routine 

Rtn-1  .-always  returns  ♦1 
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SEQ  0096 
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13963    *♦♦*♦**♦**♦*♦♦**♦♦•♦**♦*♦♦*****••*****♦♦***♦*********♦♦♦*♦*♦***♦♦*♦*** 

Here  is  a  subroutine  called  by  both  stclok  and  runtme.  it  reads 
The  current  program  runtime  in  milliseconds  from  the  monitor,  converts 
The  time  to  microseconds  and  then  positions  that  microsecond  count  in 
Ac2  and  ad  in  the  same  59  bit  format  you  get  when  you  read  the  meter 
Board  microsecond  clock,  the  microsecond  count  is  then  returned  in 
Acl  and  ac2  

Call  seq:  .... 

Go     montim  ;call  the  routine  .    ,   ,   ^ 

Rtn^l  .-microsecond  time  in  acl  and  ac2 

13990    ****»*♦♦**♦*♦♦***♦•♦♦♦♦***•***♦******♦*♦*♦***************♦************ 

Runtme  —  calculate  and  print  program  runtime 

This  reports  the  program  runtime  (exec  or  user  mode)  since 

The  last  call  to  the  initialize  routine  "stclok  . 

This  software  can  easily  handle  runtimes  in  excess  of  3000  hours 

The  runtime  is  printed  on  the  current  line  and  no  line  feed  is 

Printed  at  the  end  of  the  message,  the  message  looks  like  this: 

(Space) runtime  xx:xx:xx(space, space) 

In  exec  mode  the  time  is  calculated  by  using  the  microsecond 
Clock  that  was  initialized  in  the  call  to  "stclok". 

In  user  mode,  "runtime"  monitor  calls  are  used  and  the  difference 
Is  calculated  from  the  last  call  to  "stclok" 

Call    seq:  ... 

Go     runtme  ;call  the  routine 

Rtn-»-1  ;always  returns  -♦•1 

14047   PRINT  RUN  TIME 

Runtmf  —  calculate  and  force  print  program  runtime 

This  reports  the  program  runtime  (exec  or  user  mode)  since 

The  last  call  to  the  initialize  routine  "stclok". 

This  software  can  easily  handle  runtimes  in  excess  of  300C  hours 

The  runtime  is  printed  on  the  current  line  and  no  Line  feed  is 
Printed  at  the  end  of  the  message,  the  message  looks  like  this: 

(Space)runtime(hh:mm:ss)  xx:xx:xx(space, space) 

In  exec  mode  the  time  is  calculated  by  using  the  microsecond 
Clock  that  was  initialized  in  the  call  to  'stclok  . 

In  user  mode,  "runtime"  monitor  calls  are  used  and  the  difference 
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SEQ  0098 


U226 


U300 


Go     runtmf  ;call  the  routine 

Rtn+1  ; always  returns  -♦•1 

14U6   Lderl,  error  messages  for  loading  routines 

*ST0R*  RESERVED  STORAGE,  SEPT  18J979 

U2A5   Here  1s  the  program  storage  area 


1A254 


Buffer  area  for  register  storage 

Here  is  where  the  register  data  is  saved  when  registers 

Are  read  into  core  collectively  or  separately 


U279    The  coni  status  for  the  controller 

BUFFER  AREA 

U302    Here  is  the  program  storage  area 


16 


DFDXD 
DFDXDT 

1 
2 
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5 
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SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  ?53A(1152)  18:38  6-Apr-85  Page  1 
♦PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

MCNVER==0 
DECVER==5 
XLIST 
LIST 

TITLE   DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 


SEQ  0099 


000137 

000137  000000  000005 


LOC 


137 


MCNVER,,DECVER 


\7 


DFDXD 
DFDXDT 

13 

H 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

AO 

41 

A2 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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254200 
254200 
254200 
254200 
254200 

123456 

444644 
605664 


SUBSYSTEM  DIAGNOSTIC  (RH20)    VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  2 
ASSEMBLY  CONTROL  SWITCHES 

SUBTTL  ASSEMBLY  CONTROL  SWITCHES 

;»  SUBROUTINE  PACKAGE  ASSEMBLY  SWITCHES 


SEQ  0100 


000001 
000001 
000001 
000001 
000000 
000020 
000001 


007777 
000000 
000000 
000000 
000001 


050604 
030000 
030645 
030007 
030061 
030061 
030000 
030000 
030000 
030000 
030000 

701234 
QOOOOO 
704400 
000000 
000000 
000000 


SEARCH  MONSYM 


KLiOPO==1 
KL10==  1 
USRASB==1 
EXCASB==1 
ITERAT==0 
DEBU6==  20 
$LPAPER==1 
.DIRECTIVE 

XSIZE==  7777 
XXERRC==0 
XPURE==  0 
XXLALL==0 
«SALL==1 


.XTABM 


ASSEMBLE  FOR  THE  PROTOTYPES 

ASSEMBLE  FOR  KLIO 

ASSEMBLE  FOR  USER  MODE 

ASSEMBLE  FOR  EXEC  MODE 

0   CF  PROGRAM  ITERATIONS 

A  20  LOCATION  PATCH  AREA 

DON'T  PRINT  THE  LITERALS  IN  LISTING 

IGNORES  TABS  IN  MACROS 

SIZE  OF  MICRO-PROCESSOR  MEMORY 
ERROR  COUNTER 

DON'T  ASSEMBLE  AS  PURE  MICRO-CODE 
DON'T  LIST  ALL  MACRO  EXPANSIONS 


;•  SOME  PROGRAM  ADDRESS  OPTIONS  AND  PARAMETERS 


SADR1=  CNSL 
SADR2=  BEGIN 
SADR3':  R 
SADR4=  SRTDDT 
SADR5=  $6END2 
SADR6=^  $6END2 
SADR7=  HALT  BEGIN 
SADR8=  HALT  BEGIN 
SADR9=  HALT  BEGIN 
SADRIO^  HALT  BEGIN 
SADR1U  HALT  BEGIN 

PAREA1=  123456^,701234 

PAREA2=  0 

PAREA3=  SIXBIT  /DFDXD/ 

PAREA4=  SIXBIT  /PNT/ 

PAREA5=  0 

PAREA6=  0 


DIAG.  CONSOLE  PACKAGE  START  ADDR. 

POWER  FAIL  RESTART 

REENTER  STARTING  ADDRESS 

DDT  START 

CONTROL  C  TRANSFER  ADDRESS 

ALTrODE  TRANSFER  ADDRESS 


RANDOM  BASE 

SYSTEM  EXERCISER  SWITCHES 
USER  MODE  OUTPUT  FILE  NAME 
USER  MODE  OUTPUT  FILE  EXT 


)8 


DFDXD 
DFOXDT 

58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
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SUBTTL  ACCUMULATOR  AND  UUO  DEFINITIONS 
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SEQ  0101 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
00001 1 
000012 
00001 3 
000014 
00001 5 
000016 
000000 


400000 
200000 
100000 
040000 
037777 


;•  SOME  ACCUMULATOR  DEFINITIONS 

• 

AC1=1 

AC2=2 

AC3=3 

AC4=4 

AC5=5 

AC6=6 

ERRFND=7 

F=10 

AC11=11 

AC12=12 

DRIVE=13 

MBCN=14 

REPT=15 

REPT1=16 

INTCHO=0 


; HOLDS  ERROR  FOUND  FLAGS 

.PROGRAMS  FLAG  REGISTER 

;USED  FOR  DATA  PATTERN  INDEXES 

;USED  FOR  WORD  COUNT  INDEXES 

.-HOLDS  THE  CURRENT  DRIVE  NUMBER 

.•HOLDS  THE  CURRENT  CONTROLLER  NUMBER 

.•ERROR  HANDLER  REPEAT  AC  ♦♦  DEFINED  IN  PARAM.KLM 

;ERROR  HANDLER  REPEAT  AC  ♦*  DEFINED  IN  PARAM.KLM 

.•THIS  IS  CHANNNEL  0  FOR  TOPS20  SOFTWARE  INTERRUPTS 


;»  DEFINITION  OF  BITS  IN  F(ACIO) 


CBTFLG==1B18 
CPAFL6==1B19 
C0MPER==1B20 
RAEREP==1B21 
TESTN==  17777 


;0=REPORT  CONTROL  BUS  TIMEOUTS;  1=D0N'T  REPORT 
;0=REPORT  CONTROL  BUS  PARITY  ERRORS;  1=D0N'T 
;0=REPORT  COMPOSITE  ERRORS;  1=D0N'T  REPORT 
;0=REPORT  RAE'S;  1=D0N*T  REPORT  RAE'S 
;NUMBER  OF  TEST  CURRENTLY  OR  LAST  PERFORMED 


000001 

RHERR==  1835 

000002 

MPSERR==1B34 

000004 

CERRER==1B33 

000010 

DXERER==1B32 

DRVERR==1B31 

000040 

FSIERR==1B30 

000100 

TIEERR==1B29 

000200 

FSBERR==1B28 
SASBER==1827 

001000 

ASYNER==1B26 
SNSERR^=1825 

002000 

004000 

DATERR— 1624 

010000 

LOGERR==1B23 

020000 

TOERR==  1B22 

;♦  ERROR  FOUND  FLAGS  WHICH  GET  SET  IN  ERRFND  AC7 

;RH20  CONI  ERROR 

;MP  STOPPED  ERROR 

;COMP  ERROR  ERROR 

;DX20  ERROR  REG  ERROR 

;TAPE  DRIVE  STATUS  ERROR 

; FORCED  SENSE  INDEX  ERROR 

;TIE  BIT  ERROR 

; FORCED  SENSE  BIT  ERROR 

; SUPPRESS  AUTO  SENSE  BIT  ERROR 

;ASYNCH  STATUS  ERROR 

; SENSE  BYTE  ERROR 

;DArA  XFER  ERROR 

; LOGOUT  DATA  ERROR 

; TIMEOUT  ERROR 


DFDXD 
OFDXDT 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
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SEQ  0102 


010000 
020000 
030000 
040000 
050000 


000000 
000400 
001000 
001400 
002400 
003000 
003400 
005400 
006000 
006400 


•^  DATA  MODES 


CDUMP==  1B23 
INDCMP==2B23 
SIXBT==  3B23 
ASCII7==4B23 
HIDEN=:  5623 


CORE  DUMP  (9-TRACK) 
INDUSTRY  COMPATIBLE 
6-BIT  ASCII 
7-BIT  ASCII 
HIGH  DENSITY 


;♦  DRIVE  MODES 


NOMODE^ 
OT7200= 
0T7556= 
OT7800= 
ET7200= 
ET7556= 
ET7800= 
T9800== 
T91600= 
T96250= 


=0 

=1B27 

=2B27 

=5827 

13B27 
=14827 
=15827 


NO  MODE 

ODD  PARITY.  7-TRACIC,  200  BPI 
ODD  PARITY,  7- TRACK,  556  BPI 
ODD  PARITY,  7- TRACK,  800  BPI 
EVEN  PARITY,  7-TRACIC,  200  BPI 
EVEN  PARITY,  7-TRACK,  556  BPI 
EVEN  PARITY.  7-TRACIC,  800  BPI 
9-TRACK,  800  BPI 
9-TRACIC,  1600  BPI 
9-TRACK,  6250  BPI 


;•  DX20-V100  FUNCTION  CODES 


000001 

NOP== 

000003 

RWDUN== 

000005 

IL' FCN= 

000007 

RWD== 

DRVCLR= 

00001 3 

SNSRL== 

ooo8p 

ERSGP== 

WTM== 

ooooBi 

FS8== 

000033 

BSB== 

000035 

FSF== 

000037 

BSF== 

QQQ041 

TSTI0== 

5o0043 

DSE== 

000045 

SENSE== 

000047 

SNSRS== 

000061 

yRT== 

000063 

yRTD== 

fel 

LyR== 

RDFy-= 

RDEXS== 

000077 

RDRV== 

400000 

FRCSNS= 

1 

3 

=5 
7 

=11 
13 
25 

7 

1 

3 

5 

7 
41 
43 
45 
47 
61 
63 

^? 

75 

77 
=  1818 


NO  OPERATION 

REWIND  AND  UNLOAD 

ILLEGAL  FUNCTION 

REWIND 

DRIVE  CLEAR 

SENSE  RELEASE 

ERASE  GAP 

WRITE  TAPE  MARK 

FORWARD  SPACE  BLOCK  (RECORD) 

BACK  SPACE  BLOCK  (RECORD) 

FORWARD  SPACE  FILE 

BACK  SPACE  FILE 

TEST  I/O 

DATA  SECURITY  ERASE 

SENSE 

SENSE  RESERVE 

WRITE  DATA 

WRITE  DIAGNOSTIC 

LOOP  WRITE  TO  READ 

READ  DATA  FORWARD 

READ  EXTENDED  STATUS 

READ  REVERSE 

FORCE  SENSE  FLAG  FOR  TAPUUO 


90 


OFDXD   0X2O-V1O0  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 


DFDXDT  HAC 

160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
17A 
175 
176 
177 

178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 

188 

189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 


6-Apr-85  18:38 
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PROGRAM  MACRO  DEFINITIONS 

SUBTTL  PROGRAM  MACRO  DEFINITIONS 

:*  HERE  ARE  THE  PROGRAM  UUO  DEFINITIONS 


SEO  0103 


004000 

000001 

OPDEF 

NOP 

004000 

400001 

OPDEF 

NOPF 

004000 

000007 

OPDEF 

RUD 

004000 

000003 

OPDEF 

RUDUN 

004000 

000013 

OPDEF 

SNSRL 

004000 

400013 

OPDEF 

SNSRLF 

004000 

000047 

OPDEF 

SNSRS 

004000 

400047 

OPDEF 

SNSRSF 

004000 

000025 

OPDEF 

ERSGP 

004000 

400025 

OPDEF 

ERSGPF 

004000 

000027 

OPDEF 

WTM 

004000 

400027 

OPDEF 

WTMF 

004000 

000035 

OPDEF 

FSF 

004000 

400035 

OPDEF 

FSFF 

004000 

000037 

OPDEF 

BSF 

004000 

400037 

OPDEF 

BSFF 

004000 

000031 

OPDEF 

FSB 

004000 

400031 

OPDEF 

FSBF 

004000 

000033 

OPDEF 

BSB 

004000 

400033 

OPDEF 

BSBF 

004000 

000041 

OPDEF 

TSTIO 

004000 

400041 

OPDEF 

TSTIOF 

004000 

000043 

OPDEF 

DSE 

004000 

400043 

OPDEF 

DSEF 

004000 

000045 

OPDEF 

SENSE 

Ou'-OOO 

00001 1 

OPDEF 

DRVCLR 

004000 

000005 

OPDEF 

ILLFCN 

004000 

000061 

OPDEF 

yRT 

004000 

400061 

OPDEF 

URTF 

004000 

000071 

OPDEF 

RDFy 

004000 

088077 

OPDEF 

RDFWF 

004000 

OPDEF 

RDRV 

99^999 

400077 

OPDEF 

RDRVF 

004000 

000075 

OPDEF 

RDEXS 

004000 

000065 

OPDEF 

LUR 

004000 

400065 

OPDEF 

LWRF 

004880 

S 

OPDEF 

yRTD 

OPDEF 

yRTDF 

026000 

OPDEF 

RDREGA 

B 

QOOOOO 

OPDEF 

RDREG6 

888888 

OPDEF 
OPDEF 

LDREGA 
LDREG6 

001000 

oooooo 

OPDEF 

.XI 

002000 

088000 

OPDEF 

REPEAT 

OPDEF 

.LCR 

OPDEF 

PNTNUM 

006000 

oooooo 

OPDEF 

HDEC 

[4B8^N0P] 

:488*FRCSNS*N0P] 

;468^RUD] 

!468^RyDUN] 

;468>SNSRL] 

468^FRCSNS>SNSRL3 

!468^SNSRS] 

:468^FRCSNS^SNSRS] 

:468^ERSGP3 

:488*FRCSNS^ERSGP] 

:468^UTM] 

:468^FRCSNS^UTM3 

;4a8^FSF] 

;488*FRCSNS*FSF] 
;468^BSF] 
!488*FRCSNS^BSFJ 
C488^FSB] 
:488>FRCSNS^FSB3 
:4B8^BSB] 
;468^FRCSNS^SB3 
488+TSTIO] 
;4B8^FRCSNS^TSTI0] 
:468^DSE] 
:468^FRCSNS^DSc3 
;468^SENSE] 
!4680RVCLR] 
:468^ILLFCN] 
;468^URT] 
!46|^FRCSNS^URT] 
;468^RDFy] 
4Bi^FRCSNS^RDFy3 
!48itRDRV] 
:46itFRCSNS>RDRV3 
!468^RDEXS] 
;468^LyR] 
46|^FRCSNS^LUR] 
46dtyRTD] 
!468^FRCSNS^yRTD] 

IS' 


NOP  COMMAND 

NOP  yiTH  FORCED  SENSE 

REyiND  COMMAND 

REyiND/UNLOAD  CQK>MND 

SBHSB   RELEASE  COMMAND 

SBHSE   RELEASE  yiTH  FORCED  SENSE 

SENSE  RESERVE  COMMAND 

SENSE  RESERVE  yiTH  FORCED  SENSE   « 

ERASE  GAP  COMMAND 

ERASE  GAP  yiTH  FORCED  SENSE 

yRITE  TAPE  MARK  COMMAND 

yRITE  TAPE  MARK  yiTH  FORCED  SENSE 

FORyARD  SPACE  FILE  COMMAND 

FORyARD  SPACE  FILE  yiTH  FORCED  SENSE 

BACK  SPACE  FILE  COMMAND 

BACK  SPACE  FILE  yiTH  FORCED  SENSE 

FORyARD  SPACE  BLOCK  (RECORD)  COMMAND 

FSB  (RECORD)  yiTH  FORCED  SENSE 

BACK  SPACE  BLOCK  (RECORD)  COMMAND 

BSB  (RECORD)  yiTH  FORCED  SENSE 

TEST  10  COMMAND 

TEST  10  yiTH  FORCED  SENSE 

DATA  SECURITY  ERASE  COMMAND 

DATA  SECURIiY  ERASE  yiTH  FORCED  SENSE 

SENSE  COMMAND 

DRIVE  CLEAR  COMMAND 

ILLEGAL  FUNCTION 

yRITE  COMMAND 

yRITE  yiTH  FORCED  SENSE 

READ  FORyARD  COMMAND 

READ  FORyARD  bliH  FORCED  SENSE 

READ  REVERSE  COMMAND 

READ  REVERSE  yiTH  FORCED  SENSE 

READ  EXTENDED  STATUS  COMMAND 

LOOP  yRITE-TO-READ  COMMAND 

LOOP  yRITE-TO-READ  yiTH  FORCED  SENSE 

yRITE  DIAGNOSTIC  COMMAND 

yRITE  DIAGNOSTIC  yiTH  FORCED  SENSE 

READ  REGISTER  0-17 

READ  REGISTER  20-37 

LOAD  REGISTER  0-17 

LOAD  REGISTER  20-37 

EXECUTE  INSTRUCTION  «^R0«  IR 

REPEAT  LOOP  AND  FORCE  TEST  LOOP 

LOAD  CRAM 

PRINT  OCTAL  NU."«ER  IN  FIXED  SIZE 

PRINT  DECIMAL  NUMBER  IN  FIXED  SIZE 


DFDXD 
DFDXOT 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

22L 

229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 
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♦  MACRO  DEFINITIONS 


DEFINE 


DEFINE 


ADJUST  (BITS, NAME)     < 
XALL 

IFN  «BITS>i-1B17>,  <IFE  «BITS>i-1B53>,  < 
MOVSI  (BITS)  ;SET  UP  EXPECTED  NAME  » 
IFE  «BITS>ft-1B17>,  <IFN  «BITS>ft-1B53>,  < 
HOVEI  BITS  ;SET  UP  EXPECTED  NAME  » 
IFN  «BITS>fc-1B17>,  <IFN  «BITS>ft-1B53>,  < 
HOVE    [BITS]    ;SET  UP  EXPECTED  NAME  >» 


SETSTA 

XALL 

IFE 

SETZM 

IFN 

MOVE  I 

MOVEM 

MOVE  I 

MOVEM 

IFNB 

SALL 

ADJUST 

XOR 

IFE 

MOVE 

MOVEM 

IFNB 

SALL 

ADJUST 

XOR 

IFE 

MOVE 

MOVEM 

IFNB 

SALL 

ADJUST 

XOR 

IFE 

MOVE 

MOVEM 

SALL> 


(A1,A2,A3,A4,A5)  < 

<A1>,  < 

DXEREX 

<A1>.  < 

A1 

DXEREX 

A2 

DRVEXP 

<A3>,  <IFN  <A3>.  < 

A3, SENSE  WORD  1 

SNSC1 

<A3>,  < 

SNSCI 

SNSEX1 

<A4>,  <IFN  <A4>,  < 

A4, SENSE  WORD  2 

SNSC2 

<A4>.  < 

SNSC2 

SNSEX2 

<A5>,  <IFN  <A5>,  < 

A5, SENSE  yORD  3 

SNSC3 

<A5>.  < 

SNSC3 

SNSEX3 


;SET  DXERR  EXPECTED  STATUS  =  0> 

.•SETUP  EXPECTED  DXERR  STATUS 
;AND  STORE  IT> 

.•SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 


;ADD  CONSTANT  BITS  > 

.•INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
;PUT  IN  EXPECTED  TABLE  > 


;ADD  CONSTANT  BITS  > 

.•INSERT  ONLY  CONSTANT  SENSE  WORD  2  BJTS  > 
.-PUT  IN  EXPECTED  TABLE  > 


;ADD  CONSTANT  BITS  > 

.•INSERT  ONLY  CONSTANT  SENSE  WORD  3  BITS  > 
;PUT  IN  EXPECTED  TABLE  > 


DFDXD 
DFDXDT 

256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 

•D70 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 
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SEO  0105 


*  THIS  MACRO  LOADS  REGISTERS  0-37. 

*  IF  AC  ARG.  IS  LESS  THAN  20  IT  ASSEMBLES  UUO  LDREGA 

*  IF  AC  ARG.  IS  GREATER  THAN  17  IT  ASSEMBLES  UUO  LDREGB 


DEFINE  LDREG  (A,B)<SALL 

IFG  <A  -*D30>-17,< 

LDREGB  <A*-*D30>&17,B> 

IFLE  <A"-^D30>-17,< 

LDREGA  <A>'*D30>,B» 

;*  THIS  MACRO  READS  REGISTERS  0-37. 

•*  IF  AC  ARG.  IS  LESS  THAN  20  IT  ASSEMBLES  UUO  RDREGA 

;•  IF  AC  ARG.  IS  GREATER  THAN  17  IT  ASSEMBLES  UUO  RDREGB 

DEFINE  RDREG  (AXSALL 

IFG  <A  -'*D30>-17,< 

RDREGB  <A"-*D30>&17,> 

IFLE  <A"-*D30>-17,< 

RDREGA  <A>*D30>,» 

*  THIS  MACRO  SETS  AND  CLEARS  FLAGS  FOR  ERROR  REPORTING 

DEFINE  TEST  (E,NAME,A<0>,B<0>,C<0>,WW<0>,X<;*  »,< 

LALL 

X '•**••*•♦****•♦*•***»*♦♦♦♦♦*********♦*******♦********♦**** ************* 

X  DFDXD  *  TEST  E  *      NAME 

X' ********************************************************************** 

XALL 

TST=TST'E 
T=CSIXBIT\TEST  E  *  NAME*.\3 

JSP     USETREP  ;SET  UP  REPEAT  LOOP 

TST'E:  MOVEI   F,(ByTE  (1)  A,B,C,A!B  (14)  ^D<E» 

TSTL=.  " 

IFE     WW,< 

GO     SETUP 

SALL> 


;;TEST  LOOP  ADDRESS 
; SETUP  SUBSYSTEM> 


DEFINE  XI(INST),<.XI  [INST 


DEFINE  LCR(INST,ADR),<.LCR  1+C  ADR 

INST 


]> 


2> 
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SEQ  0106 


305 

306 

307 

308 

309 

310 

ill 

312 

313 

31 A 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

341 

3A2 


AOOOOO 
200000 
100000 
OAOOOO 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000027 


004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 


SUBTTL  MAGNETIC  TAPE  SUBSYSTEM  PARAMETERS 

;♦  EXTENDED  STATUS  INDEX  0  BIT  DEFINITIONS  (SENSE  BYTES  0-3) 


;FROM  DXGP6 


CMDREJ= 

INTVEN= 

BUSCHK= 

EQPCHK= 

DATCHK= 

OVERUN= 

WDCTO== 

CVTRCK= 

NOISE== 

TUA== 

TUB== 

TRK7== 

BOT== 

WRSTAT= 

PROTCT= 

NOTCAP= 


=1B0 
=181 
=1B2 
=1B3 
=184 
=185 
186 
=187 
188 
189 
1810 
1811 
1812 
=1813 
=1814 
=1815 


;FR0M  DXGP7 
TIER==  '*D23 


RyVRC== 

MTELRC= 

SKEW== 

CRC== 

VRC== 

D1600== 

BKWD== 

CCOMP== 


1824 
=1825 
1826 
1827 
1828 
1829 
1830 
1831 


COMMAND  REJECT 

INTERVENTION  REQUIRED 

BUS  OUT  CHECK 

EQUIPMENT  CHECK 

DATA  CHECK 

OVERRUN 

WORD  COUNT  ZERO 

CONVERTER  CHECK 

NOISE 

TU  STATUS  A 

TU  STATUS  8 

7  TRACK 

BOT  -  LOAD  POINT 

WRITE  STATUS 

WRITE  PROTECTED 

NOT  CAPABLE 


TRACK  IN  ERROR  REGISTER 

LEAVE  THIS  ALONE,  *D23  IS  CORRECT 

R/W  VRC 
MTE/LRC 
SKEW  ERROR 
CRC  ERROR 
VRC  ERROR 
1600  BPI 
BACKWARD  STATUS 
C  COMPARE 


DFDXD 
DFDXDT 

3A3 

3AA 

3A5 

3A6 

3A7 

3A8 

3A9 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 
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SEO  0107 


200000 
100000 
040000 
010000 
004000 
002000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 


000002 
000001 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
400000 
200000 
170000 
004000 
002000 
001000 
000400 
000200 
000100 
000020 


*  EXTENDED  STATUS  INDEX  1  PIT  ASSIGNMENTS  (SENSE  BYTES  4-7) 


;FROM  DXGP6 


REJTU== 

E0T== 

WRTR6== 

LOOPWR^ 

TUCK== 

RESRPQ= 

NEUSUe= 

yTHCK== 

IDBRST= 

STRDCK= 

PRTREC= 

DIAGMD= 

RPQ== 


1B1 
1B2 
1B3 
=185 
1B6 
=187 
=189 
1810 
=1811 
=1812 
=1813 
=1814 
1815 


;FR0«  DXGP7 

TRK7DR==1816 
WRC  R==  1817 
OU  N==1818 
H  v)0==1819 
UN  ID==17B23 
CCcJMN==1824 
LFTC0L==1825 
RGTC0L==1826 
RSTKEY==1827 
DSER==  1828 
ERSHD==  1829 
LDFAIL==ie3i 


REJECT  TAPE  UNIT 

END  OF  TAPE  -  TAPE  INDICATE 

WRITE  TRIGGER 

LOOP  WRITE  TO  READ 

TU  CHECK 

RESERVED  FOR  RPQ 

NEW  SUB-SYSTEM 

WTM  CHECK 

ID  BURST  CHECK 

START  READ  CHECK 

PARTIAL  RECORD 

DIAGNOSTIC  MODE 

RPQ 


7  TRACK  DRIVE 

WRITE  CURRENT  FAIL 

DUAL  DENSITY  TAPE  UNIT 

TU  NOT  SET  1600 

TAPE  UNIT  ID 

COLUMN  TOP  OR  BOTTOM 

TAPE  FAIL  LEFT  COLUMN 

TAPE  FAIL  RIGHT  COLUMN 

RESET  KEY 

DATA  SECURITY  ERASE  FAILURE 

ERASE  HEAD  FAILURE 

LOAD  FAILURE 


DFDXD 
OFDXDT 

378 

379 

380 

381 

382 

383 

38A 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 
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SEO  0108 


400000 
001000 
000400 
000200 
000100 
000040 
000004 


000002 


000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
200000 
040000 
010000 


001000  000000 


•  ♦»*♦»♦♦»♦♦♦♦♦*♦»♦♦♦♦♦♦♦♦♦ t***»»** »»* t ♦*♦♦♦»» t ♦♦♦♦♦• ot ♦♦♦•♦»♦ *♦♦♦♦♦♦♦♦♦ 

;*  EXTENDED  STATUS  INDEX  2  BIT  ASSIGNMENTS  (SENSE  BYTES  8  -  11) 


.-FROM  DXGP6 

IBGDET==1B0 

CR6250==1B8 

VELCHG==ie9 

CHNBUF==1B10 

CRCIII==1B11 

TC6250==1B12 

TCURSV==1B15 

;FRO«  DX6P7 

CMSTRJ==1B16 
RCNDET==1819 
TACHST==1B21 
VELCK==  1B23 


IB6  DETECTED 

6250  BPI  CORRECTION 

VELOCITY  CHANGE 

CHANNEL  BUFFER  CHECK 

CRC  III 

6250  TCU 

TCU  RESERVED 


COMMAND  STATUS  REJECT 
RECORD  NOT  DETECTED 
TACH  START  FAILURE 
VELOCITY  CHECK 


}♦  EXTENDED  STATUS  INDEX  4  BIT  ASSIGNMENTS  (SENSE  BYTES  16  -  19) 

• 

;FROM  DXGP6 

TW0CSW==1B8  ;2  CHANNEL  SWITCH 

!•♦  EXTENDED  STATUS  INDEX  5  BIT  ASSIGNMENTS  (SENSE  BYTES  20  -  23) 


004000 


.-FROM  DXGP7 
M0DIV==  1B24 


;M0D  IV 


OFDXD 
DFDXDT 

AH 

A15 

A16 

A17 

418 

A19 

A20 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 
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SEQ  0109 


447055  434100 
000001 
000000 


400000 
200000 
100000 
040000 
020000 
000400 
000200 
000100 
000040 
000020 


000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooc 

000000 
000000 


020000 
010000 
004000 
002000 
001000 
000400 

000200 
000177 


002000 
001000 
000400 


;♦  MICRO-CODE  PARAMETERS 


MCNAME==SIXBIT  /DXMCA/ 
MCSTRT==  1 
VERSION==0 


;NAME  OF  MICRO-CODE  FILE 
: START  ADDRESS 
;MICRO-CODE  VERSION 


)♦  CHANNEL  LOGOUT  STATUS  BITS 


LOGO==  1B0 
MPER==  1B1 
ADRPE==  182 
N0TWC0==1B3 
NEXM==  1B4 
LAXER==  1B9 
RH2ER==  1B10 
LGWC==  1B11 
SHWC==  1B12 
OVN==   1B13 


: CHANNEL  LOG  OUT  BIT 

;MEMORY  PARITY  ERROR 

;SET  WHEN  NO  ADDRESS  PARITY  ERROR 

;NOT  yORD  COUNT  ZERO 

;NON-EXISTANT  MEMORY 

;LAST  XFER  ERROR 

;RH20  ERROR 

:LONG  WORD  COUNT 

; SHORT  WORD  COUNT 

:OVERRRUN 


;♦  DEVICE  STATUS  BYTE,  FROM  DX6P0 


CUEND==  20000 
DXBUSY==  10000 
CHLEND==  4000 
DEVEND==:  2000 
UNICH»C==  1000 
UNIEXP==   400 

STATRQ==  200 
STINDX==177B35 


; CONTROL  UNIT  END 
;BUSY 

.•CHANNEL  END 
.•DEVICE  END 
;UNIT  CHECK 
;UNIT  EXCEPTION 

.•EXTENDED  STATUS  REQUEST  FLAG 
.•EXTENDED  STATUS  INDEX 


;•♦  FLAG  REGISTER  BiT  DEFS.  FROM  DXGP3 


SUPSNS==  2000 
FSENSE==  1000 
SNDTIE==   400 


.•SUPPRESS  AUTO  SENSE 
.•FORCE  SENSE  BYTE  READ 
.-SEND  TRACK-IN-ERROR 


DFDXD 
DFDXDT 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 
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SEQ  0110 


000400 
010400 
001000 
001400 
002000 
002400 
003000 
013000 
023000 
003400 
01 3400 
004000 
014000 
024000 


100000 

040000 
020000 
010000 
004000 
000020 


;*  ERROR  CLASS  CODES  AND  SUB-CLASS  CODES 

* 

;FROM  DXGP2 


EC1SB0= 

EC1SB1= 

EC2== 

EC3== 

EC4== 

EC5SB0= 

EC6SB0= 

EC6S81-- 

EC6SB2= 

EC7S80= 

EC7SB1= 

EC8SB0= 

EC8SB1= 

EC8SB2= 


=1827 
=1827^1823 

2827 

3827 

4827 
=5827 
=6827 

=6827+1823 
=6827+2823 
=7827 

=7827+1823 
=10827 
=10827+1823 
=10827+2823 


;♦  PROGRAM  CONSOLE  SWITCHES 


CONMOD==1820 


INHE0T= 
ALC0«P= 
ASTAT== 
OSTAT== 
ONEDVN= 


=1821 

=1822 

1823 

1624 

=1831 


START  THE  CONSOLE  CONTROL 

PROGRAM  CO. 53 

INHIBIT  END  OF  TAPE  TESTS 

PRINT  ALL  COMPARISION  ERRORS 

PRINT  ALL  STATUS 

PRINT  STATUS  IN  OCTAL 

TEST  ONE  DRIVE  SWITCH 


5 
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SUBTTL  MASSBUS  DEVICE  BIT  ASSIGNMENTS 
;*  MASSBUS  DEVICE  REGISTER  BIT  ASSIGNMENTS  (REGISTERS  00-37) 


SEQ  0111 


490 

491 

492 

493 

494 

495 

496 

000000 

497 

010000 

000000 

498 

020000 

000000 

499 

030000 

000000 

500 

040000 

000000 

501 

050000 

000000 

502 

060000 

000000 

503 

070000 

000000 

504 

100000 

000000 

505 

110000 

000000 

506 

120000 

000000 

507 

130000 

000000 

508 

140000 

000000 

509 

150000 

000000 

510 

16C000 

000000 

511 

170000 

000000 

512 

200000 

000000 

513 

210000 

000000 

514 

220000 

000000 

515 

230000 

000000 

516 

240000 

000000 

517 

250000 

000000 

518 

260000 

000000 

519 

270000 

000000 

520 

3uJ000 

000000 

521 

310000 

000000 

522 

320000 

000000 

523 

330000 

000000 

524 

340000 

000000 

525 

350000 

000000 

526 

360000 

000000 

527 

370000 

000000 

DXCTR== 
DXSTR== 
DXERR== 
DXMTR== 
DXASR== 
MBRA05= 
DXDTR== 
MBRA07= 
MBRA10= 
M8RA11= 
MBRA1 2= 
MBRA13- 
MBRA14= 
MBRA15= 
MBRA16=: 
MBRA1 7= 
DX6P0== 
DXGP1== 
DXGP2== 
DXGP3== 
DXGP4== 
DXGP5== 
DX6P6== 
DXGP7== 
DXDRO== 
DXDR1== 
DXDR2== 
DXDR3== 
DXDR4== 
DXDR5== 
DXDR6== 
DXDR7== 


0B5 
1B5 
2B5 
3B5 
4B5 
=5B5 
6B5 
=7B5 
=10B5 
=11B5 
=12B5 
=13B5 
=14B5 
=1585 
=1685 
=1785 
2085 
2185 
2285 
2385 
2485 
2585 
2665 
2785 
3085 
3185 
3285 
3385 
3485 
3585 
3685 
3785 


CONTROL  REGISTER 

STATUS  REGISTER 

ERROR  REGISTER 

MAINTAINABILITY  REGISTER  . 

ATTENTION  SUMMARY  ''PSEUDO"  REGISTER 

NOT  USED 

DRIVE  TYPE  AND  HARDWARE  VERSION  REGISTER 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

NOT  USED 

GENERAL  PURPOSE  REGISTER  0 

GENERAL  PURPOSE  REGISTER  1 

GENERAL  PURPOSE  REGISTER  2 

GENERAL  PURPOSE  REGISTER  3 

GENERAL  PURPOSE  REGISTER  4 

GENERAL  PURPOSE  REGISTER  5 

GENERAL  PURPOSE  REGISTER  6 

GENERAL  PURPOSE  REGISTER  7 

DIAGNOSTICS  REGISTER  0 

DIAGNOSTICS  REGISTER  1 

DIAGNOSTICS  REGISTER  2 

DIAGNOSTICS  REGISTER  3 

DIAGNOSTICS  REGISTER  4 

DIAGNOSTICS  REGISTER  5 

DIAGNOSTICS  REGISTER  6 

DIAGNOSTICS  REGISTER  7 
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SEQ  0112 


528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 


000001 
000076 


100000 
040000 
020000 
010000 


1 77400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000020 
000010 
000004 
000002 


;♦  MASSBUS  DEVICE  CONTROL  REGISTER  BIT  ASSIGNMENTS  (DXCTR  REG-00) 


G0==    1B35 
DFNCTN==       37B34 


;THE  GO  BIT 

;THE  FIVE  FUNCTION  BITS 


;*  MASSBUS  DEVICE  STATUS  REGISTER  BIT  ASSIGNMENTS  (DXSTR  REG-01) 


ATA==  1B20 
CERR==  1B21 
LNKPRS==1B22 
MPRUN==  1B23 


ATTENTION  ACTIVE  (CAUSES  ATTN  SUMMARY) 
COMPOSITE  ERROR  (MUST  CHECK  ERROR  REGS) 
LINK  PRESENT 
MICRO  PROCESSOR  RUNNING 


*  BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  ERROR  REGISTER  (DXER  REG-02) 


EC==  377B27 
MPERR==  1B28 
MPSTP==  1B29 
UBPAR==  1B30 
DTBPAR==1B31 
CTBPAR==1B32 
RMR==  1B33 
ILR==  1B34 
ILF==   1B35 


MASK  FOR  ERROR  CODE  BITS 

MICRO  PROCESSOR  DETECTED  ERROR 

MICRO  PROCESSOR  STOPPED 

MICROBUS  PARITY  ERROR  IN  MASSBUS  INTERFACE 

DATA  BUFFER  PARITY  ERROR 

MASSBUS  CONTROL  PARITY  ERROR 

REGISTER  MODIFICATION  HAS  BEEN  REFUSED 

TRIED  TO  ACCESS  A  NON- IMPLEMENTED  REGISTER 

TRIED  TO  ISSUE  A  NON  IMPLEMENTED  COMMAND 


♦  BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  MAINT  REGISTER  (DXMTR  REG-03) 


MPSC==  1B31 
MPWEVP==1B32 
MPSTR==  1B33 
DXRES==  1B34 


SINGLE  STEP  MICRO  CONTROLLER 
WRITE  EVEN  PARITY  BALU 
START/STOP  MICRO  CONTROLLER 
RESET  MICRO  CONTROLLER 
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SEQ  0113 


566 

567 

568 

569 

570 

571 

572 

573 

57A 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 


000200 
000100 
OOOOAO 
000020 
000010 
000004 
000002 
000001 


050060 
010051 
010052 
010061 
010061 

043630 
043645 
043636 
036742 
042307 
042724 
043517 
043517 
043417 
043417 


♦BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  ATTENTION  SUMMARY  REGISTER  (DXASR  REG-04) 
»»♦»♦»*»♦♦♦»**♦♦»♦»♦♦♦♦♦♦♦*»**♦**♦♦**♦*♦♦♦**♦♦*♦**♦♦*♦♦**♦♦♦♦*♦******* 


ATA07== 
ATA06== 
ATA05=: 
ATA04=: 
ATA03== 
ATA02== 
ATA01== 
ATAOO== 


1B28 
1B29 
1B30 
1B31 
1B32 
1B33 
1B34 
1B35 


;-7 


DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE-0  NEEDS 


•4 
-3 
-2 

■1 


NEEDS 
NEEDS 
NEEDS 
NEEDS 
NEEDS 
NEEDS 
NEEDS 


ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 


•  »»♦»♦♦»♦»♦♦♦♦♦♦♦»»♦»♦♦♦♦*♦♦♦*»»***»♦♦***♦**♦♦♦*♦♦***♦♦***♦♦♦♦♦♦*♦*♦*♦* 

;♦  BIT  ASSIGNMENTS  FOR  MASSBUS  DEVICE  DRIVE  TYPE  REGISTER  (DXDTR  REG-06) 

•  ♦♦♦♦♦♦♦♦»**»*♦»♦♦*»»♦♦♦♦♦♦♦***♦*»*♦***»**♦♦***♦♦*♦♦♦♦♦♦♦***♦♦*♦*»*♦*♦♦ 


DXV1Q0==Q50060 
DXV200==010051 
DXV400==010052 
DXV210==010061 
DXV220==010061 


DX20-V100  DRIVE  TYPE  CODE 
DX20-V200  DRIVE  TYPE  CODE 
DX20-V400  DRIVE  TYPE  CODE 
DX20-RP20  ON  TOPS 10 
DX20-RP20  ON  TOPS20 


LUU01=.XI 

LUU02=REPET. 

LUU03=.LCR 

LUU04=TAPUU0 

LUU05=PNTNUM 

LUU06=PDEC 

LUU026=RDREG. 

LUU027=RDREG. 

LUU032=LDREG. 

LUU033=LDREG. 


OFDXD 
DFDXOT 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 
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SEO  0114 


M7777 


\77777 


100000 
040000 
020000 
010000 
007777 


000377 
1 77400 


177h00 
000377 


1 77400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


!•♦  BIT  ASSIGNMENTS  FOR  MASSBUS  GENERAL  PURPOSE  REGISTER  0-7 

;•  THIS  IS  FOR  REGISTERS  20-27 

•  »♦*»»»»»♦ t»**»**»*t****t*ttt**t ♦»»»♦»*♦**»»♦*♦ t *♦♦*♦*♦♦ ♦♦•*♦♦♦♦♦♦*♦♦•♦ 


DXGP==177777B35 


;MASK  FOR  THE  16  DATA  BITS  IN  REGISTER 


;»  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  0  (DXDRO  RE6-30) 

IR==177777B35  ;MASK  FOR  IR  REG.  BITS 

;*  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  1   (DXDR1  REG-31) 


IREN==  1B20 

MSEN==  1B21 

PCEN==  1B?2 

PCAI==  1d23 

PC==  7777B35 


;ENABLE  IR  LOAD  FROM  MICRO-STORE 
.•ENABLE  MICRO-STORE  LOAD  FROM  IR 
.-ALLOW  LOAD/WRITE  OF  THE  PC 
.•ALLOW  AUTO-INCREMENT  OF  PC 
.•MASK  FOR  12  BITS  IN  PC 


)♦  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  2  <DXDR2  nEG-32) 


ALUA==  377B35 
ALUB==  377B27 


.•MASK  FOR  8  BITS  IN  ALU  A 
;MASK  FOR  8  BITS  IN  ALU  B 


;♦  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  3  (DXDR3  REG-33) 

•  ♦♦♦»♦»♦♦»*♦♦»» t ♦♦»♦♦♦♦♦♦♦♦** *»»»t *»*♦♦*♦♦♦♦♦♦*♦♦♦♦♦♦♦#♦»»»♦♦♦♦ *#♦♦♦♦♦♦ 


SROM==  377B27 
DRO«==  377B35 


:W^K   FOR  8  BITS  IN  S-ROM 
;MajK  for  8  BITS  IN  D-ROM 


;♦  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  4  (DXDR4  RE6-3A) 


FROM==  377B27 
IRPAR==  1B28 
BALUPA==1B29 
ALUAPA==1B30 
ALUBPA==1B31 
INT3==  1B32 
INT2==  1B33 
INT1==  1B34 
INTO==  1B35 


.•MASK  FOR  8  BITS  IN  F-ROM 
;IR  PARITY  BIT 
;BALU  PARITY  BIT 
;A  INPUT  ALU  PARITY  BIT 
.•B  INPUT  ALU  PARITY  BIT 
; INTERRUPT  BIT  3 
.•INTERRUPT  BIT  2 
.•INTERRUPT  BIT  1 
.INTERRUPT  BIT  0 


DFDXD 
DFDXDT 

6A9 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

66A 

665 

666 

667 

668 

669 

670 

671 

672 

673 
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MAC 


6-Apr-85  18:38 


177400 
000377 


1 77400 
000377 


100000 
040000 
020000 
010000 
004000 
D2000 
001777 


MASSBUS  DEVICE  BIT  ASSIGNMENTS 

.  t***t*»»»t »♦♦♦»♦•♦»»♦♦♦»♦♦♦»♦♦*♦*»**»♦*»♦♦*♦♦**♦**♦♦*♦****♦* *♦♦♦♦♦♦♦♦♦ 

;»  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  5  (DXDR5  RE6-35) 


SEQ  0115 


BALU==  377B27 
MEMO==  377B35 


;MASK  FOR  BALU  REGISTER 

;MASIC  FOR  WORKING  MEMORY  OUTPUTS 


;•♦  BIT  ASSIGNMENTS  FOR  MASSbUS  DIAGNOSTICS  REGISTER  6  (DXDR6  REG-36) 


IBUS==  377B27 
BR==    377B35 


;I  BUS  LINES  INPUT  TO  SOURCE  MUX 
;BR  REGISTER 


;•  BIT  ASSIGNMENTS  FOR  MASSBUS  DIAGNOSTICS  REGISTER  7  (DXDR7  REG-37) 

•   ****t *********************** **t ******** *****************<^  ************* 


ALUC==  1B20 
ALU2==  1B21 
IRPARE==1B22 
STICOU==  1B23 
ALUAPE==1B24 
ALiePE==lB25 
MA==         1777835 


;ALU  CARRY  BIT 

;ALU  ==  ZERO 

;IR  PARITY  ERROR 

.-STACK  OVERFLOW/UNDERFLOy 

.•PARITY  ERROR  ALU  A  INPUT 

.•PARITY  ERROR  ALU  B  INPUT 

;MA  REGISTER  OUTPUTS 


}3 
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SEO  0116 


674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
00001 1 
000012 
000013 
000014 
00001 5 
000016 
00001 7 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 

000036 
000037 


♦  MASSBUS  INTERFACE  REGISTER  ASSIGNMENTS  AS  ADDRESSED  FROM  MICRO-PROCESSOR 


MPSCRO==0 
NPSCR1==1 
MPECR==  2 
MPDTR==  3 
MPHVR==  4 
MPDBO==  5 
MPDB1==  6 
MPD82==  7 
MPGPO==  10 
MPGP1==  11 
MPGP2==  12 
NPGP3==  13 
NP6P4==  14 
MP6P5==  15 
MP6P6==  16 
NP6P7==  17 
MP6P10==20 
MP6P11==21 
MP6P1 2==22 
MPGP13==23 
NPGP14==24 
MPGP15==25 
MPGP16==26 
MPGP1 7==27 

NPSTAT==36 
IOSEL==  37 


STATUS  AND  CONTROL  REGISTER  1 
STATUS  AND  CONTROL  REGISTER  2 
ERROR  CODE  REGISTER 
DRIVE  TYPE  REGISTER 
HARDWARE  VERSION  REGISTER 
DATA  BUFFER  REGISTER  0 
DATA  BUFFER  REGISTER  1 
DATA  BUFFER  REGISTER  2 
GENERAL  PURPOSE  REGISTERS 


;MICRO-PROCESSOR  STATUS  REGISTER 
;I/0  SELECT  REGISTER 


04 


DFDXD 
DFDXDT 

706 

707 

708 

709 

710 

711 

712 

713 

7U 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 
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SEQ  0117 


000540 
000544 
000550 
000554 
000560 
0005S4 
000570 
000574 


004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000007 


SUBTTL  RH20  BIT  DEFINITIONS 

.  ♦♦♦♦ t »*♦♦♦♦*♦*»****♦♦♦♦♦ t ♦♦**♦*»***** *******^ **»♦♦* ******************* 

;♦  DEVICE  CODE  FOR  THE  RH20 


RHO== 
RH1== 
RH2== 
RH3== 
RH4== 
RH5== 
RH6== 
RH?== 


540 
544 
550 
554 
560 
564 
570 
574 


*  RH20  CONO  BIT  ASSIGNMENTS 


RAECLR= 

RHCLR== 

XECLR== 

MBE== 

RCLPA== 

DSCR== 

ATTNEN= 

STOP== 

DONCl > 

PIA== 


=1824 
1B25 
1B26 
1B27 
1B28 
1829 

=1B3C 
1B51 

=1B32 
7B35 


REGISTER  ACCESS  ERROR  CLEAR 
MASSBUS  CONTROLLER  CLEAR 
TRANSFER  ERROR  CLEAR 
MASSBUS  CONTROLLER  ENABLE 
RESET  THE  COMMAND  LIST  POINTER 
DELETE  SECONDARY  COMMAND  REGISTER 
ATTENTION  INTERRUPT  (ENABLE) 
STOP  THE  TRANSFER 
CLEAR  COMMAND  DONE 
PI  CHANNEL  MASK  BITS 
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SEQ  0118 


735 

736 

737 

738 

739 

7A0 

741 

7A2 

7A3 

7AA 

7A5 

7A6 

7A7 

7A8 

7A9 

750 

751 

752 

753 

75A 

755 

756 

757 

758 

759 

760 

761 

762 

763 

76A 

765 

766 

767 

768 

769 

770 

771 

172 

771 

77^ 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 


AOOOOO 

DBPE== 

1818 

200000 

DREX== 

1B12 

100000 

LWCER== 

1820 

OAOOOO 

SWCER== 

1821 

020000 

MBXER== 

1822 

010000 

DRESSER 

==1B2i 

OOAOOO 

RAEER== 

182A 

002000 

MBXHLT= 

=1825 

001000 

D0VRER= 

=1B26 

OOOAOO 

MASSEN= 

=1827 

000200 

DRATTN= 

=1828 

000100 

SCRFUL= 

=1829 

OOOOAO 

ATTNEN= 

=1830 

000020 

PCRFUL= 

=1831 

000010 

CMDDN-== 

1832 

000007 

PIA== 

7835 

OOAOOO 
001 000 
OOOAOO 
000200 
000007 


000000 
000000 
000000 
000000 
000000 
AOOOOO 
200000 
U7777 


OOAOOO  000000 

000007  000000 

U7777 


OOAOOO  000000 

002000  000000 

000200  000000 

000007  000000 

200000 

177700 

000077 


;♦  RH20  CONI  BIT  ASSIGNMENTS 

DATA  BUSS  PARiTY  EF70R 

DRIVE  EXCEPTION 

LONG  WORD  COUNT  ERROR 

SHORT  WORD  COUNT  ERROR 

M-BOX  ERROR 

DRIVE  RESPONSE  ERROR 

REGISTER  ACCESS  ERROR 

THE  M-BOX  IS  HALTED 

DATA  OVERRUN  ERROR 

MASSBUS  ENABLED 

DRIVE  NEEDS  ATTENTION 

SECONDARY  COMMAND  REG  IS  FULL 

THE  ATTENTION  INTERRUPT  IS  ENABLED 

PRIMARY  COMMAND  REGISTER  IS  FULL 

COMMAND  IS  DONE 

)♦  DATAO-DATAI  FOR  THE  DRIVE  REGISTERS  (00-37) 


LR== 

PERR== 

DRAES== 

TRA== 

DRSEL== 

GEVC== 

PAR== 

RDAT== 


186 

188 

189 

1810 

7817 

1818 

1819 

177777835 


LOAD  REGISTER  BIT 

PARITY  ERROR  DETECTED 

DISABLE  REG  ACCESS  ERROR  STOP 

ASYNC  TRANSFER  IN  PROGRESS 

A  MASK  FOR  DRIVE  SELECT  BITS 

WRITE  AS  EVEN  PARITY 

PARITY  RECEIVED  ON  LAST  REGISTER  READ 

MASK  FOR  THE  16  DATA  BITS  IN  THE  REG. 


)*  DATAO-DATAI  FOR  RH20  SECONDARY  BLOCK  ADDRESS  REGISTER  (70) 


LR==    186 
DRSEL==  7817 
RDAT==  177777B35 


LOAD  REGISTER 

DRIVE  SELECT  MASK 

MASK  FOR  THE  16  DATA  BITS 


♦  DATAO-DATAI  FOR  RH20  SECONDARY  TRANSFER  CONTROL  REGISTER  (71) 


LR== 

RCLP== 

STORE== 

DRSEL== 

DTES== 

BLKCNT= 

FNCTN== 


186 
187 
1810 
7817 
1B19 
=1777829 
77835 


LOAD  REGISTER  BIT 
RESET  THE  COMMAND  LIST  POINTER 
STORE  THE  M-BOX  ERROR  STATUS 
MASK  FOR  THE  DRIVE  SELECT 
DISABLE  TRANSFER  ERROR  STOP 
MASK  FOR  THE  BLOCK  COUNT 
MASK  FOR  THE  FUNCTION 


DFDXD   DX20-V 

100  MAGNE 

TIC  TAPE 

DFDXDT  MAC 

6-Apr- 

85  18:3( 

788 

789 

790 

791 

792 

000007 

OOOOOO 

793 

^77777 

79A 

795 

796 

797 

798 

799 

000007 

OOOOOO 

800 

200000 

801 

177700 

802 

000077 

803 

804 

805 

806 

807 

808 

000777 

809 

810 

811 

812 
813 
81A 

7A0000 

OOOOOO 

815 

730000 

OOOOOO 

816 

720000 

OOOOOO 

817 

710000 

OOOOOO 

818 

7uJ000 

OOOOOO 
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;♦  DATAO-DATAI  FOR  RH20  PRIMARY  BLOCK  ADDRESS  REGISTER  (72) 


DRSEL==  7B17   ,^ 
RDAT==  177777B35 


;MASK  FOR  DRIVE  SELECT  BITS 
;MASK  FOR  THE  REGISTERS  DATA  BITS 


;♦  DATAO-DATAI  FOR  RH20  PRIMARY  TRANSFER  REGISTER  (73) 


DRSEL==  7B17 
DTES==  1B19 
BLKCNT==1777B29 
FNCTN==  77B35 


;MASK  FOR  THE  DRIVE  SELECT  BITS 
; INHIBIT  TRANSFER  ERROR  STOP 
;MASK  FOR  THE  BLOCK  COUNT 
;MASK  FOR  THE  FUNCTION  BITS 


!•♦  DATAO-DATAI  FOR  THE  RH20  INTERRUPT  VECTOR  REGISTER  (7A) 


IADDR==  777B35 


;MASK  FOR  THE  INTERRUPT  ADDRESS 


;♦  RH20  REGISTER  ASSIGNMENTS 


RHIVR==  7AB5 
RHPTCR==73B5 
RHPBAR==72B5 
RHSTCR==71B5 
RHSBAR==70B5 


.•INTERRUPT  VECTOR  INDEX  REGISTER 
.•PRIMARY  TRANSFER  CONTROL  REGISTER 
.•PRIMARY  BLOCK  ADDRESS  REGISTER 
.•SECONDARY  TRANSFER  CONTROL  REGISTER 
.•SECONDARY  BLOCK  ADDRESS  REGISTER 


SEQ  0119 


DFDXD 
DFOXOT 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

*^58 
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400000 

200000 

040000 

020000 

01 OC  ^ 

004C 

000  J 

000200 

000004 

000002 

000001 


000270 
000274 


000000 
000000 
000000 
000000 
000000 
000000 
OOOOGC 
000000 
000000 
000000 
000000 
400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
000200 
000100 
000040 
000020 
000010 


VERSION  0.5 
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SEQ  0120 


;♦  DEVICE  CODE  FOR  THE  RH10 

•   ♦♦♦»♦»»♦♦♦***♦♦♦*♦♦♦** t*****»*t *♦**♦♦*♦♦♦♦♦»♦*** t ♦♦♦#»♦♦♦♦♦*♦ »♦♦♦♦♦*♦♦ 


RH== 
RHB== 


170 
!74 


!•*  RH10  CONO  BIT  ASSIGNMENTS 


400000 

DBPCLR== 

200000 

EXCLR== 

100000 

CHNCLR= 

040000 

WRTCW== 

020000 

0VRCLR= 

010000 

DRECLR= 

004000 

ILCCLR= 

002000 

RHCLR== 

000200 

CB0CLR= 

000100 

RAEEN-= 

000040 

ATTNEN= 

000020 

ST0P== 

000010 

DONCLR= 

=1818 

1B19 
=1820 

1821 
=1822 
=1823 
=1824 

1625 
=1828 

1829 
=1830 

1B31 
=1632 


CLEAR  DBPE 

CLEAR  EXCEPTION 

CLEAR  CHANNEL  ERROR 

WRITE  CONTROL  WORD 

CLEAR  OVERRUN 

CLEAR  DRIVE  RESPONSE  ERROR 

SUPPRESS  ILL.  COMMAND 

CLEAR  THE  RHIO 

CLEAR  CONTROL  BUS  OVERRUN 

RAE  INTERRUPT  EA6LE 

ATTN  INTERRUPT  ENABLE 

STOP  TRANSFER  AND  CLEAR  THE  RHIO 

CLEAR  THE  DONE  INTERRUPT 


:*  RHIO  CONI  BIT  ASSIGNMENTS 


ARFULL= 

CBFULL= 

CCINH== 

CHNACT= 

CHNPLS= 

DF22B== 

ILFC== 

SDRAE== 

CDPE== 

CWPE== 

NXM== 

OBPE== 

tXCEP== 

CHNER== 

cywRT== 

OVRRUN= 

DRE== 

ILC== 

PS'AIL= 

CBOV== 

RAE== 

ATTN== 

BUSY== 

DONE== 


=160 

=161 
163 

=164 

^165 
166 
169 
1610 
1915 
1616 
1617 
1618 
1619 
1620 
1621 

=1622 
1623 
1624 

=1825 
1628 
1629 
1630 
1631 
1832 


RHIO  AR  FULL 

PH10  C8  FULL 

D:10  CHANNEL  INHIBIT 

DF10  CHANNEL  ACTIVE 

DFig  CHANNEL  PULSE 

DF10  IN  22  BIT  MODE 

ILLEGAL  FUNCTION  CODE 

SELECTED  DRIVE  REGISTER  ACCESS  ERROR 

CHANNEL  DATA  PARITY  ERROR 

CONTROL  WORD  PARITY  ERROR 

NON-EXISTANT  MEMORY 

DATA  BUS  PARITY  ERROR 

EXCEPTION 

CHANNEL  ERROR  (CDPE,  CWPE.  OR  NXM) 

CONTROL  WORD  WRITTEN 

DISK  OVERRUN 

DRIVE  RESPONSE  ERROR 

ILLEGAL  COMMAND  (ILFC+SDRAE) 

POWER  SUPPLY  FAIL 

CONTROL  BUS  OVZRRUN  INTERRUPT 

REGISTER  ACCESS  ERROR  INTERRUPT 

ATTENTION  INTERRUPT 

BUSY 

DISK  DONE  INTERRUPT 
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SEO  0121 


87A 

875 

876 

877 

878 

879 

880 

881 

882 

883 

88A 

885 

886 

887 

888 

889 

890 

891 

892 

893 

89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 

90A 

905 

906 

907 

908 


OOAOOO 
OOAOOO 
002000 
001000 
000400 
000200 


000000 
000000 
000000 

oooooc 

000000 
000000 
400000 
200000 


400000  000000 

500000  000000 

440000  000000 

540000  000000 

740000  000000 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


»♦♦»♦♦♦•♦♦»♦*♦♦♦*** t ♦♦♦♦♦♦•♦♦ t»tt »♦♦♦♦♦♦♦•♦♦♦ t**t *♦♦♦•♦♦♦♦•♦♦♦♦♦♦*♦♦♦♦ 

r  RHIO  DATAO-DATAI  00  -  37  BIT  ASSIGNMENTS  (DRIVE  INTERFACE  BUFFER) 


LR== 

CT0D== 

CBTO== 

CBPE== 

DLT== 

DIBILC^ 

GEVC== 

CBPAR== 


1B6 
186 
1B7 
188 
189 
=1810 
1B18 
1B19 


LOAD  REGISTER  (COMMON  TO  ALL  REGISTERS) 

CONTROLLER  TO  DRIVE 

CONTROL  BUS  TIME  OUT 

CONTROL  BUS  PARITY  ERROR 

DATA  LATE  ERROR 

ILLEGAL  R/W  COMMAND  LOADED  INTO  DIB  REGISTER 

GENERATE  EVtN  PARITY  CONTROL  BUS 

CONTROL  BUS  PARITY  BIT 


*  RHIO  REGISTER  ASSIGNMENTS 


RHCR== 
RHDB== 
RHIA== 
RHRA== 
RHCB== 


40B5 
5065 
4465 
5465 
7465 


.•CONTROL  REGISTER 
DATA  6UFFER 

INTERRUPT  ADDRESS  REGISTER 
REGISTER  ACCESS  ERROR  REGISTER 
CHANNEL  eUFFER 


;♦  RHIO  DATAO-DATAI  54  BIT  ASSIGNMENTS  (REGISTER  ACCESS  ERROR  STATUS) 


DR7RAE= 
DR6RAE= 
DR5RAE= 
DR4RAE= 
DR3RAE= 
DR2RAE= 
DR1RAE= 
DRORAE= 


=1628 
=1629 
=1650 
=1631 
=1632 
=1633 
=1634 
=1635 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


ACCESS 
ACCESS 
ACCESS 
ACCESS 
ACCESS 
ACCESS 
ACCESS 
ACCESS 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


ON  DRI 
ON  DRI 
ON  DRI 
ON  DRI 
ON  DRI 
ON  DRI 
ON  DRI 
ON  DRI 


VE  #7 
VE  #6 
VE  #5 
VE  #4 
VE  #3 
VE  #2 
VE  #1 
VE  #0 
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909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 


000002  000000 

000001  000000 

000777 


002000 
001000 
000010 
000004 
000002 
000001 


000000 
000000 
000000 
000000 
000000 
000000 
777777 


002000  000000 
001000  000000 
000100  000000 
400000 
200000 
077600 
000100 
000076 
000001 


*  RHIO  DATAO-DATAI  44  BIT  ASSIGNMENTS  (INTERRUPT  ADDRESS  REG) 


KIINT==  1B16 

KAINT: 

KIADD- 


KAINT==  1B17 
)==  7y7 


==1  WHEN  IN  KI  INTERRUPT  MODE 

==1  WHEN  RHIO  IS  IN  KA  INTERRUPT  MODE 

9  BIT  MASK  FOR  KIIO  INTERRUPT 


♦  RHIO  DATAO-DATAI  50  BIT  ASSIGNMENTS  (DATA  BUFFER  REG) 


DBSCLK==1B7 
DBEBl==  1B8 
DB0DD==  1B14 
DBEVNB==1615 
DB0DDB==1B16 
DBPAR==  1B17 
DBMSK==  777777 


DIAG  SYNC  CLKOCK 

DIAG  END-OF-BLOCK 

STATE  OF  PAR  NETWORK  OUTPUT 

RHIO  AR  CONTROL  EVEN  BYTE 

RHIO  AR  CONTROL  ODD  BYTE 

DATA  BUS  PARITY  BIT 

18  BIT  MASK  FOR  DATA  TRANSFER 


♦  RHIO  DATAO-DATAI  40  BIT  ASSIGNMENTS  (CONTROL  REGISTER) 


CRCBT0==1B7 
DBT0==  188 
MM0D==  IBll 
GEVD==  1B18 
DXES==  1B19 
ICWMSK==377B28 
WTEVM==  1829 
FCMSK==  37834 
G0==:    1835 


CONTROL  BUS  TIME  OUT  ERROR 

DATA  BUS  TIME  OUF  ERROR 

MAINTENANCE  MODE 

GENERATE  EVEN  PARITY  DATA  BUS 

DISABLE  TRANSFER  ERROR  STOP  (DBPR,  EXCEP,  COPE) 

INITIAL  CONTROL  WORD  ADDRESS  MASK  -  8  BITS 

WRITE  EVEN  PARITY  MEMORY 

FUNCTION  CODE  MASK  -  5  BITS  (30-34) 

MASSBUS  GO  BIT 
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DFDXDT  MAC     6-Apr-85  18:38        RH10  BIT  DEFINITIONS  SEQ  01^3 

9A2 

9A4  ;*  MASK  FOR  ASYNC  STATUS 

9A7  102000        BOTDND==  1B20^1B25  ;BOT  ATTENTION  AND  DEVICE  END  [0.53 


DFDXD 

DX20-V100  MAGNETIC  TAPE 

PARAM 

<LM 

18-Sep-79  17:16 

9A8 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

400000 

959 

200000 

960 

100000 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  1 
♦PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

SUBTTL  ♦PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

DEFINE  S,<;  ♦************♦*************************************************♦*****> 

*♦•♦***♦******•*♦•♦*♦♦♦*•♦********♦*♦♦♦*****************************♦* 

*DATA  SWITCHES  (READ  FROM  CONSOLE  IN  EXEC  MODE  OR  TYPED  IN  IN  USER  MODE) 
♦LEFT  HALF  SWITCHES  ARE  PRE-ASSIGNED  FOR  SUBROUTINE  PACKAGE  USE 
*AND  CONTROL  LOOPING,  PRINTING  (TTY  OR  OTHER  DEVICE)  AND  MISC.  FUNCTIONS 
♦♦**♦♦*♦•****♦*♦*♦****♦♦♦♦******♦♦♦♦*♦******************************** 


SEQ  0124 


040000 
020000 
010000 

004000 
002000 
001000 

000400 
000200 
000100 

000040 
000020 
000010 

000004 

000002 


AB0RT==  400000 
RSTART==200000 
T0TALS==1 00000 

N0PNT==  040000 
PNTLPT==020000 
DING==  010000 

LOOPER==004000 
ERSTOP==002000 
PALERS==001000 

RELIAB==000400 
TXTINH==000200 
!NHPAG==000100 

MODDVC==000040 
INHCSH==000020 
OPRSEL==000010 

CHAIN==  000004 

KAHZ50==000002 


ABORT  PROGRAM  ON  PASS  COMPLETION 
RESTART  TEST,  PRINT  TOTALS 
PRINT  TOTALS,  CONTINUE 

INHIBIT  ALL  PRINT/TYPE  OUT  (EXCEPT  FORCED) 

PRINT  ALL  DATA  ON  LPT  (LOGICAL  DEVICE,  USER  MODE) 

RING  BELL  ON  ERROR 

ENTER  EXERCISE/CHECK  LOOP  ON  ERROR 
HALT  ON  TEST  ERROR 
PRINT  ALL  ERRORS 

RELIABILITY  MODE 
INHIBIT  ERROR  TEXT 
INHIBIT  PAGING 

MODIFY  DEVICE  CODE 
INHIBIT  CACHE 
OPERATOR  SELECTION 

CHAIN  CONTROL  SWITCH 

KA10  50  HERTZ  POWER 

SWITCH  17  RESERVED  III 


OFDXD 
PARAM 

983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
99A 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
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SUBTTL  ♦PARAM*  PROGRAM/ SUBROUTINE  PARAMETERS  SEPT  18J979 

♦***♦*♦**♦***♦♦♦♦♦♦•♦♦♦*♦****♦*•***•****•************♦♦******♦***♦*♦** 

♦SPECIAL  SUBPROGRAM  LINKAGES 
*********** ****♦♦♦**♦♦♦♦*•**♦•♦»•*•***•••***•♦••♦♦*•♦•***•**••••*•*♦*♦ 


SEQ  0125 


027772 
027773 
027774 
027775 
027776 
027777 


FSELNK= 

FRDLNIC= 

LDLNK= 

DDTLNK= 

M0DLNK= 

SUBLNK= 


27772 
27773 
27774 
27775 
27776 
27777 


FILE  SELECT  LINK 

FILE  READ  LINK 

LOAD  LINKAGE  ADDRESS 

DDT  LINKAGE  ADDRESS 

OPERATIONAL  MODE  CHECK  LINKAGE  ADDRESS 

SUBROUTINE  LINKAGE  ADDRESS 


*♦**♦♦*♦♦♦♦♦*♦**♦**♦♦♦♦♦♦*•♦***•******•*♦•*•**•***♦*♦*♦♦♦***♦*♦♦*♦♦*♦♦ 

♦SPECIAL  SUBROUTIi^E  FATAL  HALTS 

♦USED  TO  REPORT  cRRORS  THAT  CAUSE  THE  SUBROUTINES  TO  BE  UNUSABLE 
*♦♦*****♦******♦♦***•***♦*****************♦*♦*♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

ADDRESS   TAG  REASON 


1010  NOEXEC  .-PROGRAM  NOT  CODED  FOR  EXEC  MODE  OPERATION 

1011  PLERR  ;FATAL  PUSH  LIST  POINTER  ERROR 

1012  PLERR1  .-INITIAL  PUSH  LIST  POINTER  ERROR 

1013  MUOERR  ;MUUO  WITH  LUUO  HANDLER  WIPED  OUT 

1014  DTEBER  .-DTE20  INTERRUPT  WITHOUT  DOORBELL 

1015  DTECER  ;DTE20  CLOCK  INTERRUPT  WITHOUT  FLAG  SET 

1016  CPIERR  .-CPU  INITIALIZATION  ERROR 

1017  EOPERR  .-END  OF  PROGRAM  ERROR 

1020  LUOERR  -INTERRUPT  WITH  LUUO  HANDLER  WIPED  OUT 


DFDXD 
PARAM 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102A 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

10A0 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 
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♦PARAM*  PROGRAM/SUBROUTINE  PARAMETERS,  SEPT  18J979 

*♦♦*♦*♦*»*♦♦♦**♦♦*♦♦♦ t ♦♦♦♦♦*♦*♦*♦♦***♦♦♦♦♦*♦******♦*♦*♦***** *♦**♦*♦♦♦* 

OPERATOR  DEFINITIONS  (NON-UUO'S) 
»♦♦*♦♦**»*♦♦*♦»**♦*♦*♦♦♦♦*♦***♦*****♦***♦♦♦♦♦♦**♦*♦♦*♦♦******♦♦******* 


SEQ  0126 


260740 
263740 
261 740 
262740 
254000 
254200 
254100 
254500 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


265000  030011 


037640  000004 
037600  000004 


037000 
037040 
037100 
037140 
037200 
037240 
037300 
037340 
037400 
037440 
037500 


000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


GO 

RTN 

PUT 

GET 

PJRST 

HALT 

JRSTF 

JEN 


CPUSHJ 

CPOPJ 

[PUSH 

[POP 

CJRST 

[JRST 

CJRST 

CJRST 


P'3 

4J 
iJj 


SUBROUTINE  CALL 
SUBROUTINE  RETURN 
PUT  DATA  ON  PUSH  LIST 
GET  DATA  FROM  PUSH  LIST 
JRST  TO  ROUTINE  THAT  RTN'S 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 


♦*♦♦»♦♦♦♦**♦*♦♦♦♦***♦♦♦♦♦♦♦♦**♦»»**♦»*♦*♦*♦*♦****♦♦*♦*♦***♦♦♦♦♦♦*♦*♦♦♦ 

SUBROUTINE   INITIALIZATION  CALL 
»»♦*♦♦**»♦♦»♦»♦♦♦♦♦»♦♦♦♦♦♦♦»*♦***************♦♦********♦♦*******♦*♦*** 


OPDEF       PGMINT     CJSP         0,SBINIT] 


.•SUBROUTINE  INITIALIZATION 


»»»♦♦•♦»»♦♦♦**♦****♦♦♦♦♦♦♦♦***»*♦*♦*♦*♦♦♦♦♦♦♦***♦♦*♦*******♦♦**♦*♦***♦ 

HALTING  UUO'S  (A  MORE  GRACEFUL  HALT  THAN  SIMPLY  USING  THE  HALT  INSTRUCTION) 
♦♦♦♦*»♦♦»♦♦♦♦***♦♦»♦*♦♦♦♦♦»♦♦♦*♦*♦»♦♦♦♦**♦♦♦♦**♦♦♦***♦♦♦»♦♦**♦*♦*♦*♦♦♦ 

OPDEF   FATAL   C37B8n5B12!4J  ;FATAL  PROGRAMMING  HALT 
OPDEF   ERRHLT  C37B8!14B12I4]  .-PROGRAM  ERROR  HALT 

************«t******tt •««******«***«♦*********«♦*****«*«****** ******** 

TERMINAL  INPUT  UUO*S 

ALWAYS  COME  FROM  THE  CONSOLE  TERMINAL  IN  EXEC  MODE  OR  THE 
CONTROLLING  TERMINAL  (REAL  TERMINAL  OR  PTY)  IN  USER  MODE. 
♦♦♦♦♦♦♦♦t»*»*»*»»**************** ***************************** ******** 


OPDEF 

TTICHR 

OPDEF 

TTIYES 

OPDEF 

TTINO 

OPDEF 

TTIOCT 

OPDEF 

TTIDEC 

OPDEF 

TTICNV 

OPDEF 

TTLOOK 

OPDEF 

TTALTM 

OPDEF 

TTSIXB 

OPDEF 

TTYINP 

OPDEF 

TTICLR 

C37B8 
:37B8 
:37B8 

37B8 
37B8 
:37B8 
:37B8 
;37B8 
:37B8 
:37B8 


10B12I3] 

!1B12I3] 

I2B12133 

13B1213] 

14B12I3] 

!5B12!33 

•6B12I3] 

•7B12I3] 

110B12I3] 

I11B12I3] 

112B12I3] 


TTY.  INPUT  ANY  CHARACTER 

TTY.  NORMAL  RETURN  Y 

TTY.  NORMAL  RETURN  N 

TTY.  INPUT  OCTAL  WORD 

TTY.  INPUT  DECIMAL  WORD 

TTY.  INPUT  CONVERTABLE  WORD 

TTY.  KEYBOARD  CHECK 

TTY.  ALT-MODE  CHECK 

TTY.  INPUT  SIXBIT  WORD 

TTY.  IMAGE  MODE  INPUT 

TTY.  CLEAR  INPUT 


r 


DFDXD 
PARAM 

1058 
1059 
1060 
1061 
1062 
1063 
106A 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
107A 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
108A 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
109A 
1095 
1096 
1097 
1098 
1099 
HOC 
1101 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page 
KLM     18~Sep-79  17:16        ^PARAM*  PROGRAM/ SUBROUTINE  PARAMETERS,  SEPT  18,1979 


SEQ  0127 


.•TERMINAL  OUTPUT  UUO'S. 


037000 
037000 
037740 
037740 
037600 
037640 
037000 
037040 
037100 
037200 
037000 
037040 
037500 
037500 
037040 
037040 
037100 
037100 
037140 
037140 
037200 
037200 
037240 
037240 
037300 
037300 
037340 
03^340 
G^  '440 
037440 
037400 
037400 
037600 
037600 
037540 
037540 
037700 
037740 
037640 
037640 
037700 
037700 


000000 
000001 
000000 
000001 
000003 
000003 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
QOOOOl 
000000 
000001 
000003 
000003 
000000 
000001 
000000 
000001 


OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPDE 
OPOE 


PNTA 

PNTAF 

PNTAL 

PNTALF 

PSIXL 

PSIXLF 

PNTMSG 

PNTMSF 

PSIXM 

PSIXMF 

PNTCI 

PNTCIF 

PNTCHR 

PNTCHF 

PNT1 

PNT1F 

PNT2 

PNT2F 

PNT3 

PNT3F 

PNT4 

PNT4F 

PNT5 

PNT5F 

PNT6 

PNT6F 

PNT7 

PHJ7f 

PNTll 

PNTllF 

PNTADR 

PNTADF 

PNTOCT 

PNTOTF 

PNTHW 

PNTHWF 

PNTOCS 

PNTOCF 

PNTDEC 

PNTDCF 

PNTDS 

PNTDSF 


371 


0812!0] 
1211] 


??, 


0] 

ii 


17B12 

17B12 

14812 

15B12 

0612!0j 

1Bl|!0: 

2B12!0: 

461 2  !0: 

0612!0: 

1B12!0: 

12B12I0] 

l2B12!n 


1B12 
1B12 
2B12 

§111 

3612 

4612 

4612 

5612 

5612 

6612 

6612 

7612 

7612 

11612 

11612 

10612 

10612 

14612 

14612 

13612 

13612 

16612 

17612 

15612 

1561? 

1661^ 

16612 


03 
13 
03 
13 
03 
13 

o: 
i: 
o: 
i: 
o; 
i: 
o; 
i: 

( 

1, 

0 

1 


03 

i: 
o: 
i: 
3: 

3 

0 
1 
OJ 

1 


PRINT  ASCII  WORD 

PRINT  ASCII  yORD  FORCED 

PRINT  ASCIZ  LINE 

PRINT  ASCIZ  LINE  FORCED 

PRINT  SiXBIT'Z  LINE 

PRINT  SIXBIT'Z  LINE  FORCED 

PRINT  MESSAGE  IMMEDIATE 

PRINT  MESSAGE  IMMEDIATE  FORCED 

PRINT  SIXBIT'Z  MSG  IMMEDIATE 

PRINT  SIXBIT'Z  MSG  IMM  FORCED 

PRINT  CHARACTER  IMMEDIATE 

PRINT  CHARACTER  IMMEDIATE  FORCED 

PRINT  CHARACTER 

PRINT  CHARACTER  FORCED 

PRINT  ONE  OCTAL  DIGIT 

PRINT  1  OCTAL  DIGIT  FORCED 

PRINT  TyO  OCTAL  DIGITS 

PRINT  2  OCTAL  DIGITS  FORCED 

PRINT  THREE  OCTAL  DIGITS 

PRINT  THREE  OCTAL  DIGITS  FORCED 

PRINT  FOUR  OCTAL  DIGITS 

PRINT  FOUR  OCTAL  DIGITS  FORCED 

PRINT  FIVE  OCTAL  DIGITS 

PRINT  FIVE  OCTAL  DIGITS  rORCED 

PRINT  SIX  OCTAL  DIGITS 

PRINT  SIX  OCTAL  DIGITS  FORCED 

PRINT  7  OCTAL  DIGITS 

PRINT  7  OCTAL  DIGITS  FORCED 

PRINT  11  OCTAL  DIGITS 

PRINT  11  OCTAL  DIGITS  FORCED. 

PRINT  PHYSICAL  ADDRESS 

PRINT  PHYSICAL  ADDRESS  FORCED 

PRINT  FULL  WORD  OCTAL 

PRINT  FULL  WORD  OCTAL  FORCED 

PRINT  OCTAL  HALF  WORDS,  6  SP  6 

PRINT  OCTAL  HALF  WORDS,  6  SP  6  FORCED 

PRINT  OCTAL,  SUPPRESS  LEADING  O'S 

PRINT  OCTAL,  SUPPRESS  LEADING  O'S  FORCED 

PRINT  DECIMAL,  SUPRESS  LEADING  O'S 

PRINT  DECIMAL,  SUPRESS  LEADING  O'S  FORCED 

PRINT  DECIMAL,  SPACES  FOR  LD  O'S 

PRINT  DECIMAL,  SPACES  FOR  LD  O'S  FORCED 
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PRINT  PROGRAM  NAME 
PRINT  SIXBIT  yORD 
PRINT  SIXBIT  yORD  FORCED 
CLOSE  LOGICAL  FILE,  USER  MODE 
.-   .PRINT  DFIO  CONTROL  WORD 
23   ;PRINT  DFIO  CONTROL  WORD  FORCED 
CRLFD  ;PRINT  CARRIAGE  RETURN/LINE  FEED 
CRLF3  :PRINT  CARRIAGE  RETURN/LINE  FEED  FORCED 
403  :f>RlHl   SfMCE 
403  :PRINT  SPACE  FORCED 

. CRLF2i  .-PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE) 

37B8!1B12!CRLF23  :PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE)  FORCED 
:37B8!1B12I73   ;PftlNT  TTY  BELL 

OPDEF   PFORCE  C37B8 118121263  ;PRINT  FORCE.  CONTROL  0  OVERRIDE 

DEFINE  PMSG    (ARG).< 

PSIXM   CSIXBIT\ARG*.\3> 


SEO  0128 


1102 

037200 

000002 

1103 

037000 

000002 

1104 

037040 

000002 

1105 

037240 

mi 

1106 

037100 

1107 

037140 

000002 

1108 

037000 

030242 

1109 

037040 

030242 

1110 

037000 

000040 

1111 

037040 

000040 

1112 

037000 

030243 

1113 

037040 

030243 

1114 

037040 

000007 

1115 

1116 

037040 

000026 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 
1132 
1133 

037400 

000002 

1134 

1135 

1136 
1137 
1138 

037540 

000004 

1139 

037200 

000004 

1140 

1141 
1142 
1143 

037040 

000004 

1144 

037100 

000004 

1145 

037140 

000004 

OPDEF 

PNTNM 

OPDEF 

PNTSIX 

OPDEF 

PNTSXF 

OPDEF 

DROPDV 

OPDEF 

PNTCW 

OPDEF 

PNTCWF 

OPDEF 

PCRL 

OPDEF 

PCRLF 

OPDEF 

PSP 

OPDEF 

PSPF 

OPDEF 

PCRL2 

OPDEF 

PCRL2F 

OPDEF 

PBELL 

DEFINE  PMSGF   (ARG).< 

PSIXMF  CSIXBIT\ARG'.\3> 

;SIXBT2  —  MACRO  TO  GENERATE  SIXBIT  DATA  FOR  PRINTING 
CONSERVES  CORE  OVER  ASCIZ 

DEFINE  SIXBTZ  (ARG).<  lSIXBIT\ARG*.\3> 

.•CONSOLE  SWITCH  INPUT  UUO. 

.•READS  CONSOLE  Si'ITCHES  IF  IN  EXEC  MODE  OR  ASKS  FOR  THEM  IF 

:  USER  MODE. 

OPDEF   SWITCH  C3788110B12I23  .-INPUT  CONSOLE  SWITCHES 

.•CLOCK  INITIALIZATION  UUO  -  TO  SET  DESIRED  CLOCK  OPERATION 

.•EITHER  IGNORE  CLOCK.  ONLY  LET  IT  TJCK  OR  CAUSE  INTERRUPT  TO  OCCUR. 

OPDEF   CLOKOP  C37B8I13B12143  ;CLO  <  OPERATION  UUO  -  PDP-11  CLOCK 
OPDEF   MTROP   C37B8!4B12I43   .-CLOCK  OPERATION  UUO  -  DK20  METER 


.-KL10  ONLY  CACHE  OPERATION  UUO'S 

OPDEF  CINVAL  C37B811B12!43 
OPDEF  CFLUSH  C37B812B12143 
OPDEF   CWRTBI  C3:^B8I3B12I4] 


CACHE  INVALIDATE 

CACHE  FLUSH 

CACHE  WRITE-BACK  i  INVALIDATE 
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SEO  0129 


1K6 

1K7 

1K8 

1K9 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 


037500  000004 
037700  000004 


037000 
037500 
037440 
037540 
037640 
037600 
037740 


000004 
000002 
000002 
000002 
000002 
000002 
000002 


C37340 
037300 


037240 
037300 
037340 
037400 


000002 
000002 

030000 
030000 


000004 
000004 
000004 
000004 


037700  000002 


;END  OF  PASS/PROGRAM  UUOS 

.-PERFORMS  THE  END  OF  PASS  FUNCTIONS.  INCREMENT  PASS  COUNT, 
•DECREMENT  ITERATION  COUNT,  CHECK  IF  FINISHED  WITH  THIS  PROGRAM  ETC 

OPDEF   ENDUUO  C37B8112B12!4]  ;UUO  TO  DISPLAY  LIGHTS 
OPDEF   EOPUUO  C37B8!16B12I4:  ; END  OF  PROGRAM  UUO 


MEMORY  MANAGEMENT  UUO'S 

UUO'S  TO  PERFORM  VARIOUS  MEMORY  FUNCTIONS. 

ADDRESS  CONVERSION,  ETC... 


MAPPING.  ZEROING,  PAGING, 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


MAPMEM 
MEMZRO 
MEMSEG 
M^^PADR 
MAPCNK 
MAPSET 
MAPPNT 


C37B8 
C37B8 
C37B8 
C3788 
C37B8 
C37B8 
C37B8 


0B1214]  ;MAP  MEMORY 

12B12I23  ;ZERO  MEMORY 

11B12I2J  ; SETUP  MEMORY  SEGMENT 

13B12I2]  ; VIRTUAL  TO  PHYSICAL  ADR  CONVERT 

15B12I2]  ;MAP  MEMORY  CHUNK 

14B12I2]  ;SET  KHO  EXEC  PAGE  MAP 

17812:23  .-PRINT  MEMORY  MAP 


DEVICE  CODE  MODIFICATION  UUO 

ALLOWS  THE  MODIFICATION  OF  lOT'S  TO  ONE  DEVICE  TO  BE  CHANGED  TO 

lOT'S  TO  A  DIFFERENT  DEVICE  CODE. 

OPDEF   MODPCU  C37B8I7812I2]   .-MODIFY  PERHIPERAL  CODE,  USER 
OPDEF   MODPCP  [378816812123   .-MODIFY  PERHIPERAL  CODE,  PROGRAM 

IFNDEF  M0DDVL,<MODDVL==8EGIN> 
IFNDEF  M0DDVU,<M0DDVU==8EGIN> 

;"DIAM0N"  FILE  SELECTION  AND  READ  UUOS 


OPDEF  FSELECT  C3788 

OPDEF  FREAD  C37B8 

OPDEF  FRD36  C37B8 

OPDEF  FRD8  C37B8 


5812!4] 
681 2! 4] 
781214] 
10812143 


FILE  SELECTION 

FILE  READ  -  ASCII  DATA 

FILE  READ  -  36  BIT  DATA 

FILE  READ  -  8  BIT  DATA 


.-KI10  ONLY  UUO  FOR  PRINTING  MARGIN  VALUES 

OPDEF   PNTMGN  C37B81 16812123  .-PRINT  MARGIN  VALUE 

XLIST 
IFNDEF  KL0LD,<LIST 


DFDXD 
PARAM 

1189 

1190 

1191 

1192 

1193 

119A 

1195 

11 96 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 
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SUBTTL  ERROR  HANDLING  UUO  DEFINITIONS,  SEPT  18,1979 
ERROR  HANDLER  PARAMETERS 


SEQ  0130 


036000 
035000 
035040 
035100 
034000 


000000 
000000 
000000 
000000 
000000 


OPDEF  ERUUO  C36883 

OPDEF  ERLOOP  [3588]   ^, 

OPDEF  ERLPl  C35B8!1B12] 

OPDEF  EPLP2  C35B8!2B12] 

OPDEF  REPTUO  [34883 


ERROR  CALL  UUO 

ERROR  LOOP,  CHECKS  PC, REPT,REPT1, ERROR 

ERROR  LOOP  IF  PC'S  MATCH 

ERROR  LOOP  IF  ANY  ERROR 

REPEAT  LOOP  UUO 


;THE  ERROR  HANDLER  MACROS 

;A  MACRO  TO  REPORT  AN  ERROR  AND  LOO^ 

DEFINE  ERROR   (ADR, FORMAT, CORECT, ACTUAL, F,D,ERR)< 

SALL 
ERUUO   FORMAT, CT,,CSIXBIT\F'.\] 
CORECT,,ACTUAL 
CSIXBlt^D'  \],,ERR] 

XALL 
ERLOOP  ADR  ;IF  ERROR,  LOOP  TO  ADR 


;A  MACRO  TO  REPORT  AN  ERROR  AND  NOT  LOOP 

DEFINE  ERRORl   (FORMAT, CORECT, ACTUAL, F,D,ERR)< 

ERUUO   FORMAT, [T,,CSIXBIT\F'.\] 
CORECT,. ACTUAL 
CSIXBIT^D'  \J,,ERR] 


>;END  OF  KLOLD  CONDITIONAL 

HLISl 
LIST 


SALL 


XALL> 


DFDXD 
FIXED 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123A 

1235 

1236 

1237 

1238 

1239 

1240 

12A1 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 


0X20-V1 
KLM 


030000 
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030000 
030001 

030002 

030003 

030004 

030005 

030006 

030007 
030007 

030010 
03001 1 
030012 

030013 
030014 
03001 5 
030016 
030017 


254  00 
254  00 

254  00 

254  00 

254  00 

254  00 

254  00 


1  00  027776 

0  00  030643 

1  00  027774 
1  00  027774 
0  00  050604 
0  00  030000 
0  00  030645 


254  00  1  00  027775 


254  00 
254  00 
OuJCOO 

254200 
254200 
254200 
254200 
254200 


0  00  030727 

1  00  027777 
000000 

030000 
030000 
030000 
030000 
030000 


♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 
SU8TTL  *nXED*  FIXED  COMTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 
LOG     30000 

.   A **♦**•♦♦*♦**•*♦**•'♦♦*♦•♦•***♦****••*****♦*•*♦ *♦♦**♦♦***♦♦♦♦♦*♦*♦♦♦**♦ 

[•PROGRAM  STARTING  ADDRESSES  ^    ^  _  «,..,«..c 

THESE  ADDRESSES  CALL  VARIOUS  SPECIAL  START  ROUTINES  AND  OR  OPTIONS 
NORMA.  START  ADDRESS  IS  30000  ALL  OTHERS  ARE  SPECIAL.  INVOKED  BECAUSE 
OF  END  OF  PASS,  PO-'^R  FAILURE,  DDT  START,  RE-ENTERING  (TYPICALLY  USER 

;MODE),  OR  ANY  NUMSER  OF  SPECIAL  FEATURE  TESTS. 

•  ••*♦•*•♦•*•****•*****♦*••••*****•**•********•*•*•**♦♦♦**♦♦*♦**♦*♦*♦♦** 


SEQ  0131 


BEGIN:  JRST 
SSTART:  JRST 

DIAGMN:  JRST 

SYSEXR:  JRST 

SFSTRT:  JRST 

PFSTRT:  JRST 

REENTR:  JRST 

SRTDDT: 
DDTSRT:  JRST 

BEGIN1:  JRST 
SBINIT:  JRST 
RETURN:  0 

START1:  SADR7 

START2:  SADR8 

START3:  SADR9 

START4:  SADR10 

START5:  SADR11 


aMODLNK 
START 

aLDLNK 

aLDLNK 

SADR1 

SADR2 

SADR3 

aDDTLNK 

STARTA 
aSUBLNK 


STAND-ALONE  START 

MODE  CHECK  STARTING  ADDRESS 

DIAGNOSTIC  MONITOR  START 

SYSTEM  EXERCISER  START 

SPECIAL  FEATURE  START 

POWER  FAIL  RESTART 

REENTER  START (USUALLY  USER  MODE  ONLY) 


COMMONLY  MISTAKEN  NAME  FOR  ' "DDTSRT 
DDT  START 

LOOP  START (END  OF  PAiS  COMES  HERE) 

PMGINT  LINKAGE 

RETURN  ADDRESS  STORAGE 

OPTIONAL  STARTING  ADR/INSTRUCTIONS 


•  < 


r 


DFDXD 
FIXED 

126A 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

127A 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

128A 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

129A 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5  MACRO  J53A(1152)   18:38     6-Apr-85  Page  2 

KLM  18-Sep-79  17:18  ♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,   SEPT  18J979 


SEQ  0132 


030020 
030021 
030022 
030023 
030024 
030025 
030026 
030027 
030030 
030031 
030032 
030033 
030034 
030035 
030036 


444644 
605664 
123456 
000000 
000000 
000000 
000000 
000000 
000000 
777777 
777777 
000000 
000000 
000000 
000000 


704400 
000000 
701234 
000000 
000000 
042475 
000005 
030000 
030000 
777777 
777777 
000000 
000000 
000000 
000000 


030037 
030040 
030041 
030042 
030043 
030044 
030045 
030046 
030047 
030050 
030051 
030052 
030053 
030054 
030055 
030056 


000000 
000000 
000000 
777777 
000000 
000000 
OuJOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
777777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


.•PROGRAM  FIXED  PARAMETER  AREA 

;  *♦*♦♦♦*♦♦♦*♦»**♦***♦♦♦♦♦♦♦*♦♦♦♦****♦♦*****♦***♦♦*****»*♦***♦♦♦♦*♦♦**** 

PNTNAM:  PAREA3        ;SIXBIT  PROGRAM  NAME 

PNTEXT:  PAREA4         ;SIXBIT  PROGRAM  EXTENSION 

RANDBS:  PAREA1         : RANDOM  BASE  NUMBER 

SWTEXR:  PAREA2         .'SYSTEM  EXERCISER  SWITCHES 

ITRCNT:  ITERAT         .-PROGRAM  ITERATIONS 

SPNAME:  P6MNAM         ; POINTER  TO  PROGRAMS  NAME 

$PVER:  MCNVER.,DECVER  ;MCN  ft  DEC  VERSION  LEVEL 

SMODVL:  MODDVL         .'DEVICE  CODE  CHANGE  LOWER  LIMIT 

SMODVU:  MODDVU         .'DEVICE  CODE  CHANGE  UPPER  LIMIT 

SEMODE:  IFNDEF  EXCASB,<0>  IFDEF  EXCASB,<-1>     ;EXEC  ALLOWED 

SUMODE:  IFNDEF  USRAS8,<0>  IFDEF  USRASB,<-1>     .USER  ALLOWED 

SDSKUP:  IFNDEF  DSKUPD,<0>  IFDEF  DSKUPD,<-1>     ;DISK  UPDATE  MODE 

SMMAP:  IFNDEF  MEMMAP.<0>  IFDEF  MEMMAP.<-1>     .'ALLOW  MEMORY  RTNS 

PAREA7:  PAREA5         .-OPTIONAL  PARAMETER 

PAREA8:  PAREA6         .-OPTIONAL  PARAMETER 

•  ♦♦♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦»♦♦♦♦♦♦•''♦♦♦♦♦»♦♦♦♦♦♦*♦♦*♦*♦**♦♦*♦♦***♦••'♦♦♦♦*♦♦♦♦**♦♦ 

!' PROGRAM  VARIABLE  PARAMETER  AREA 

•  *»♦♦»•♦♦♦♦♦♦♦♦*♦♦♦»»♦♦♦♦•»♦♦**♦*»♦♦♦♦*♦♦**♦*♦»*»**♦♦*♦♦♦***♦♦♦♦**♦*♦♦♦ 


USER:  0 

KAIFLG:  0 

KLFLG:  0 

MONFLG:  -1 

MONCTL:  0 

MONTEN:  0 

CLOCKF:  0 

CONSW:  0 

PASCNT:  0 

RUNFLG:  D 

TESTPC:  0 

ERRPC :  0 

ERRTLS:  0 

TICKS:  0 

MARGIN:  0 

SONETM:  0 


0  =  EXEC.  -1  =  USER  MODE  FLAG 
PROCESSOR  TYPE.  0  =  KA10.  -1  =  KI10 
PROCESSOR  TYPE.  0  =  KA/KI.  -1  =  KLlO 
DIAG  MONITOR  SPECIAL  USER  FLAG 
DIAG  MON/SYS  EXR  FLAG 
-1=  LOADED  BY  10 
CLOCK  TICKED  FLAG 
CONSOLE  SWITCH  SETTINGS 
PROGRAM  PASS  COUNT 
PROGRAM  RUN  FLAG 
SUBTEST  PC 
ERROR  PC 
ERROR  TOTALS 
PROGRAM  RUNNING  TIME 
KIlO  MARGIN  WORD  VALUE 
SUBROUTINE  INITIALIZATION  FLAG 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
FIXED   KLM     18-Sep-79  17:18        *FIXED*  FIXED  CO.NTROL 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  3 
AND  DISPATCH  STORAGE,  SEPT  18J979 


SEQ  0133 


130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

132A 

1325 

1326 

1327 

13i!8 

1329 

1330 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

13^0 

i3A1 

13A2 

1343 

13A4 

13A5 

1346 

13A7 

13A8 

1349 

1350 

1351 

1352 

1353 

135A 


030057 

030060 

030061 

030062 

030063 

030064 

030064 

030065 

030065 

030066 

030067 

030070 

030071 

030072 

030073 

030074 

030075 

030076 

030077 

030100 

03x;.01 

030102 

030103 
030104 
030105 


030106 
030107 
030110 
030111 
030112 

030113 
030114 

030115 
030116 
030117 
030120 
030121 
030122 
030123 


037  12  0  00  000004 
254  00  0  00  030010 
037  16  0  00  000004 
000000  030061 
000000  030061 

350  00  0  17  000000 


263  17 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
254  04 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 

s§ 

00 
00 
00 
00 
00 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
030102 


000000  000000 
000000  000000 
000000  000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 

000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 


oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 

oooooo 
oooooo 
oooooo 

JOOOOO 

oooooo 

'^00000 

oooooo 


•SPECIAL  PROGRAM  DISPATCH  ADDRESSES 


BEGEND:  ENDUUO 
SBENDl:  JRST 
S6END2:  EOPUUO 
CNTLC :  SADR5 
ALTMGO:  SADR6 
CPOPJl: 
UUOSKP:  AOS 
CPOPJ : 
UUOEXT:  RTN 
UUORTN:  JFCL 
SUORTX:  JFCL 
SUUOER:  JFCL 
SITRHL:  JFCL 
SITRXI:  JFCL 
SUSRHL:  JFCL 
SRSRTX:  JFCL 
$RSRTY:  JFCL 
RESRTl:  JFCL 
RESRT2:  JFCL 
SPARER:  JFCL 
ERMORE:  JFCL 
HALT 

SPSHER:  0 

ITRCH1:  0 

0 


BEG1N1 


(P) 


;END  OF  PASS 

:ICEEP  RUNNING  PROGRAM 

;END  OF  PROGRAM  -  NO  RETURN 

; CONTROL  C  XFER  ADDRESS 

;ALTMODE  XFER  ADDRESS 

;SICIP  RETURN 

;S»CIP  RETURN  FROM  UUO 

:NON-SKIP  REGULAR  RETURN 

:UUO  RETURN 

; ADDITIONAL  USERS  UUO  ROUTINE 

;ADDITIONAL  UUO  LINKAGE 

;INITED  AS  (JRST  SUOERX) 

.•ADDITIONAL  INTERRUPT  LINKAGE 

•  •• 

•ADDITIONAL  POWER  FAIL  LINKAGE 

'   t  I 

INITED  AS  (JRST  RESRTX) 


•  I 


.•ADDITIONAL  PARITY  ERROR  LINKAGE 
.•ADDITIONAL  ERROR  HANDLER  LINKAGE 
; IMPROPER  TRANSFER  HALT 

.•INITED  AS  (JRST  PSHF.Rft) 

;PC  i   FLAGS  OF  JURPCSSiT  INTERRUPT 

.•INITED  AS  (JRST  ^IiRCD 


[•PROCESSOR  CONTROL  STORAGE 


$ACCO:  0 

SSVPI :  0 

SSVAPR:  0 

SSVPAG:  0 

SSPAGl:  0 

SSVUUO:  0 
ISVUPC:  0 

REPTU:  0 
SCOPE:  0 
ICORFLG:0 
XCOREC:  0 
XACTFL:  0 
XACTUL:  0 
XDISCR:  0 


.•INTERRUPT  SAVED  ACO 

.•INTERRUPT  SAVED  PI 

.•INTERRUPT  SAVED  APR 

.•INTERRUPT  SAVED  PAG  (DATAI) 

.•INTERRUPT  SAVED  PAG  (CONI) 

.•CURRENT  USERS  UUO 

.•PC  OF  CURRENT  USERS  UUO 

.•REPEAT  UUO  ITERATIONS 

.•ERROR  HANDLER  SCOPE  LOOP  FLAG 

;  ••  CORRECT  FLAG 

;  ••  CORRECT  DATA 

;  "  ACTUAL  FLAG 

;  "  ACTUAL  DATA 

;  "  DISCREPENCY  DATA 


I 

i 

OFDXD 
FIXED 

1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
137A 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
138A 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
139A 
1395 
1396 
1397 
1398 
1399 
UOO 
KOI 
1402 
1403 
1404 
1405 
1406 
1407 


OX20-V100  MAGNETIC  TAPE 
KL«     18-Sep-79  17:18 


030124 
030125 
030126 
030127 
030130 
030131 
030132 
030133 
0301 3A 
030135 
030136 
030137 
030140 
030141 


043630 
043636 
042307 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
0h3517 
030070 
043417 


030070 
043645 
036742 
042724 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
043517 
030070 
043417 


030217 
030220 
030221 
030222 
030223 
030224 
030225 
030226 
030227 
030230 
030231 
030232 
030233 
030234 
030235 
030236 
030237 
030240 
030241 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


SUBSYSTEM  0IA6NOSTU  (RH20)     VERSION  0.5     MACRO  X53A(K52)  18:38  6-Apr-85  Page  4 
•FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 

•  #»»♦♦#»»♦»♦•♦♦»♦♦♦*♦•♦*♦♦#♦•♦••♦%♦•••♦•♦♦♦*♦♦♦*♦♦♦♦♦••♦♦♦♦♦♦♦•♦•♦♦•♦♦* 

•UUO  DISPATCH  TABLE 

XLIST 
LIST 
UUODIS:  LUU01,,$UU0ER 
LUU03,,LUU02 
LUU05,,LUU04 
LUU07,,LUU06 
LUUOl1,,LUU010 
LUU013,,LUU012 
LUU015,,LUU014 
LUU017,,LUU016 
LUU021,.LUU020 
LUU023,,LUU022 
LUU025,,LUU024 
LUU027,,LUU026 
LUU031,,LUU030 
LUU033,,LUU032 

•  »»»♦♦♦»#»♦*»»•»*»♦»*»♦♦♦♦•♦•*♦♦•♦♦♦♦♦♦**»**♦♦»•♦♦♦*♦•♦••♦♦♦•♦♦**♦**♦♦• 

•MEMORY  MANAGMENT  STORAGE 

•  ♦♦»♦♦♦♦»♦♦»»*»»*#♦♦»♦♦♦♦♦♦♦*•♦*♦♦»♦♦»*♦♦♦♦♦♦*♦*♦♦♦♦*♦♦••*♦♦♦*♦♦♦♦•*•♦* 


SEQ  0134 


030142  000000  000000 

030143  000000  000000 

030144  000000  000000 

030145  000000  000000 
030146 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


0f22f:  0 

MAPNEU:  0 

MEMTOT:  0 

MEMLOU:  0 

MEMSI2:  BLOCK  •D41 


DF10  CONTROL  FLAG,  0  =   18,  -1  =  22  BIT 

MEMORY  MAPPING  CONTROL  FLAG,  -1  =  4096K  MAPPING 

TOTAL  MEMORY  SIZE  IN  K    (1024.) 

LOWEST  USABLE  MEMORY 

MEMORY  SEGMENT  POINTER  TABLE 


•PRINT  CONTROL  STORAGE 

•  tttttt ♦♦♦♦♦»»♦♦»* t»»»t ♦♦♦♦»»♦»♦♦*♦*•♦»»♦♦♦♦* ♦**•♦**♦♦♦****••♦♦•♦♦♦♦♦•* 


PNTFLG:  0 

PNTENB:  0 

PDISF:  0 

PNTINH:  0 

PNTSPC:  0 

OPTIME:  0 

$TWCNT:  0 

SDVOFF:  0 

TTYFIL:  0 

TTYSPD:  0 

STTCHR:  0 

SCHRIN:  0 

ITYPNB:  0 

SCRLF :  0 

STABF :  0 

SFFF:  0 

$VTF:  0 

USRLFF:  0 

USRCRF:  0 


PRINT  FLAG,  -1  WHILE  IN  PRINT  ROUTINE 

PRINT  ENABLE 

PRINT  DISABLED  FLAG 

INHIBIT  PRINT  INPUT  CHECKS 

PRINT  SPACE  CONTROL 

TYPE-IN  WAIT  TIME 

TIME  WAITED 

LOGICAL  DEVICE  INITED  FLAG 

TTY  EXEC  FILLERS  FLAG 

TTY  EXEC  BAUD  RATE 

ACTUAL  TYPED  IN  CHAR 

UPPER  CASED  I   PARITY  STRIPPED  CHAR 

TYPED  IN  NUMBER 

FREE  CR/LF  FLAG 

TAB  CONVERSION  FLAG 

FORM  FEED  CONVERSION  FLAG 

VERTICAL  TAB  CONVERSION  FLAG 

USER  ir   FILLERS 

USER  CR  FILLERS 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
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VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  5        „ 
AND  DISPATCH  STORAGE,  SEPT  18,1979  SEQ  0135 


U08 

U09 

U10 

U11 

U12 

U13 

UH 

U15 

U16 

U17 

U18 

1419 

U20 

1A21 

1A22 

U23 

1A2A 

1A25 

1A26 

1A27 

1A28 

1A29 

1A30 

1A31 

1A32 

1A33 

1A3A 

1A35 

1A36 

1A37 

1A38 

1A39 

1AA0 

1AA1 

1AA2 

1AA3 

1AAA 

1AA5 

1AA6 

1AA7 

1AA8 

1AA9 

1A50 

1A51 

1A52 

1A53 

1A5A 

1A55 


0302A2 
0302A2 
0302 A 3 

0302A3 
0302AA 
0302A5 
0302A6 
0302A7 
030250 
030250 
030251 
030252 
030253 
03025A 
030255 
030256 
030257 
030260 
030261 
030262 
030263 
03026A 


015  012  000  000  000 


015  012  015  012  000 
05A  000  000  000  000 

056  000  000  000  000 
OAO  000  000  000  000 
Oil  000  000  000  000 

055  000  000  000  000 
053  000  000  000  000 
052  000  000  000  000 
IOC  000  000  000  000 

050  000  000  000  000 

051  000  000  000  000 
007  0000000000 

077  000  000  000  000 

057  000  000  000  000 
OAA  000  000  000  000 
000000  000012 
000000  OOOOAO 
000000  000012 


030265 

030270  60  62  51  56  6 A  00 

030271  60  56  6A  00  00  00 
030272 


03027A 

030277  60  62  51  56  6A  00 

030300  60  56  6A  00  00  00 

030301 


•THE  FOLLOWING  MISCELLANEOUS  PRINT  CHARACTERS  ARE  INCLUDED 

;T0  FACILITATE  PRINTING  AND  ARE  CALLED  AS  FOLLOWS: 

;      HOVE I   NAME 

;      PNTA  ;0R  PNTAF 

.  ♦»»♦♦♦♦•**♦*»*♦»♦»♦♦♦♦♦♦♦♦»*♦»♦♦*♦♦*♦♦♦♦****♦*♦♦***♦♦♦*♦♦**♦**♦♦♦♦♦♦♦♦ 

• 

CRLF:   ASCII/ 

/ 

CRLF2:  ASCII/ 

/ 

COMMA:  ASCII/,/ 

PERIOD:  ASCII/./ 

SPACE:  ASCII/  / 


ASCII/  / 

ASCII/-/ 

ASCII/+/ 

ASCII/*/ 

ASCII/a/ 

ASCII/(/ 

ASCII/)/ 

BYTE  (7)  007 

ASCII/?/ 

ASCII!/] 


TAB 

MINUS: 

HYPEN: 

PLUS: 

AST: 

ATSIN: 

LFP: 

RTP: 

BELL: 

QUEST: 

SLASH* 

DOLLAR:  ASC]l/$/ 

RADIX:  •DIO 

RADLSP:  40 

RADLSC:  *D10 


.-DECIMAL  PRINT  RADIX 
.•DECIMAL  PRINT  LEADING  CHAR 
.•DECIMAL  PRINT  LEADING  CHAR  COUNT 


•  ♦♦♦♦♦♦»♦♦♦*♦♦♦»«**♦*♦♦♦♦♦♦♦**♦****♦♦**♦♦♦♦*♦♦*♦♦****♦**♦♦♦******♦***♦* 

•USER  MODE  OUTPUT  FILE  INFORMATION 

.  ♦»♦♦♦*♦♦*»♦**»♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦»*♦♦*♦*♦»•♦**♦♦♦♦♦♦♦**♦♦♦♦♦♦*******♦*** 


$OBUF:  BLOCK  3 

SOUTNM:  SIXBIT  /PRINT/ 

SOUTEX:  SIXBIT  /PNT/ 

BLOCK  2 


.•LOGICAL  FILE  OUTPUT  BUFFER  HEADER 

.•FILE  NAME 

.•FILE  NAME  EXTENSION 


.  »»»♦♦♦»#*♦♦*»♦♦♦**♦♦♦♦♦♦♦♦♦♦♦♦♦»*•**»********♦♦***********♦♦*♦*♦**♦*♦* 

;DISK  UPDATE  MODE  FILE  INFORMATION 

;  ♦♦♦»»»♦♦♦*»♦»♦♦♦♦♦*♦♦♦♦*♦♦♦♦»♦♦*»****♦♦♦**♦***♦♦*♦***♦*♦**♦♦*♦*♦♦***♦♦ 


SIBUF :  BLOCK 
SINNM:  SIXBIT 
SINEXT:  SIXBIT 
BLOCK 


/PRINT/ 

/PNT/ 

2 


DFOXD 
FIXED 

H56 

1A57 

U58 

1459 

U60 

U61 

U62 

U63 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 


DX20-V100  MAGNETIC  TAPE 
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030303  777577  030303 

030304 

030504  000000  000000 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  6 
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•♦♦******************t********* A ••*****•••*••••••**•**•*♦********'*♦♦*♦ 

PUSHDOWN  LIST  CONTROL  INFORMATION 
♦♦♦♦**♦♦♦***♦*»*♦*♦*♦♦♦•*♦**••*•**•*****♦*♦♦*♦************************ 

PLIST:  PLIST-PLISTE,,PLIST 
PLISTS:  BLOCK   200 


SEQ  0136 


030505  000000  000000 


030506  000000  000000 

030507  000000  000000 


030510  000000  000000 


030511  000000  000000 


030512  000000  000000 

030513  000000  000000 

030514  000000  000000 


030515  000000  000000 


PLISTE:  0 


;END  OF  PUSHDOWN  LIST 


*♦♦**♦***♦•*•••**♦♦••*♦♦♦♦****•**♦**•***•***************«************* 

POWER  LINE  CLOCK  FREQUENCY  FLAG 
♦♦*♦•*»**♦*»********♦♦♦♦•♦*•♦****•♦********•••*•••***•***♦*♦••**•*•**• 


CYCL60:  0 


;0  =  60,  -1  =  50  CYCLE 


KL10  CACHE  CONTROL  FLAGS 
♦♦•***•♦♦***♦*♦•***•*•••♦*••*•***•**•♦******************************** 


CSHFLG:  0 
CSHMEM:  0 


;ALL0W  CACHE  IF  0 

; CACHE  MEMORY  SEGMENTS  IF  0 


*♦♦♦•♦♦•♦♦*♦****♦***♦♦♦♦♦♦*♦***••*♦**♦•**•***<*♦**♦♦****♦*♦*♦*♦♦*♦♦*♦♦ 
NUMBER  INPUT  DIGIT  FLAG 


TTNBRF:  0 


;-1  IF  ANY  DIGIT  TYPED 


*♦*♦•*♦•*•♦*♦***•*♦*•♦♦*•**♦♦*••**•♦••*••*****•*******************♦*** 

KL10  &  KI10  "INHPAG"  SWITCH  PAGING  PREVENTION 
»♦**••*♦**•*♦♦**♦♦*♦•♦♦♦♦***♦**•********••**•*••**♦♦***♦*♦**♦♦**♦***♦* 


PVPAGI:  0 


;lf^   NON-ZERO,  OVERRIDE  "iNHPAG"  SWITCH  ACTION 


•  ♦♦y^******************************************«r*********************** 

ERROR  REPORTING  ROUTINE  ADDITIONAL  USERS  CONTROL  INSTRUCTIONS 
*♦♦♦••***»••♦*♦»*****♦♦♦♦♦**♦**•••♦••*****♦*********♦******♦*♦♦**♦**** 


XERHI1:  0 
XERHI2:  0 
XERHI3:  0 


;lf=   NON-ZERO,  XCT'D  AT  START  OF  XERUUO 
:lf^   NON-ZERO,  XCT'D  AT  END  OF  XERUUO 
;lf^   NON-ZERO,  XCT'D  AFTER  "PC"  OF  XERUUO 


*♦♦♦*•♦♦**♦•*•♦*♦♦*♦♦♦•♦♦♦♦********•***♦•***•*♦*♦*****•♦♦*♦♦**♦******* 

SPECIAL  USERS  UUO  INTERCEPT  INSTRUCTION 
••♦*♦♦♦•♦*♦•*♦****♦♦♦♦♦•♦**•*♦*♦*•*♦*♦**♦*•****•*****♦**************** 


$$UUO:  0 


;IF  NON-ZERO,  XCT'D  AT  START  OF  SUORTN 


DFDXD 
FIXED 

1502 

1503 

150A 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15H 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

15A0 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 


DX20-V100  MAGNETIC  TAPE 
KLM     18-Sep-79  17:18 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  7 
♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18J979 

•  ♦♦********************t*********************************************** 

•USER  MODE  MONITOR  TYPE  FLAG 

.  »♦♦*•*****♦•***•♦*♦**♦••*•*••*••****•**••****•********♦****♦***♦*****♦ 


030516  000000  000000 


030517  000000  000000 


030520  000000  000000 


030521  000000  000000 


030522  000000  000000 

030523  000000  000000 


030524  000000  000000 


030525  000000  000000 


030577 

030577  000000  000000 


MONTYP:  0 


;0  =  TOPS10,  -1  =  TOPS20 


•SPECIAL  USERS  MUUO  INTERCEPT  INSTRUCTION 

;   **♦•♦♦♦*♦*******♦♦*•***♦*•***•**•*********•*******♦♦**♦♦**♦*♦***♦♦*♦♦♦ 


$$MUUO:  0 


:lf   NON-ZERO,  XCT'D  AT  START  OF  MUUOER 


.  ♦♦♦♦♦**•**•*♦***•*******•****••**♦#**♦**♦•♦♦****•*••*****••*♦**♦*♦♦*** 

•SPECIAL  USERS  USER  MODE  OUTPUT  ERROR  INTERCEPT  INSTUCTION 

.  ♦♦♦♦♦♦**♦*•****•***••*♦*•***•****♦***♦**♦•*•***♦************♦********* 


$$OUTER:0 


;IF  NON-ZERO,  XCT'D  AT  END  OF  USER  MODE  ERROR 


.   ♦♦*%♦♦*•*•*****•*♦**♦♦♦*•**♦*♦••*****••••*•*•*********♦**********♦**** 

•••SWITCH"  CALL  USAGE  CONTROL 

.  ♦♦»****•**•♦**♦**♦♦*♦*♦♦♦*****•****♦•**•***••********♦♦*♦******♦****** 


$$TOGGLE:0 


;lf=   NON-ZERO,  USE  C(CONSW)  FOR  SWITCHES 


•  ♦♦♦♦♦*♦***•»♦♦******•♦♦•♦♦•***********♦***♦*♦************«***♦******** 

•SPECIAL  USERS  ALTMODE  SWITCH  CALL  INTERCEPT  INSTRUCTIONS 

.  ♦***♦**♦♦*♦**♦•»•♦*****♦*•***♦•♦****♦♦**♦♦*•**♦********♦******♦***♦*** 


$$TAX1:  0 
$$TAX2:  0 


:lf^   NON-ZERO,  XCT'D  AT  START  OF  ALTMODE  SWITCH  CALL 
;IF  NON-ZERO,  XCT'D  AT  END  OF  ALTMODE  SWITCH  CALL 


.  **•**•*•♦♦♦*♦♦♦♦♦**•••*•**•*♦•********•*•*•***♦***************♦******* 

•SMIO  (KS-10)  PROCESSOR  TYPE  FLAG 

.  *»•♦**♦**♦♦•♦*♦***♦♦*••♦♦♦*****»♦****♦***♦•♦*♦♦**♦♦*♦♦*♦*♦♦*♦*♦♦**♦*♦♦ 


SMIO:   0 


;lf   -1  THIS  IS  A  KS-10 


•RIGHT  HALF  SWITCHES  PROMPT  TABLE  ADDRESS 

;  ♦»*•♦**•*♦**♦♦*♦♦♦*♦♦♦♦♦♦******♦**♦**********♦*********♦♦***♦**♦**»*** 


SWPTAB:  0 


;0  =  NO  PROMPT,  ADR  =  ADR  OF  SIXBIT  PROMPT  TABLE 


.  ♦♦♦♦♦*♦•♦••♦*♦♦•♦**»♦♦*♦ t •*♦*****♦***** ******************************* 
•SPECIAL  FUTURE  EXPANSION  ROOM 

;   **♦*♦*»♦♦♦**♦•♦♦♦»♦*♦♦♦♦•**♦♦•**♦****♦***♦*♦**♦*♦*♦♦♦♦♦*♦***♦♦♦♦♦***** 

•END  OF  FIXED  STORAGE 

;   ♦♦»♦**♦*♦♦♦»**♦»»♦♦»♦♦♦♦*♦*****♦*♦*♦♦**♦******♦**♦♦♦*♦♦*♦*♦♦♦♦♦♦**♦*** 


LOC    30577 
ENDFIX:  0 


;END  OF  FIXED  STORAGE 


SEQ  0137 


L 


DFDXD 
DFDXDM 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18;38  6-Apr-85  Page  1 


MAC 


6-Apr-85  18:38 


030600 


PROGRAM  START  &  RESTART  CODE 

SUBTTL  PROGRAM  START  S  RESTART  CODE 

*  This  error  macro  is  the  same  as  in  param.klm.  the  reason  that  it  also 

*  Appears  here  is  so  that  the  macro  expansion  doesn't  take  place  in  the 

*  Listing,  there  is  a  part  of  the  macro  in  param.klm  that  is  not  supressed. 

*  This  causes  the  succeeding  macros  to  be  expanded  if  this  copy  of  the  one 

*  In  param.klm  was  not  placed  here. 


SEQ  0138 


DEFINE 

SALL 

ERUUO 


XALL 
ERLOOP  ADR 
SALL> 


ERROR   (ADR, FORMAT, CORECT, ACTUAL, F,D,ERR)< 

FORMAT, CT,,[SIXBIT\F'  \] 
CORECT,, ACTUAL 
CSIXBlt^D*  \],,ERR] 


;If  error,  loop  to  adr 


«  Channel  command  list  storage  area 


CBUF :   BLOCK 


'D35 


PURGE   RE TURN, RE TURN 
SEARCH  DX20CA 

SALL 
XXCREF 

XALL 


; Storage  area 

;Read  in  dx20  cross-assembler 

.•Remove  cross-assemblers  symbols  from  cref 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5     MACRO  :53A(1152)  18:38  6-Apr-85  Page  2 
DFDXDH  MAC     6-Apr-85  18:38        PROGRAM  START  %   RESTART  CODE 


SEQ  0139 


1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 


030643 
030643 
030644 
030645 
030646 
030647 
030650 
030651 
030652 
030653 

030654 
030655 
030656 
030657 
030660 
030661 
030662 
030663 
030664 
030665 

030666 
030667 
030670 
030671 
030672 
030673 
030674 
030675 
030676 
030677 

030700 
030701 

030702 
030703 
030704 
030705 


030706 
030707 
030710 
03071 1 
030712 
030713 
030714 


030715 

030716 
030717 


402  00 
402  00 

332 


00 
00 


160  17 
260  17 
336  00 
254  00 
037  01 

037  04 

201  00 

202  00 
201  00 
406  00 
406  00 
406  00 
406  00 
406  00 
406  00 

201  00 

202  00 
254  00 
201  00 
506  00 

201  00 

202  00 
40?  00 
l\j)  00 
602  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065302 
065335 
03001 1 
030037 
042711 
042511 
030037 
030671 
000007 

052510 
001000 
042376 
000777 
042405 
042406 
042407 
042410 
042411 
042412 

043203 
030063 
030702 
540000 
000400 
340000 
047063 
065314 
030046 
100000 


254  00  0  00  0506U 
254  00  0  00  030715 

332  00  0  00  030516 
254  00  0  00  030715 
201  00  0  00  400003 
047  00  0  00  000060 


254  00 
242  00 
202  00 

201  00 

202  00 
260  17 
260  17 


0  00  052530 
0  00  000011 
0  00  0653U 
0  00  413000 
0  00  047063 
0  00  051740 
0  00  051772 


260  17  0  00  046656 
201  10  0  00  740000 
402  00  0  00  065244 


S: 

START: 

R: 


SETZM 

SETZM 

P6MINT 

SKIPE 

GO 

GO 

SKIPN 

JRST 

PBELL 

PMSGF 

PSIXMF 

MOVE  I 

MOVEM 

MOVE  I 

ANDM 

ANDM 

ANDM 

ANDM 

ANDM 

ANDM 


ONE TIM* 
TAPFL6 

USER 

TOPlOV 

INITRH 

USER 

STRT1 

<*ALL  TAPES 

CSIX8IT\*ALL 

0.*D512 

O.SIZE^7 

0,777 

PSI2E^6 

PSIZE^7 

PSIZE^IO 

PSIZE^II 

PSIZE^13 


.•Initialize  subroutine  package 
;User  mode? 

;Yes.  get  topslO  version  # 
;Set  up  tables  for  either  rh20 
;Is  it  user  mode? 


THAT  ARE  ONLINE  WILL  BE  WRITTEN  ONI*>^ 
TAPES  THAT  ARE  ONLINE  WILL  BE  WRITTEN  0N!\\:" 
.-Adjust  max  record  size  for  user  mode 


.-Also  adjust  max  byte  count  when  known. 


MOVE  I 
MOVEM 
JRST 
STRTl:  MOVEI 
HRLM 
MOVEI 
MOVEM 
SETZM 
MOVE 
TRNE 

JRST 
JRST 

STARTU:  SKIPE 
JRST 
MOVEI 
LOCK 
JRST 
PSIXMF 


LSH 

MOVEM 

MOVEI 

MOVEM 

GO 

GO 


5TARTE:  GO 

MOVEI 
SETZM 


ATMETR 

ALTMGO 

STARTU 

540000 

400 

340000 

CBASE 

RELOC* 

O.CONSW 

CONMOD 

CSTRTE 
STARTE 

MONTVP 
STARTE 
400003 


SET  UP  FOR 
ALTMODE  WHEN  TYPED 
No.  go  around 
Set  up  exec  page  map 
To  page  address  340000  to  0 
Set  up  relocation  factor 
To  340000 

Clear  user  relocation  factor 
Get  console  switches  CO. 53 
Check  for  console  control 
request  CO. 52  ^^  ^^ 

Start  console  control  routine  l0.5J 


; Which  monitor? 

;Tops20 

; Tops 10 


CPMSGF 

CSIXBI 

EOPUUO 

JRST 

9 

RELOC 

413000 

CBASE 

CPUTST 

FNDMTX 


<*LOCK  UUO  FAILED^TYPE  ":SET  CORMIN  0"  ON  CTY*>* 
TV^LOCK  UUO  FAILED^TYPE  '^SET  CORMIN  0"  ON  CTY*  \]' 


-1] 


;Save  relocation  factor 
:Get  page  address  of  epmp 

If  tops-10.  see  which  cpu  to  run  on 
Go  see  which  mt  controller  to  run 
On  and  set  the  diagnostic  bit 


DSETUP  ;Yes.  set  up  jsys  or  uuo 

F.RAEREPICBTFLGICPAFLGICOMPER   ;Set  all  flags  to  not  report  errors  now 
EVENP#  .-Write  control  bus  even  parity  when  set 


DFDXb 
DFDXDW 

1639 

16A0 

16A1 

16A2 

16A3 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
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MACRO  X53A(1152)  18:38  6-Apr-85  Page  2-1 


SEQ  0140 


030720 
030721 
030722 
030723 
030724 
030725 
030726 

030727 
030730 
030731 
030732 
030733 
030734 
030735 
030736 
030737 
030740 
030741 
030742 
030743 

030744 
030745 
030746 
030747 
030750 
030751 
030752 
030753 
030754 
030755 
030756 
030757 


030760 
030761 
030762 

030763 
030764 
030765 
030766 
030767 
030770 
030771 

030772 
030773 
030774 
030775 
030776 
030777 

031000 


402  00 
402  00 
402  00 

201  00 

202  00 
336  00 
260  17 


476  00 

200  14 

201  13 
402  00 
476  00 
402  00 
200  00 
251  00 
260  17 
334  00 
254  00 
260  17 
254  00 

336  00 
254  00 
260  17 
135  00 
305  00 
254  00 
302  00 
254  00 
1i?  00 
301  00 
25'.  00 
037  01 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065350 
030053 
030047 
000024 
065257 
065302 
043666 

065323 
044543 
000007 
126067 
1 26077 
126100 
052533 
126117 
044676 
000000 
030744 
043400 
030057 

030037 
030763 
042736 
052534 
000010 
030757 

000010 
030763 
052535 
000001 
030763 
000007 


037  01  0  00  052536 
260  17  0  00  042752 
037  16  0  00  000004 


200 
260 
332 
254 
260 
260 
260 


01 
17 

00 
00 
17 

17 
17 


0  00 
0  00 


402  00 
200  00 
202  00 
402  00 
402  00 
200  00 
540  00 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


052552 
045416 
030047 
030772 
040026 
043053 
043651 


030514 
052553 
030513 
030116 
030052 
000014 
000013 


XIEVP# 

ERRTLS 

PASCNT 

*D20 

INTERAC 

ONETIM 

CONFIG 

SELFLG 

MBCN.M8CMAX 

DRIVE. 7 

TX 

DRVADR 

UNI  TO 

CUNITO-.UNITO^I] 

UNITO+17 

DEVSEL 

.♦3 

ENDPAS 
8EGEND 

USER 

STARTL 

GETVER 

0, [POINT  6,1,25] 

0,10 

UCDERR 

0,10 

STARTL 

0, [POINT  10,1,35J 

sfARTL 


SETZM 
SETZM 
SETZM 
MOVE  I 
MOVEM 
SKIPN 
GO 

STARTA:  SETOM 

MOVE 

MOVE  I 

SETZM 

SETOM 

SETZM 

MOVE 

8LT 
STARTS:  GO 

SKI  PA 

JRST 

GO 

JRST 

SKIPN 

JRST 

GO 

LDB 

CAIGE 

JRST 

CAIE 

JRST 

LDB 

CAIL 

JRST 
UCDERR:  PBELL 

PNTMSF   [ASCIZ/ 
NEED  UCODE  DXMCA.ADX  VERSION  10.1  OR  BETTER 
CURRENT  /3 

GO     MCODEP 

EOPUUO 


;Xct  with  even  parity  if  set 

.•Clear  error  totals 

; Clear  pass  count 

;Set  up  normal  test  interaction  count 

; Store  it  in  mem 

;Skip  if  been  here  before 

;Do  a  configuration 

Init  flag  for  devsel 

Init  mbcn  for  devsel 

Init  drive  for  devsel 

Clear  tx  message  printed  flag 

Set  tape  drive  addr  to  -1  to  start 

Zero  first  table  loc 

Setup  acO  for  bit 

Zero  entire  table 

Select  a  device  for  testing 

Al I  devices  tested 


at  0 


USER  MODE? 

NO 

Get  dxmca.adx  version  M 

Get  version  #  in  acO 

Microcode  version  ok  ?  [0.53 

No,  print  error  message  [0.53 

Is  it  version  10?  [0.53 

Higher  than  version  is  o.k.  [0.53 

Version  10  get  edit  level  in  acO  [0.5] 

Microcode  edit  level  ok  ?  [0.53 

Ok...  continue. 


.-Print  microcode  version  and  edit  level 
.-Exit 


STARTL:  MOVE 
GO 

SKIPE 
JRST 
GO 
GO 
GO 

SETZM 

MOVE 

MOVEM 

SETZM 

SETZM 

MOVE 

HRR 


AC1,["D35,,CBUF3 

CHINIT 

PASCNT 

.♦4 

TINTZ 

CTRLCH 

SETTRP 

lEfiHll 

[SETZM  XERHI3] 

XERHI2 

SCOPE 

ERRPC 

MBCN 

DRIVE 


.-Initialize  the  channel  subroutines 

.-Skip  if  first  pass 

.-Setup  timing  values 

.-Set  up  to  intercept  control  c 

.-Trap  uuos  to  see  if  control  c  typed 


.-Clear  error  handler  interc 
;Get  clear  instruction 
.-Place  so  it  cU»ar  after  every 
.-Clear  scope  flag 
.'Clear  pc  of  last  error 
;Get  controller  number 
.-Merge  with  the  dr've  number 


error  call 


B 


DFOXD 
DfOXDW 

169A 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 


DX20-V100  MAGNETIC  TAP 

-85 


MAC 


6-Apr-85  18:3 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
PROGRAM  START  ft  RESTART  CODE 


J3A  00  0  go  000000 
254  00  0  00  031011 
202  00  0  00  065302 


00  0 
il2  h  g 


031006 
031007 
031010 
031011 


037  OA  0  00  05255A 
260  17  0  00  045011 
037  01  0  00  030242 
260  17  0  00  046730 


STARTC: 


SKIPE 

CAME 

SKI  PA 

JRST 

MOVEM 

PMSGF 

PSIXMF 

GO 
PCRLF 

GO 


PASCNT 
ONETIH 

STARTC 

ONETin 

<nESTING> 

CSIXBIT\*TESTING  \2 

TELyHO 

DEVREQ 


MACRw  X53A(n52)  18:38  6-Apr-85  Page  2-2 


;Skip  if  in  pass  zero 

;Skip  if  same  drive  as  last  time  here 

;Skip  to  print  drive  number  under  test 

.-Yes.  go  start  testing 

•Save  drive  number  in  one  time 

^.•Report  which  drive  is  being  tested 

.-Type  the  controller  and  drive  numbers 

;End  the  line 

.-Request  the  drive  and  rh  from  the  monuor 


SEQ  0141 


OFDXD       DX20-V100  MAGNETIC   TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5 

DFDXDH    MAC  6-Apr-85   18:38  PROGRAM  START  i  RESTART   CODE 


MACRO  X53A(1152)   18:38    6-Apr-85  Page  3 


SEQ  0'\^2 


1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

171A 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

172A 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 


031012  265  01  0  00  043410 

031013  201   10  0  00  100001 


031014 

026  06 

0!;i015 

200  02 

031016 

405  02 

031017 

302  02 

031020 

306  02 

031021 

254  00 

031022 

302  02 

0310^3 

036  06 

031024 

002  00 

031025 
031026 

031027 
031030 
031031 
031032 
031033 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
^77777 
050060 
010051 
031024 
010052 
052572 
03101? 


332  00  0  00  030047 
254  00  0  00  031033 

037  02  0  00  052575 
200  00  0  00  000002 
037  06  0  00  000000 
037  00  0  00  030243 


TEST    1, DRIVE  TYPE  NUMBER, O.O.M" 
;•  DFDXD  *  TEST  1  ♦     DRIVE  TYPE  NUMBER 
XALL 

JSP     1.SETREP  ;SET  UP  REPEAT  LOOP 

TST1:   MOVEI   F,(BYTE  (1)  0.0,1,010  (14)  "D<1» 

;*  Check  that  the  drive  type  is  correct,  i.e.,  is  for  dx20-v100. 


RDREG 
MOVE 
ANDI 
CAIE 
CAIN 
JRST 
CAIE 
ERROR 1 
TEST1A:  REPEAT 

SICIPF 
JRST 
PMSG 
PSIXM 
MOVE 
PNT6 
PCRL2 
NOPDTR: 


.-Read  drive  type  reg 


; Clear  all  but  drive  type  M 
;SkIp  if  right  drive  type 


DXDTR 

AC2,1 
f<i2,y77777 

AC2,DXV100 

AC2,DXV200 

TESTIA 

AC2,DXV400 

6. CDXV100],AC2, INCORRECT  DRIVE  TYPE  NUMBER 

TST 


;Skip  if  in  pass  zero 
:Else,  don't  print  dri 


PASCNT 
NOPDTR 

<DRIVE  TYPE  REGISTER 
CSIXBITXDRIVE  TYPE  REGISTER  =  .\]* 
0,AC2  ;Get  drive  type  number 

; Print  it 


ve  type 


OFDXD       0X2O-V1O0  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5  MACRO  X53A(1152)   18:38     6-Apr-85  Page  A 

DFDXDM    MAC  6-Apr-85  18:38  ROUTINE  TO  RUN  THE  MICRO-CODE  DIAGNOSTIC 


SEQ  0U3 


173A 

1735 

1736 

1737 

1738 

1739 

1740 

17A1 

17A2 

17A3 

17AA 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 


SUBTTL     ROUTINE  TO  RUN  THE  MICRO-CODE  DIAGNOSTIC 


031033 
031034 
031035 
031036 

031037 
031040 
031041 
031042 
031043 
031044 
031045 
031046 
031047 
031050 
031051 
031052 
031053 
031054 
031055 
031056 
031057 
031060 
031061 
031062 
031063 

031064 
031065 
031066 
031067 
031070 
031071 
031072 
031073 
031074 

031075 
031076 
031077 


000000 

402  00  0  00  065271 

403  15  0  00  030052 
260  17  0  00  046730 
260  17  0  00  044742 


201  03  0 

202  03  0 
200  04  0 
202  04  0 
200  04  0 
202  04  0 
205  00  0 


202  00 
205  00 
202  00 
201  10 
260  17 
254  00 
260  17 

201  01 

202  01 
260  17 


200  00  0 

201  01  0 
603  00  0 
201  01  C 


00  052601 
00  065334 
00  052603 
00  052500 
00  052604 
00  065331 
00  434470 
00  052501 
00  414470 
00  065330 
00  700000 
00  051450 
00  031250 
00  046730 
00  000001 
00  065223 
00  051350 
00  030046 
00  000001 
00  000400 
00  0000C5 


032 
201 
026 
606 
254 
602 
25/ 
36/ 
260 


00 
02 
01 
01 
00 
01 
00 

o: 
1? 


0 
0 
0 
0 
0 
0 
0 
0 
0 


01 
00 
00 
00 
00 
00 
00 
00 
00 


000000 

mill 

000000 
010000 
031100 
100000 
031104 
031066 
042573 


036  00  0  00  052613 
035  00  0  00  031054 
254  00  0  00  031426 


031100  260  17  0  00  042573 

031101  036  00  0  00  052623 

031102  035  00  0  00  031054 

031103  254  00  0  00  031426 


DIAGRS: 


T==0 

SETZM  LSTFIL 

SETZB  REPT.ERRPC 

GO  DEVREQ 

GO  MSTCLR 

MOVE I  AC3.C   1 

SPNTB,,SPNTA] 

MOVEM  AC3JABADR# 

MOVE  AC4,C'DFDXD  'J 

MOVEM  AC4«FILNAM 

MOVE  AC4,C*MCDXD  *] 

MOVEM  AC4.SU6FIL 

MOVSI  'CDX* 

MOVEM  FILEXT 

MOVSI  'ADX' 

MOVEM  SUBEXT 

MOVEI  F-COMPER^CBTFLG+CPAFLG 

60  LDUP 

JRST  DIAGLE 

GO  DEVREQ 

MOVEI  ACIJ 

MCVEM  ACl.CADDR 

60  ST 

MOVE  O.CONSU 

MOVEI  AC1J 

TLNE  RELIAB 

MOVEI  AC 1,5 

LDREG  DXCTR,(AC1) 


DIAGUT:  MOVEI 
DIAGUG:  RDRE6 
TRNN 
JRST 
TRNE 
JRST 
SOJG 
60 
ERROR 


AC2,-1 

DXSTR 

AC1,MPRUN 

DSTOPD 

AC1,ATA 

DATTEN 

AC2.DIAGWG 

UPTEST 
..orw,.   DIA6RS-0,0,0,\ 
MICRO-CODE  DIA6N0STIC  TIME-OUT,, UPINFO 
ERLOOP  DIAGRS 
JRST    DIAGXX 


DSTOPD:  GO     UPTEST 

ERROR   DIAGRS, 0, 0,0, \ 
MICRO-CODE  DIAGNOSTIC  HALTED, ,OPINFO 

ERLOOP  DIAGRS 

JRST    DIAGXX 


Clear  last  file  loaded 

Clear  error  pc  so  all  errors  get  printed 

Request  the  drive  from  monitor 

Reset  the  subsystem 

Number  of  add  pnt  routines 

Sense  command  test  routines 

Save  dispatch  table  address 

Name  of  adx  and  msg  file 

Store  the  file  name 

Get  name  of  mic rod i agnostic 

Store  the  subfile  name 

Extension  of  adx  and  msg  file 

Store  the  extension 

Get  extension 

For  both  names 

Set  up  control  flags 

Load  the  file 

Diagnostic  load  error 

Request  the  drive  from  monitor 

Set  start  address  of  1 

Into  caddr 

Start  the  mp  at  1 

Read  the  switches 

Get  normal  start  commano 
, Check  reliability  switch 
•Get  reliability  start  command 
^;Start  the  diagnostic 

;Get  wait  time 

;Read  status  register 

; Check  running  Bit 

;Diag  stopped 

.•Check  attention  flag 

.-Attention  set 

.'Keep  waiting 

;Get  test  number  from  dx20 


;If  error,  loop  to  DIAGRS 
;Get  out  of  the  test 

.-Get  test  number  from  dx20 


;If  error,  loop  to  DIAGRS 
;Get  out  of  test 


MCDXD   DX20-V100  MAGTAPE  SUBSYSTEM  MICR0DJA6N0STIC  VERSION  0.1  MACRO  X53A(1152)  18:41  6-Apr-85  Page  1  . 

RcDXDT  MAC      2-Jun-80  16:00        SELECTION  SEQUENCE  MICRODIAGNOSTIC  SEQ  0U4 


XLIST 
LIST 


f  TITLE   MCDXD   DX20-V100  MAGTAPE  SUBSYSTEM  MICRODIAGNOSTIC  VERSION  0.1 

a 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18  COMMENT  $ 

19 

20  MCDXD  IS  A  MICRODIAGNOSTIC  WHICH  IS  RUN  UNDER  CONTROL  OF  'DFDXD', 

21  THE  DX20-V100  MAGTAPE  SUBSYSTEM  DIAGNOSTIC.   FIRST  IT  CHECKS  THAT  ALL  TAG 

22  OUT  LINES  DROP  AFTER  A  DX20  RESET  AND  THAT  ALL  TAG  IN  LINES  DROP  AFTER  A 

23  SYSTEM  RESET.   THEN  IT  CHECKS  FOR  CORRECT  'SEL  OUT'  PROPAGATION  AND  CORRECT 

24  'OPL  IN'  RESPONSE  TO  AN  INITIAL  SELECTION  SEQUENCE.  A  TEST  I/O  COMMAND 

25  IS  EXECUTED  TO  DEVICE  ADDRESS  0.  PROPER  TAG  IN  RESPONSES  ARE  CHECKED  FOR 

26  AT  EACH  STEP  OF  EXECUTION.  FINALLY,  A  SENSE  COMMAND  IS  EXECUTED  TO  THE  DEVICE 

27  ADDRESS  WHICH  IS  SUPPLIED  BY  THE  HOST  VIA  GP  REGISTERS.  THE  SENSE  BYTES      ^_^  _  ^^^ 

28  ARE  EXAMINED  FOR  EXPECTED  DATA.   IF  ANY  ERRORS  ARE  DETECTED,  THE  NEXT  DEVICE  ADDRESS  IS  REQU 

30  THE  HOST.  ELSE,  THE  CORRECT  SENSE  DATA  IS  TRANSMITTED  BACK  TO  THE  HOST 

31  VIA  THE  GP  REGISTERS. 

34  000100  RPTCNT=  100  ;SET  REPEAT  COUNT  TO  100  TIMES 


NCDXD 
MCDXDT 


63 
64 
65 

66 
67 
68 

69 

?? 

72 
73 
74 
75 
76 
77 
78 
79 
80 

fi 

83 
84 
85 
96 

tr 

89 
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SUBTTL  CHANNEL  BUS  INTERFACE  REGISTER  BIT  DEFINITIONS 


SEQ  0145 


000000 
000001 
000002 
000003 
000004 
000005 
000005 
000006 
000007 
000010 
00001 1 
000012 
000013 
000014 
00001 5 
000016 


.•DEFINE  CHANNEL  BUS  INTERFACE  REGISTERS 


CSRO=0 

CSR1=1 

TOR0=2 

TORI =3 

TAGIN0=4 

TAGIN1=5 

SPADR=5 

DRL0=6 

CBIL0=7 

SPDAL0=10 

B0RL0=1 1 

DRHI=12 

CBIHI=13 

SPDAHI=14 

B0RHI=15 

CUSTAT=16 

.•REGISTER  BIT  DEFINITIONS 
;CSRO 


.•READ  ONLY  BITS 

000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

EXFER=1B28 

TIM0UT=1829 

DPPE=1830 

U8PE=1B31 

MKPE=1B32 

BUS1PE=1833 

BUS0PE=1834 

SLVSEL=1835 

.•WRITE  ONLY  BIT 

000002 
000001 

CLRFLG=1634 
CSLVSL=1835 

;CSR1 

000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

SPEN=1B28 

DIHISP=1829 

EVPAR=1830 

EXT8US=1831 

HUD360=1B32 

L00PEN=1833 

ONLINE =1834 

CHANL=1B35 

;  TORO 

000200 

SRVOUT=1B28 

CONTROL  AND  STATUS  REGISTER  0  (READ/WRITE  CLEAR) 

CONTROL  AND  STATUS  REGISTER  1  (READ/WRITE) 

TAG  OUT  REGISTER  0  (READ/WRITE) 

TAG  OUT  REGISTER  1  (READ/WRITE) 

TAG  IN  REGISTER  0  (READ  ONLY) 

TAG  IN  REGISTER  1  (READ  ONLY  BITS  7-4) 

SCRATCH  PAD  ADDRESS  REGISTER  (READ/WRITE  BITS  3-0) 

DATA  REGISTER  0  (READ  ONLY) 

BUS  IN  REGISTER  0  (READ  ONLY) 

SCRATCH  PAD  DATA  REGISTER  0  (WRITE  ONLY) 

BUS  OUT  REGISTER  0  (WRITE  ONLY) 

DATA  REGISTER  1  (READ  ONLY) 

BUS  IN  REGISTER  1  (READ  ONLY) 

SCRATCH  PAD  DATA  REGISTER  1  (WRITE  ONLY) 

BUS  OUT  REGISIER  1  (WRITE  ONLY) 

CONTROL  UNIT  RESET  STATUS  REGISTER  (WRITE  ONLY) 


END  XFER 
TIME  OUT  FLAG 
DP  PE  FLAG 
UB  PE  FLAG 
MK  ?l   FLAG 
BUS1  PE  FLAG 
BUSO  PE  FLAG 
SLVE  SEL 


.•CLEARS  ALL  FLAGS 
.•CLEARS  "SLVE  SEL' 


SP  ENABLE 
DIAG  HIGH  SPEED 
EVEN  PAR 
EXTENDED  BUS 
360  MODE 
LOOP  ENABLE 
ON  LINE 
CHANNEL  MODE 


;TOR  SRV  OUT 
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SEQ  0146 


I? 

93 
9A 
95 

§ 

99 

100 
101 
102 
103 
10A 
105 
106 
107 
^08 
109 
110 
111 
112 
113 
114 
115 
116 
117 

118 
119 
120 
121 
122 
123 
124 
125 

128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

138 
139 
140 
141 
142 
143 
144 


000100 
000040 
000020 
000010 
000004 
000002 
000001 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000200 
000100 
000040 
000020 


000017 


000004 
000002 
000001 


000100 
000004 
000100 


CLKOUT 
HTROUT 
ADROUT 
HLDOUT 
T«REN= 
SELOUT 
CNDOUT 

;T0R1 


=1829 

=1830 

=1831 

=1832 

1833 

=1834 

=1835 


0PL0UT=1828 

CURSEN=1829 

SUPOUT=1830 

DAT0UT=1831 

DISACK=ie32 

DimjX=1833 

T0D0UT=1834 

T0S0UT=1835 

:TAGINO 

0PLIN=1828 

nK0IN=1829 

NK1IN=1830 

ADRIN=1831 

T0H0UT=1832 

nTRIN=1833 

SELIN=1834 

STAIN=1835 

;TAGIN1 

SRVIN=1B28 
DISIN=1829 
REOiN=1830 
DATIN=1831 

;SPADR 

SPA8TS=17B35 

;CUSTAT 

SELRST=1833 
SYSRST=1834 
HALTI0=1835 

;SENSE  BYTE  BIT  DEFINITIONS 

TUSTA=1B29 
yRSTA=1B3? 
NEWSU8=1Bi^9 

; CHANNEL  BUS  COMMANDS 


TOR  CLK  OUT 

TOR  MTR  OUT 

TOR  ADR  OUT 

TOR  HID  OUT 

TIMER  INTERRUPT  ENABLE 

TOR  SEL  OUT 

TOR  CMD  OUT 


TOR  OPL  OUT 
ENABLE  CU  RESET 
TOR  SUP  OUT 
TOR  DAT  OUT 
DIA6  SLVE  ACK 
DIAG  MUX  BIT 
TO  DAT  OUT 
TO  SRV  OUT 


TI  OPL  IN 

TI  MIC  0  IN 

TI  MK  1  IN 

TI  ADR  IN 

TO  HLD  OUT 

TI  MTR  IN 

TI  SEL  IN 

TI  STA  IN 


TI  SRV  IN 

TI  DIS  IN 

TI  REQ  IN 

TI  DAT  IN 


;SP  ADDR  BITS 


SEL  RESET 
SYS  RESET 
HALT  I/O 


TU  STATUS  A 
WRITE  STATUS 
NEW  SUBSYSTEM 
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SEC  0147 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 

158 
159 
160 
161 
162 
165 
164 
165 
166 
167 

168 
169 
170 
171 
172 
173 
174 
175 
176 
177 

178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 


000004 


000002 


000003 


000004 


SENSE  =4  ;  SENSE  COWAND 

IF2     <PRINTX  STARTING  BINARY  FILE> _ 

SEARCH  DX20CA  ;REAO  THE  CROSS  ASSEMBLER 

;«ASSBUS  REGISTER  BIT  DEFINITIONS 

.•STATUS  t  CONTROL  REGISTER  1 

REGISTER  NAME 

RUN  LINE  FROM  RH20 

60  BIT 

FUNCTION  CODE 

FUNCTION  BIT  0 

FUNCTION  BIT  1 

FUNCTION  BIT  2 

FUNCTION  BIT  3 

FUNCTION  BIT  4 

WRITE  CLOCK  LINE  FROM  RH20 


000000 

MPSCRO=--  0 

000001 

RUN==     1 

000002 
000174 

60==     2 
FN==    174 

000004 

F0==     4 

000010 

F1==    10 

000020 

F2==    20 

000040 

f3==    40 

000100 

F4==   100 

000200 

yCLIC==  200 

.•STATUS  AND  CONTROL 

000001 

MPSCR1==  1 

000001 

DONE==    1 

000001 

EBL==     1 

000002 

EXC==     2 

000002 

CLRGO==   2 

000004 

CMPERR==  4 

000004 

START==   4 

000010 

DTD==    10 

000020 
000040 

OCC==    20 

Ii-^==   i2 

000100 

MPERR==  100 

000200 

ATA==   200 

2 


.•ERROR  CODE  REGISTER 

MP£CR==  2 

.•DRIVE  TYPE  REGISTER 

MPDTR==  3 

.•HARDWARE  VERSION  REGISTER 

«PHVR==  4 


REGISTER  NAME 

DATA  TRANSFER  DONE  (READ) 

SET  EBL  (WRITE) 

EXCEPTION  LINE  FROM  RH20  (READ) 

SET  TO  CLEAR  GO  (WRITE) 

COMPOSITE  ERROR  FLAG  (READ) 

START  A  DATA  TRANSFER  (WRITE) 

DATA  TO  DEVICE 

OCCUPIED 

ILLEGAL  FUNCTION 

MICRO-PROCESSOR  DETECTED  ERROR  FlAG 

ATTENTION 


.•REGISTER  NAME 


.•REGISTER  NAME 


.-REGISTER  NAME 


nCDXD 
nCERR 
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SEQ  0U8 


191 

192 

193 

19A 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 


000005 


000006 


000007 


;DATA  BUFFER  REGISTER  0 

NPDBO==  5 

;DATA  BUFFER  REGISTER  1 

nPDB1==  6 

;DATA  BUFFER  REGISTER  2 

nPDB2==  7 


000003 

DB== 

3 

000004 

DBPAR== 

4 

000010 

DBPARE== 

10 

000020 

DBEVEN== 
.•GENERAL  PURPOSE 

20 
RE( 

000010 

MPGP0==10 

00001 1 

nP6Pl==ll 

000012 

«PGP2==12 

000013 

nP6P3==13 

000014 

HPGP4==14 

000015 

nP6P5==15 

000016 

nP6P6==16 
nP6P7==17 

000017 

000020 

HP6P10==20 

000021 

nP6P11==21 

000022 

nP6P12===22 

000023 

nP6P13==23 

000024 

nP6P14==24 

000025 

«PGP15==25 

000026 

«PGP16==26 

000027 

nPGPI 7==27 

;HP  STATUS  REGISTER 

000036 

NPSTAT==36 

000001 

INTO== 

1 

000002 

INT1== 

2 

000004 

INT2== 

4 

000010 

INT3== 

10 

000020 

C== 

20 

000040 

;I/0  BANK  SELECT 

40 
RE 

000037 

I0SEL==37 

000007 

INADR== 

7 

000070 

OUTADR== 

70 

000100 

SPRES== 

199 

000200 

INIT== 

200 

.•REGISTER  NA«E 


.•REGISTER  NAME 


.•REGISTER  NAME 


DATA  BUFFER  BITS  16  AND  17 

PARITY  BIT 

PARITY  ERROR  (READ) 

DATA  BUFFER  EVEN  PARITY  CONTROL 


.•REGISTER  NAMES 


REGISTER  NAME 
INTERRUPT  LINE  0 
INTERRUPT  LINE  1 
INTERRUPT  LINE  2 
INTERRUPT  LINE  3 
CARRY  BIT 
ZERO  BIT 


REGISTER  NAME 
INPUT  BANK  ADDRESS 
OUTPUT  BANK  ADDRESS 
STACK  POINTER  RESET 
INITIALIZE 


r 


MCDXD 
MCERR 


2A4 

2A5 

2A6 

2A7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

111 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 
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THE  FOLLOWING  AC'S  ARE  USED  BY  THE  ERROR  HANDLER 

AC7  FLAG  REGISTER 

AC6  REPEAT  COUNTER 

AC5  SAVE  OF  BR  (DURING  CALL  ONLY) 

AC4  SAVE  OF  I/O  SELECT  REGISTER  (DURING  CALL  ONLY) 

AC1  CORRECT  DATA  FOR  ERRORA  CALL 

ACO  ACTUAL  DATA  FOR  ERRORA  AND  ERRORM  CALLS 

FLAG  REGISTER  BITS 

BIT  7  ERROR  LOOP 

BIT  6  ERROR  DETECTED 

BIT  5  RELIABILITY  MODE 

4-0  LAST  ERROR  NUMBER 


SEQ  0149 


mill     mill 
000000 


XTNUM==  -1 

XREQ==0 

IFDEF   RHDATA,<XREQ==1> 

IFDEF   CUADRS,<XREQ==1> 


;SET  TEST  NUMBER  TO  -1  SO  ENTIRE  DRIVE  REGISTER 


;IS  LOADED  WITH  TEST  NUMBER  ON  FIRST  TEST 


DEFINE  DEFTST(PROG),< 
DEFINE  TEST(E,NAME,X<;*»,< 

LALL 

X *********************************************************************** 

X  PROG  *  TEST  E  *    NAME 

X *********************************************************************** 

SALL 


TST'E: 
» 


IFN    <*D'E^!XTNUM>ai77400,< 

IFG  XTNUM-<DATI  I0SEL,AC6 

LDBR    1 1 

M0V6    lOSEL 

LDBR    *D'E  -8 

MOVB    MPGPT 

IFG  XTNUM,<     MOV     AC6,BR 

MOVB    lOSEL 
> 

LDBR    *D'Ei377 
GOINK   TESTI 
XTNUM==''D'E 
XEMES==0 
TST==TST*E 
LALL 

SALL 


SAVE  THE  lOSEL  REG> 

GET  DEVICE  CODE  FOR  MASSBUS  INTERFACE 

LOAD  INTO  I/O  SELECT  REGISTER 

GET  HIGH  ORDER  BITS  OF  TEST  NUMBER 

LOAD  INTO  MASSBUS  REG  20 

GET  SAVED  lOSEL  REG 

RESTORE  IT> 

GET  LOW  ORDER  BITS  OF  TEST  NUMBER 
60  INITIALIZE  TEST 
REMEMBER  TEST  NUMBER 
CLEAR  ERROR  MESSAGE  NUMBER 
REMEMBER  TEST  PC 


MCOXD 

MCERR 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

];03 

30A 

t 

305 

306 

307 

308 

309 

. 

310 

311 

312 

313 

31 A 

* 

315 

316 

317 

318 

];i9 

320 

321 

322 

];23 

324 

325 

326 

327 

328 

329 

t 

330 
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SEQ  0150 


PNT==200 
DEFINE 


> 

DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 


> 

DEFINE 


ERRMAC (ADR - LADR , PRTN, COR) , < 
60INK   ERRSET 
LPADR==ADR 

C0RF==<PRTN8PNT>!C0R 
LALL 

ERLOOP  LADR 


.-ADDITIONAL  PRINT  ROUTINE  REQUEST  FLAG 

; ERROR  PRINT  ROUTINE  NUMBER  MUST  BE  IN  DXGP3 


GO  SET  ERROR  DETECTED  FLAG 
REMEMBER  ERROR  LOOP  ADDRESS 
REMEMBER  IF  CORRECT  AND  ACTUAL  DATA 


;;IF  ERROR,  LOOP  TO  LADR 


ERR0R(LADR,MES1 ,MES2.PRTN<0» ,<ERRMAC  ERLP,LADR,PRTN,0> 

ERR0RM(LADP,MES1,MES2,PRTN<0»,<ERRMAC  ERLPM,LADR,PRTN J00> 

ERRORA(LADf<,iMES1,MES2,PRTN<0»,<ERRMAC  ERLPA,LADR,PRTN J00> 

ERR0RD(LADR,MES1 ,MES2,PRTN<0» ,<ERRMAC  ERLPD,LADR,PRTN,40> 

ERLOOP(ADR),<SALL 
IFN  XEMES&<*-37>,<IF2  < 
LALL 

PRINTX  ?T00  MANY  ERROR  MESSAGES  IN  ONE  TEST 
SALL 

ldbr   corfixemes  ;;load  message  number 

goink  lpadr  ;;g0  to  frror  handler 

jmpz   adr  ;;loop   z  is  set 

xemes==);emes+i  ; .-update  he  message  number 


REPEAT(RADR).< 
GOINK   REPTU 
JMPZ    RADR 


;;G0  TO  REPEAT  ROUTINE 
; .-REPEAT  IF  Z  IS  SET 


nCDXD 
HCERR 
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SEQ  0151 


IFDEF  RHDATA,< 
DEFINE 
DEFINE 
DEFINE 

DEFINE 


> 

IFDEF 


WRITE, <GOINIC    SETWRT  ;;CALL  ROUTINE  TO  SET  UP  RH20> 

READ^<GOINK     SETRD    ;CALL  ROUTINE  TO  SET  UP  RH20> 

READ6,<G0INIC    SETRDB  :-;CALL  routine  to  SET  UP  RH20> 

CHKRH(LADR-PRTN,CODE),< 

LDBR    <pftTNfcPNT>!XEMESICODE   ;;SET  UP  CODE  FOR  EC  REGISTER  ^^ 

GOINK   CKTRM         ;;CALL  HOST  TO  CHECK  TERMINATION  OF  RH20 

LALL 


ERRLOP 

> 

DEFINE 
DEFINE 

DEFINE 

> 


LADR 
XEMES==XEMES*1 


;;IF  ERROR,   LOOP  TO  LADR 


CHKTRM(LADR,MES1 ,MES2,PRTN<0» ,<CHKRH  LADR,PRTN,40> 
CHKERR(LADR,MES1  ,MES2,PRTN<0»  ,<CHKRH  LADR,PRTNJA0> 


ERRLOP(LADR),<SALL 
JMPZ         LADR 


;;IF  ERROR,   LOOP  TO  LADR 


CUADRS,< 

DEFINE  SNDADR,<GOIN»C 


SENDAD  ;; CALL  ROUTINE  TO  SEND  CU  ADDRESSES> 


WCDXD 
MCERR 
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SEQ  0152 


354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 


000000 


XADRH==0 

DEFINE  G0iNK(ADR),< 


IFE 

> 

IFN 


.fc<*-1777>.< 
JMPSUB  ADR 


;; CLEAR  HIGH  ADDRESS  REFERENCE  FLAG 


;;G0  TO  ADDRESS  IN  LOW  IK 


.K*-1777>,< 

IFIDN  <ADR><TESTI>,< 

JMPSUB  TESTIH 

tADRH::rXADRH!l 

> 

IFIDN  <ADR><LPADR>,< 

IFE  <LPADR-ERLP>,< 

JMPSUB     ERLPH 
UDRHr=ZADRH!2 
> 
IFE  <LPADR-ERLPM>,< 

JMPSUB  ERLPMH 
ZADRH=:=XADRH!4 
> 
IFE  <LPADR-ERLPA>,< 

JMPSUB  ERLPAH 
XADRH==XADRHI10 
> 
IFDEF  CATAB,< 

IFE  <LPADR-ERLPD>,< 

JMPSUB  ERLPDH 
UDRH— XADRH1400 
> 
> 
> 

IFIDN  <ADR><ERRSET>,< 
JMPSUB  ERSETH 
XADRH==XADRHI20 
> 
IFIDN  <ADR><REPTU>-< 

JMPSUB  REPTUH 
ZADRH==XADRH!40 
> 
IFDEF  RHDATA,< 

IFIDN  <ADR><SETWRT>,< 
JMPSUB  STWRTH 
XADRH==XADRH1100 
> 

IFIDN  <ADR><SETRD>,< 
JMPSUB  STRDH 
XADRH==XADRH!100 
> 

IFIDN  <ADR><SETRDB>,< 
JMPSUB  STRDBH 
XADRH==XADRH!100 
> 

IFIDN  <ADR><CKTRM>,< JMPSUB  CKTRMH> 
> 
IFDEF  CUADRS,< 


HCDXD 
MCERR 

409 
410 
411 
412 
413 
414 
415 
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ifidn  <adr><sendad>,< 
jmpsub   sndadh 
xadrh==j;adrhi200 

> 


SEQ  0153 
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SEO  01 5A 


416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 


DEFINE     .ECRAM.<     _, 

IFE  .i<'^-1777>,< 
IFN  .K*-1777>,< 
IFN  XADRH11,<       TESTIH: 


IFN  XADRH&2,< 

IFN  ZADRHft4,< 

IFN  XADRH&10.< 

IFN  ZADRHft20.< 
IFN  XADRHft40.< 


ERLPH: 

ERLPMH: 

ERLPAH: 

ERSETH: 
REPTUH: 


IFN  XADRHt106,<  STyRTH: 

STRDH: 

STRDBH: 
CALLH: 

CKTRMH: 

IFN  XADRHft200,<  SNDADH: 

IFN  XADRHft400,<  ERLPDH: 


JMP 

JUMP 

MOVB 

JUMP 

MOVB 

JUMP 

MOVB 

JUMP 

MOVB 

JUMP 

JUMP 

JUMP 

LDBR 

JMP 

LDBR 

JMP 

LDBR 

MOVB 

JUMP 

MOVB 

JUMP 

LDBR 

MOVB 

JUMP 

MOVB 

JUMP 


BE6END> 

BEGEND> 

ACS 

TESTOI> 

ACS 

ERLPO> 

ACS 

ERLPMO> 

ACS 

ERLPAO> 

ERRSET> 

REPTU> 

1 

CALLH 

2 

CALLH 

3 

ACS 

CALLO 

ACS 

CKTRMO> 

200 

ACS 

CALLO> 

ACS 

ERLPDO> 


HCDXD 
HCERR 
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SEO  0155 


4A4 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 
479 
480 
481 
482 
483 
484 
485 
486 
487 

488 


000000  0  002000  01  0000 


.-MICRO-DIAGNOSTIC  START  ROUTINE 
.INIT   * 
SALL 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000030 

000031 
000032 

000033 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 


0  002011  0  1 
0  066371  3  3 
0  022000  1  1 
0  014000  0  6 
0  104007  4  2 
0  100003  4  0 
0  022000  1  1 
0  014000  0  6 
0  014000  0  6 
0  104031  4  2 
0  014000  0  6 
0  104017  4  2 
0  002000  0  1 
0  100020  4  0 
0  002040  0  1 
0  072171  3  5 
0  002300  0  1 
0  066371  3  3 
0  002011  0  1 
0  066371  3  3 
0  002000  0  1 
0  064351  3  2 
0  116033  4  7 
0  '00207  4  0 


0  Oil 
0  17  11 
0  00  00 
0  000 
0007 
0003 
0  00  00 
0  000 
0  000 
0031 
0  000 
0017 
0  000 
0020 
0  040 

07  11 

300 

17  11 

Oil 

17  11 

000 

16  11 
0033 
0207 


0 
0 
0 
0 
0 
0 
0 


0  014000  0  6  0  000 
0  016000  0  7  0  000 


0  002000  0  1 
0  064051  3  2 
0  032121  1  5 
0  002010  0  1 
0  072133  3  5 
0  002002  0  1 
0  062134  3 
0  064031  3 
0  016000  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


BEGIN:  LDBR 
MOVB 

yAITGO:  DATI 
SHR 
JMPBO 
JMP 
DATI 
SHR 
SHR 
JMPBO 
SHR 
JMPBO 
LDBR 
JMP 
LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
JMPSUB 
JMP 

CHDFO:   SHR 

RETURN 


11 

lOSEL 

MPSCRO,BR 

.♦2 

UAITGO 

MPSCRO,BR 


CMDFO 

.♦3 

0 

.♦2 

40 

AC7 

INIT^SPRES 

lOSEL 

11 

lOSEL 

0 

MP6P6 

OFF  GO 

TSTART 


000 
02  11 
05  01 
010 
05  13 
002 
05  U 
01  11 
000 


OFFGO: 


LDBR 

MOVB 

DATI 

LDBR 

LANDBR 

LDBR 

LORB 

MOVB 

RETURN 


0 

MPECR 

MPSCR1.AC5 

DTD 

AC5 

CLRGO 

AC5,8R 

MPSCR1 


INITIALIZE  THE  CROSS  ASSEMBLER 


SELECT  THE  MASSBUS 

INTERFACE 

READ  CONTROL  REGISTER 

SHIFT  GO  BIT  TO  BIT  0 

JUMP  AROUND  IF  GO  IS  SET 

NOT  YET,  KEEP  MAITING 

READ  THE  FUNCTION  CODE  AGAIN 

SHIFT  RIGHT 

SHIFT  FO  TO  BIT  0 

JUMP  IF  FO  IS  SET 

SHIFT  F1  TO  BIT  0 

JUMP  IF  RELIABILITY  MODE  REQUESTED 

SET  UP  FLAG  REG  WITH  ALL  ZEROS 

SET  RELIABILITY  MODE  FLAG 

PUT  IN  AC7 

RESET  THE  DX20 

AND  THE  STACK  POINTER 

SELECT  THE  MASSBUS 

INTERFACE  AGAIN 

CLEAR  RIGHT  HALF  OF  DXGP3 

TO  INDICATE  NO  ADDITIONAL  ERROR  PRINTER 

TURN  OFF  GO 

GO  START  THE  FIRST  TEST 


;SHIFT  F1  TO  BIT  0 
;RETURN  TO  CALLER 


GET  A  ZERO 

CLEAR  ERROR  CODE  REGISTER 
READ  STATUS  REGISTER  i 
GET  MASK  OF  DIRECTION  BIT 
KEEP  ONLY  THAT  BIT 
GET  BIT  TO  CLEAR  GO 
COMBINE  WITH  COPY  OF  DTD 
CLEAR  GO  AND  ATA 
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SEQ  0156 


489 

A90 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 


;TEST  INITIALIZATION 


000044 
000045 
000046 
000047 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 


000067 
000070 
000071 
000072 

000073 
000074 
000075 


0  062130  3 
0  001000  0 
0  000400  0 
0  132157  5  5 
0  010011  0  4 
0  046371  2  3 
0  064211  3  2 
0  062150  3 
0  066371  3 
0  002040  0 
0  072173 
0  062170 
0  0140O0 
0  106064 
0  002000 
0  100065 
0  002077 
0  072151 
0  016000 


0 
2 
1 
0 
0 
0 
0 


05  10 
000 
000 

06  17 
Oil 
17  11 
10  11 


TESTOI: 
TESTI: 


1  0  06  10 
3  0  17  11 
.  1  0  040 
3  5  0  07  13 

3  1  0  07  10 
0  6  0  000 

4  3  0064 
0  1  0  000 
4  0  0065 
0  1  0  077 
3  5  0  06  11 
0  7  0  000 


MOV 

LDMAR 

LDMARX 

DAT  I 

LDMEM 

MOVIEM 

Move 

MOV 

MOVB 

LDBR 

LANDBR 

MOV 

SHR 

JMPB4 

LDBR 

JMP 

LDBR 

MOVB 

RETURN 


ACS, BR 

0 

0 

I0SEL,AC6 

11 

lOSEL 

MP6P0 

AC6-BR 

lOSEL 

40 

AC7 

AC7,BR 

.'^3 

0 

.^2 

RPTCNT-1 

AC6 


;I/0  SELECT  REGISTER  GENERAL  ROUTINES 


0  132117  5  5  0  04  17 
0  002011  0  1  0  Oil 
0  066371  3  3  0  17  11 
0  016000  0  7  0  000 

0  062110  3  1  0  04  10 
0  J66371  3  3  0  17  11 
0  016000  0  7  0  000 


SAVIOS:  DATI 
LDBR 
MOVB 

NRTN:   RETURN 

RESIOS:  MOV 
MOVB 
RETURN 


I0SEL,AC4 

11 

lOSEL 


AC4,BR 
lOSEL 


GET  TEST  NUMBER  BACK 

CLEAR  MEMORY  ADDRESS  REGISTER 

ALL  BITS 

SAVE  lOSEL  REG 

GET  DEVICE  CODE  FOR  MASSBUS  INTERFACE 

LOAD  INTO  I/O  SELECT  REGISTER 

WRITE  TEST  NUMBER  INTO  DXGPO 

GET  SAVED  lOSEL  REG 

RESTORE  IT 

GET  MASK  OF  ONLY  RELIABILITY  BIT 

CLEAR  ERROR  AND  MESSAGE  NUMBER  BITS 

GET  FLAGS 

SHIFT  RELIABILITY  MODE  BIT  TO  BR4 

JUMP  AROUND  IF  RELIABILITY  MODE 

QUICK  VERIFY,  LOAD  A  ZERO  COUNT 

GET  REPEAT  COUNT 

SAVE  IN  AC6 

NOW  START  THE  TEST 


SAVE  I/O  SELECT  REGISTER  IN  AC4 
SELECT  MASSBUS  INTERFACE 
GO  I/O 


;GET  SAVED  I/O  SELECT  REGISTER 
.•RESTORE  IT 


.-ROUTINE  TO  SET  ATA  AND/OR  MPERR  IN  STATUS  REGISTER 
.•ENTER  WITH  BITS  TO  SET  IN  BR 


000076 
000077 
000100 
000101 
000102 
000103 


0  032121  1  5  0  05  01 
0  072134  3  5  0  05  14 
0  002310  0  1  0  310 
0  062133  3  1  0  05  ^3 
0  064031  3  2  0  01  11 
0  016000  0  7  0  000 


SETATA:  DATI 
LORBR 
LDBR 
LANDB 
MOVB 
RETURN 


MPSCR1.AC5 

ACS 

ATA^MPERR^DTD 

ACS.BR 

MPSCRl 


READ  STATUS  REGISTER 

SET  REQUESTED  BITS 

GET  MASK  OF  ONLY  BITS  TO  SET 

CLEAR  OTHER  BITS  READ 

WRITE  INTO  STATUS  REGISTER 


MCDXD 
MCERR 
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SEO  0157 


532 

533 

53A 

535 

536 

537 

538 

539 

5A0 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 


000104  0  002300  0 

000105  0  072174  3 

000106  0  016000  0 


000107  0  062170  3 
000110  0  110112  4 


1 
4 


0  300 
0  07  14 
0  000 


0  07  10 
0112 


000111 

0001 1 2 

0001 1 3 
000114 
0001 1 5 
000116 
0001 1 7 
000120 
000121 
00012? 
000123 
000124 
000125 

000126 
000127 
0001 30 
000131 
000132 
000133 
000134 
000135 
0001 36 
000137 
000140 


0  016377  0 
0  062165  3 
0  110126  4 
0  002037  0 
0  072133  3 
0  062173  3 
0  060137  3 
0  114122  4 
0  016377  0 
0  116067  4 
0  002200  0 
0  072131  3 
0  016000  0 

0  116067  4 

0  062130  3 

0  064051  3 

0  002240  0 

0  072173  3 

0  J02037  0 

0  062133  3 

0  072174  3 

0  002300  0 

0  072131  3 

0  016000  0 


7  0  377 
1  0  07  05 


0126 
0  037 
0  05  13 
1  0  07  13 
0  0  05  17 
0122 
0  377 
0067 
0  200 
0  05  11 
0  000 


7 
1 
2 
1 
5 
1 
1 
5 
1 
5 
7 


0067 
0  05  10 

02  11 

240 

07  13 

037 

05  13 

07  14 
0  300 
0  05  11 
0  000 


0 
0 
0 
0 
0 
0 


; ERROR  HANDLER  ROUTINES 

ERRSET:  LDBR  300 
LORBR  AC 7 
RETURN 

; CHECK  IF  TO  REPORT  AN  ERROR 

ERRCHK:  MOV     AC7.8R 
IFNDEF  . ERROR, <JMPB7    .+2> 
IFDEF   . ERROR, <J«P     REPORT> 


NOFAIL: 


REPORT: 


RETURN 

SHL 

JMPB7 

LDBR 

LANDBR 

LANDB 

OSB 

JMPZ 

RETURN 

JMPSUB 

LDBR 

MOVB 

RETURN 

JMPSUB 

MOV 

MOVB 

LDBR 

LANDBR 

LDBR 

LANDB 

LORBR 

LDBR 

MOVB 

RETURN 


-1 

AC7,BR 

REPORT 

37 

ACS 

AC7,BR 

ACS 

NOFAIL 

-1 

SAVIOS 

ATA 

ACS 


SAVIOS 

ACS,BR 

MPECR 

240 

AC7 

37 

ACS,BR 

AC7 

ATA+MPERR 

ACS 


;GET  ERROR  LOOP  AND  DETECTED  FLAGS 
;SET  BOTH  BITS  IN  FLAG  REGISTER 


GET  FLAG  REGISTER 

SKIP  IF  IN  ERROR  LOOP 

REPORT  ALL  ERRORS 

RETURN  WITH  Z  SET  TO  CONTINUE  TEST 

SHIFT  ERROR  DETECTED  BIT  TO  BR7 

REPORT  IT  IF  SET 

GET  MASK  FOR  ERROR  NUMBER 

CLEAR  CONTROL  BITS  IN  CURRENT  NUMBER 

EXTRACT  LAST  ERROR  NUMBER 

COMPARE  LAST  AND  CURRENT  ERROR  NUMBERS 

JUMP  IF  AT  SAME  ERROR 

NO,  RETURN  WITH  Z  SET  TO  CONTINUE  TEST 

SAVE  I/O  REGISTER,  SELECT  MASSBUS 

GET  ATA  BIT  ^ 

SAVE  IN  ACS 

RETURN  WITH  Z  CLEAR  TO  SIGNAL  END  OF  LOOP 

SAVE  I/O  REGISTER,  SELECT  MASSBUS 

GET  ERROR  NUMBER 

PUT  IN  ERROR  CODE  REGISTER 

GET  MASK  OF  LOOP  AND  RELIABILITY  BITS 

LEAVE  ONLY  THOSE  TWO  BITS  IN  FLAG  REG 

GET  MASK  OF  ERROR  NUMBER 

GET  CURRENT  NUMBER  FROM  ACS 

MERGE  AND  PUT  IN  FLAG  REGIT  ER 

GET  ATA  AND  ERROR  BITS 

SAVE  IN  ACS 

RETURN  WITH  Z  CLEAR  TO  SIGNAL  ERROR  REPORT 


"1 
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SEQ  0158 


569 

000141 

0  072131  3  5  0  05 

11 

ERLP: 

MOVB 

AC5 

570 

000142 

0  116107  4  7  0107 

ERLPO: 

JMPSUB 

ERRCHK 

571 

000143 

0  114072  4  6  0072 

JMPZ 

NRTN 

574 

000144 

0  100161  4  0  0161 

JMP 

ERRCOM 

000145 

0  072131  3  5  0  05 

11 

ERLPM: 

MOVB 

AC5 

575 

000146 

0  116107  4  7  0107 

ERLPMO: 

JMPSUB 

ERRCHK 

576 

000147 

0  114072  4  6  0072 

JMPZ 

NRTN 

577 

000150 

0  044311  2  2  0  14 

11 

MOVMEM 

MPGP4 

578 
579 
580 

000151 

0  100157  4  0  0157 

JMP 

ERRCA 

000152 

0  072131  3  5  0  05 

11 

ERLPA: 

MOVB 

AC5 

581 

000153 

0  116107  4  7  0107 

ERLPAO: 

JMPSUB 

ERRCHK 

582 

000154 

0  114072  4  6  0072 

JMPZ 

NRTN 

583 

000155 

0  062030  3  1  0  01 

10 

MOV 

AC1,BR 

584 

000156 

0  064311  3  2  0  14 

11 

MOVB 

MP6P4 

585 

000157 

0  062010  31  1  0  00 

10 

ERRCA: 

MOV 

ACO,BR 

586 

000160 

0  064331  3  2  0  15 

11 

MOVB 

MPGP5 

587 

000161 

0  062130  3  1  0  05 

10 

ERRCOM: 

MOV 

AC5,BR 

588 

000162 

0  116076  4  7  0076 

CHKLOP: 

JMPSUB 

SETATA 

589 

000163 

0  1160031  4  7  0003 

CHKLP: 

JMPSUB 

UAI TGO 

590 

000164 

0  104170  4  2  0170 

JMPBO 

ELOOPC 

591 

000165 

0  116033  4  7  0033 

JMPSUB 

OFF  GO 

592 

000166 

0  116073  4  7   0073 

JMPSUB 

RESIOS 

593 
594 
595 

000167 

0  016377  0  :'  0  377 

f 

ZRTN: 

RETURN 

-1 

000170 

0  116033  4  7  0033 

ELOOPC: 

JMPSUB 

OFF  60 

596 

000171 

0  116073  4  7  0073 

JMPSUB 

RESIOS 

597 
598 

000172 

0  016000  0  7  0  OOC 

) 

RETURN 

SAVE  MESSAGE  NUMBER  IN  AC5 

CHECK  FOR  ERROR 

NO,  RETURN  WITH  Z  CLEAR  TO  CONTINUE  TEST 

GO  TO  COMMON  ROUTINE 

SAVE  MESSAGE  NUMBER  IN  AC5 

CHECK  FOR  ERROR 

NO^  RETURN  WITH  Z  CLEAR  TO  CONTINUE  TEST 

Put  CORRECT  DATA  IN  RIGHT  HALF  OF  DXGP2 

JUMP  AROUND 

SAVE  MESSAGE  NUMBER  IN  AC5 

CHECK  FOR  ERROR 

NO-  RETURN  WITH  Z  CLEAR  TO  CONTINUE  TEST 

GET  CORRECT  DATA  FROM  ACI 

PUT  IN  RIGHT  HALF  OF  DXGP2 

GET  ACTUAL  DATA  FROM  ACO 

PUT  IN  LEFT  HALF  OF  DXGP2 

GET  BITS  TO  SET  IN  STATUS  REGISTER 

GO  SET  THE  BITS 

WAIT  FOR  GO  TO  SET 

JUMP  IF  TO  CONTINUE 

TURN  OFF  GO 

RESTORE  I/O  SELECT  REGISTER 

RETURN  WITh  Z  SET  TO  LOOP 

TURN  OFF  GO 

RESTORE  I/O  SELECT  REGISTER 

RETURN  WITH  Z  CLEAR  TO  CONTINUE 
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SEQ  0159 


599 
600 


XLIST 
LIST 
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601  XLIST 

602  LIST 


6-Apr-85  Page  13 


SEQ  0160 


r 


nCDXD 
MCERR 


603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
6^5 
616 
617 
618 
619 
620 
621 
622 
623 
624 
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SEQ  0161 


C00173 
0001 74 
000175 


000176 
000177 
000200 
000201 
000202 
000203 
000204 
000205 
000206 


000207 


0  072147  3  5  0  06  07 
0  114072  4  6  0072 
0  016377  0  ?  0  377 


.•REPEAT  TEST  ROUTINE 

REPTU:  DECR    AC6 
JMPZ    NRTN 
RETURN  -1 


DECREMENT  REPEAT  COUNT 

IF  NOW  -K  RETURN  WITH  Z  CLEAR 

RETURN  WitH  2  SET  TO  REPEAT  TEST 


.-REPORT  END  OF  DIAGNOSTIC  WITH  0  ERROR  CODE  AND  0  TEST  NUMBER 


0  002011  0  1 
0  066371  3  3 
0  002000  0  1 
0  064211  3  2 
0  064231  3  2 
0  002200  0  1 
0  064031  3  2 
0  116003  4  7 
0  100001  4  0 


0 
0 
0 
0 
0 
0 
0 


Oil 
17  11 
000 

10  11 

11  11 
200 
01  11 


BEGEND: 


0003 
0001 


LDBR 

M0V6 

LDBR 

MOVB 

M0V6 

LDBR 

MOVB 

JMPSUB 

JMP 


11 

lOSEL 

0 

MPGPO 

MPGP1 

ATA 

MPSCR1 

WAI TGO 

BEGIN 


TSTART: 


SELECT  MASSBUS  INTERFACE 

IN  I/O  SELECT  REGISTER 

GET  A  ZERO 

MAKE  TEST  NUMBER  0 

TO  SAY  END  OF  DIAGNOSTIC 

GET  ATTENTION  BIT 

SET  IT 

WAIT  FOR  GO  TO  SET 

START  DIAGNOSTIC  OVER  AGAIN 


;COME  HERE  TO  START  THE  TESTING 


r 


nCDXD 
MCDXDM 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63A 

635 

636 

637 

638 

639 

6A0 

6A1 

6A2 

643 

6AA 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 
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SUBTTL  SELECTION  SEQUENCE  MICRODIAGNOSTIC 

DEFTST  MCDXD 

TEST    2, TEST  TAG  OUT  STATUS  AFTER  DX20  RESET 

;♦  MCDXD  ♦  TEST  2  ♦    TEST  TAG  OUT  STATUS  AFTER  DX20  RESET 

SALL 

000207  0  002011  0  1 

000210  0  066371  3  3 

000211  0  002000  0  1 

000212  0  064231  3  2 

000213  0  002002  0  1 

000214  0  116045  4  7 

00021 5 

;♦  TEST  THAT  DOING  A  DX20  RESET  CLEARS  THE  TAG  OUT  LINES. 

;*  DO  A  MICROBUS  INIT. 
♦  SET  ONLINE  AND  CHANNEL  MODE  THEN  WAIT  5  MS  FOR  SEL  OUT  RELAY  TO  SETTLE. 
;*  CHECK  THAT  ALL  TAG  OUT  LINES  ARE  RESET. 


SEQ  0162 


0  oil 

0  17  11 

0  000 

0  11  11 

0  002 

00<5 

TST2: 

SALL 

000215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000230 


000231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 


000242 
000243 
000244 
000245 
000246 


0  117704  4 
0  002003  0 
0  064031  3 
0  117714  4 
0  000000  0 
0  032002  1 
0  002373  0 
0  J72013  3 
0  010000  0 
0  040017  2 
0  114231  4 
0  116104  4 


0  002100  0 
0  116145  4 
0  114215  4 
0  032003  1 
0  002263  0 
0  072013  3 
0  040017  2 
0  114242  4 
0  116104  4 


1704 
0  003 
0  01  11 
1714 
0  000 


5  0  00  02 
1  0  373 

5  0  00  13 
4  0  000 

0  0  00  17 

6  0231 

7  0104 


1  0  100 
7  0145 
6  0215 
5  0  00  03 
1  0  263 

5  0  00  13 
0  0  00  17 

6  0242 

7  0104 


0  002101  0  1  0  101 
0  116145  4  7  0145 
0  114215  4  6  0215 
0  116173  4  7  0173 
0  114215  4  6  0215 


;D0  A  MICROBUS  INIT 

;SET  ONLINE  TO  ENABLE  DRIVERS/RECEIVERS 

;AND  SET  "CHANNEL  MODE" 

;WAIT  FOR  >5  MS  AFTER  ONLINE 

;READ  TAG  OUT  REG  0 
;SET  MASK  OF  TAG  OUT  BITS 
; CLEAR  NON-TAG  OUT  BITS 
;SET  EXPECTED  DATA 
.-CHECK  FOR  CLEARED  TAG  OUT  BITS 
•JUMP  IF  ALL  CLEARED 
TST^MICROBUS  INIT  DID  NOt  CLEAR  ALL  "TORO"  TAG  OUT  BITS 

*SALL 


JMPSUB 

INITL 

LD6R 

ONLINE+CHANL 

MOVB 

CSRl 

JMPSUB 

WAIT 

NOP 

DAT  I 

TORO.ACO 

LD6R 

373 

LANDBR 

ACO 

LDMEM 

0 

OSM 

ACO 

JMPZ 

.+2 

ERRORM 

TST^MICROBUS 

ERLOOP 

TST 

DATI 

TORI, ACO 

LDBR 

263 

LANDBR 

ACO 

OSM 

ACO 

JMPZ 

.^2 

ERRORM 

TST,MICROBUS 

ERLOOP 

TST 

REPEAT 

TST 

;READ  TAG  OUT  REG  1 
;SET  MASK  OF  TAG  OUT  BITS 
; CLEAR  NON-TAG  OUT  BIT 
.•CHECK  FOR  CLEARED  TAG  OUT  BITS 
:JUMP  IF  ALL  CLEARED 
TST.MICROBUS  INIT  DID  NOT  CLEAR  ALL  "TORI"  TAG  OUT  BITS 

*SALL 
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SEQ  0163 


679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

111 

728 

729 

730 

731 

732 

733 


000247  0  002003  0  1  0  003 
000250  0  116045  4  7  0045 

000251 


000251 

000252 

000253 

000254 

000255 

000256 

000257 

000260 

000261 

000262 

000263 

000264 

000265 

000266 

000267 

000270 

P00271 

000272 

000273 
000274 
000275 


0  117727  4 
0  002200  0 
0  064071  3 
0  C02200  0 
0  072031  3 
0  032004  1 
0  040017  2 
0  114262  4 
0  100273  4 
0  032005  1 
0  002360  0 
0  072013  3 
0  040017  2 
0  114270  4 
0  100273  4 
0  072027  3 
0  114273  4 
0  100256  4 


7 
1 
2 
1 
5 
5 
0 
6 
0 


1727 

0  200 

03  11 

200 

01  11 

00  04 

00  17 

0262 

0273 


5  0  00  05 
1  0  360 

5  0  00  13 
0  0  00  17 

6  0270 
0  0273 

5  0  01  07 

6  0273 
0  0256 


0  032004  1  5  0  00  04 
0  040017  2  0  0  00  17 
:  114277  4  6  0277 


000276  0  116104  4  7  0104 


000277 
000300 
000301 
000302 
000303 
000304 
000305 
000306 


0  002100  0  1 
0  116145  4  7 
0  114251  4  6 
0  032005  1  5 
0  002360  0  1 
0  072013  3  5 
0  040017  2  0 
0  114310  4  6 


0  100 
0145 
0251 
0  00  05 
0  360 
0  00  13 
0  00  17 
0310 


000307  0  116104  4  7  0104 


TEST    3, TEST  TAG  IN  STATUS  AFTER  SYSTEM  RESET 
)*  MCDXD  ♦  TEST  3  *    TEST  TAG  IN  STATUS  AFTER  SYSTEM  RESET 
SALL 


TST3:   SALL 

;*TEST  THAT  NO  DEVICES  RESPOND  WITH  A  TAG  IN  LINE  TO  "OPL  OUT" 
;*AFTER  A  SYSTEM  RESET. 

.•♦CLEAR  ALL  TAG  OUT  LINES. 

;*SET  ••OPL  OUT". 

;*CHECK  THAT  ALL  TAG  IN  LINES  ARE  CLEARED. 


TAGWT : 


JMPSUB 

LDBR 

MOVB 

LDBR 

MOVB 

DATI 

OSM 

JMPZ 

JMP 

DATI 

LDBR 

LANDBR 

OSM 

JMPZ 

JMP 

DECR 

JMPZ 

JMP 


CLROUT 

OPLOUT 

TORI 

200 

AC1 

TAGINO.ACO 

ACO 

.+2 

TISET 

TAGIN1.AC0 

360 

ACO 

ACO 

.+2 

TISET 

AC1 

.^2 

TAGWT 


TISET: 


CLEAR  ALL  TAG  OUT  LINES 
SET  "OPL  OUT" 

SET  WAIT  COUNT 

READ  TAG  IN  REG  0 
CHECK  FOR  ZEROS 
JUMP  IF  ALL  BITS  CLEARED 
ELSE,  REPORT  ERROR 
READ  TAG  IN  REG  1 

CLEAR  SP  ADDR  BITS 

CHECK  FOR  ZEROS 

JUMP  IF  ALL  BITS  CLEARED 

ELSE,  REPORT  ERROR 

DEC  LOOP  CNT 

JUMP  IF  DONE  WAITING 

ELSE,  KEEP  WAITING 


DATI    TAGINO,ACO 
OSM    ACO 

JMPZ    .^2  ,vw...  *.  ..WW 

ERRORM  TST,ALL  "TAGINO"  TAG  IN  BITS  DID  NOT  ALL  CLEAR, \ 
DIAG  DID  A  MICROBUS  INIT  THEN  SET  "OPL  OUT" 


READ  TAG  IN  REG  0 

CHECK  FOR  ZEROS 

JUMP  IF  ALL  BITS  CLEARED 


ERLOOP  TST 


'SALL 


;READ  TAG  IN  REG  1 


DATI  TAGIN1,AC0 

LDBR  360 

LANDBR  ACO  ; CLEAR  SP  ADDR  BITS 

OSM  ACO  .-CHECK  FOR  ZEROS 

JMPZ  .+2  ;JUMP  IF  ALL  BITS  CLEARED 

ERRORM  TST,ALL  "TAGINI"  TAG  IN  BITS  DID  NOT  ALL  CLEAR, \ 


DIAG  DID  A  MICROBUS  INIT  THEN  SET  "OPL  OUT' 


ERLOOP  TST 


'SALL 


— j 
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SEQ  01 6A 


73A 
73!> 
736 
737 
738 
739 


000310  0  002101  0  1  0  101 

000311  0  116U5  A  7  01 A5 

000312  0  1U251  4  6  0251 

000313  0  116173  4  7  0173 

000314  0  114251  4  6  0251 


REPEAT     TST 
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SEQ  0165 


7A0 
7A1 
7A2 
7A3 
7AA 
7A5 
7A6 
7tJ 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 


000315  0  002004  0  1  0  004 

000316  0  116045  4  7  0045 

000317 


TEST    4  JEST  "SEL  OUT"  PROPAGATION 
)♦  MCDXD  »  TEST  4  *    TEST  "SEL  OUT"  PROPAGATION 
SALL 


TST4:   SALL 


000317 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000330 
000331 
000332 
000333 
0C0334 
000335 
000336 


0  117727  4 
0  002200  0 
0  064071  3 
0  002010  0 
0  064051  3 
0  002012  Q 
0  C64051  3 
0  002200  0 
0  072031  3 
0  022004  1 
0  072011  3 
0  014000  0 
0  104340  4 
0  072027  3 
0  114337  4 
0  100330  4 


7 
1 
2 
1 
2 
1 
2 
1 
5 
1 
5 
6 
2 
5 
6 
0 


1727 
0  200 

03  11 

010 

02  11 

012 

02  11 

200 

01  11 

00  04 

00  11 

000 
0340 
0  01  07 
0337 
0330 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


000337  0  116104  4  7  0104 


000340 
000341 
000342 
000343 
000344 
000345 


0  002000  0  1 
0  116141  4  7 
0  114317  4  6 
0  010002  0  4 
0  040017  2  0 
0  114347  4  6 


0  000 
0141 
0317 
0  002 
0  00  17 
0347 


000346  0  116104  4  7  0104 


000347  0  002101  0  1  0  101 

000350  0  116145  4  7  0145 

000351  0  114317  4  6  0317 

000352  0  116173  4  7  0173 

000353  0  114317  4  6  0317 


.•♦CLEAR  ALL  TAG  OUT  LINES. 

;*SET  "OPL  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 

;*WAIT  FOR  "SEL  OUT"  TO  RETURN  AS  "SEL  IN". 


JMPSUB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

SELWT:  DATI 
MOVB 
SHR 
JMPBO 
DECR 
JMPZ 
JMP 

SELERR:  ERROR 


CLROUT 

OPLOUT 

TORI 

HLDOUT 

TORO 

SELOUT^HLDOUT 

TORO 

200 

AC1 

TAGIN0,6R 

ACO 


SELERR^I 

AC1 

.♦2 

SELWT 

TST,"SEL  IN"  DID  NOT  RE 
<DIAG  DID  A  MICROBUS  INIT  THEN  SET  "OPL 
AND  "SEL  OUT"  WITH  NO  ADDRESS  REQUESTED, 
NO  DEVICE  SHOULD  HAVE  STOPPED  "SEL  OUT" 


ERLOOP  TST 


CLEAR  ALL  TAG  OUT  LINES 
SET  "OPL  OUT" 

SET  "HLD  OUT" 

SET  "SEL  OUT" 

SET  WAIT  COUNT 

READ  TAG  IN  REG  0 
SAVE  IT  IN  ACO 
RIGHT  ADJ  "SEL  IN" 
JUMP  IF  IT  SET 
DEC  WAIT  COUNT 
JUMP  IF  TIMED  OUT 
ELSE,  KEEP  WAITING 
TURN, • 
0UT'',""HLD  OUT", 

PROPAGATION. > 

*SALL 


SET  MASK  FOR  "SEL  IN" 

CHECK  THAT  ONLV  "SEL  IN"  SET 

JUMP  IT  YES 


LDMEM   SELIN 

OSM     ACO 

JMPZ     .+2  .-w;..  .. 

ERRORM  TST,MORE  THAN  JUST  "SEL  IN"  SET,\ 
<DIAG  DID  A  MICROBUS  INIT  THEN  SET  't)PL  OUT",  "HLD  OUT", 
AND  "SEL  OUT"  WITH  NO  ADDRESS  REQUESTED> 


ERLOOP  TST 


REPEAT  TST 


'^SALL 


)3 
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SEQ  0166 


793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

80A 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

S33 

834 

835 

836 

837 

638 

839 

840 

841 

846 
847 


000354 
000355 

000356 


0  002005  0  1  0  005 
0  116045  4  7  0045 


000356 
000357 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000400 
000401 
000402 
000403 
000404 


0  117727  4 
0  002200  0 
0  C64071  3 
0  002000  0 
0  064231  3 
0  002020  0 
0  064051  3 
0  002030  0 
0  064051  3 
0  002032  0 
0  064051  3 
0  002200  0 
G  J72031  3 
0  022004  1 
0  110400  4 
0  072027  3 
0  114400  4 
0  100373  4 
0  032005  1 
0  002360  Q 
0  072013  3 
0  040017  2 
0  114406  4 


7  1727 

1  0  200 

2  0  03  11 

1  0  000 

2  0  11  11 

1  0  020 

2  0  02  11 

1  0  030 

2  0  02  11 

1  0  032 

2  0  02  11 
1  0  200 

5  0  01  11 
1  0  00  04 

4  0400 

5  0  01  07 

6  0400 

0  0373 

5  0  00  05 

1  0  360 

5  0  00  13 
0  0  00  17 

6  0406 


000405  0  116104  4  7  0104 


000406 
000407 
000410 
000411 
000412 
000413 
000414 
000415 


0  002100  0  1 
0  116145  4  7 
0  114356  4  6 
0  032004  1  5 
0  040017  2  0 
0  114415  4  6 
0  100416  4  0 
0  116104  4  7 


0  100 
0145 
0356 
0  00  04 
0  00  " 
0415 
0416 
0104 


17 


TEST    5. TEST  "OPL  IN"  RESPONSE  TO  SELECTION  SEQUENCE 

;♦  MCDXD  *  TEST  5  ♦    TEST  "OPL  IN"  RESPONSE  TO  SELECTION  SEQUENCE 
•♦*♦♦♦»♦* t ♦♦♦♦♦♦****»♦» t *»♦♦*♦♦ ♦♦******t** *♦**♦*#*♦♦*♦ *♦*♦*»♦** *♦♦♦♦♦♦♦♦ 

SALL 


TST5:   SALL 

;*TEST  THAT  THE  CONTROLLER  RESPONDS  WITH  "QPL  IN"  TO  AN  INITIAL  SELECTION  SEQUENCE 


;*CLEAR  ALL  TAG  OUT  LINES. 

;*SET  'lOPL  OUT". 

;*PUT  DEVICE  ADDRESS  OF  0  ON  BUS  OUT  LINES. 

;*SET  "ADR  OUT",  "HLt  OUT",  THEN  "SEL  OJT". 

.-♦CHECK  FOR  SOME  RESPONSE  ON  TAG  IN  LINES. 


JMPSUB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 
OPLWT:  DATI 

JMPB7 

DECR 

JMP2 

JMP 
TA6SET:  DATI 

LDBR 

LANDBR 

OSM 

JMPZ 

ERRORM 
SELECTION  SEQUENCE> 

ERLOOP  TST 


CLROUT 

OPLOUT 

TORI 

0 

BORLO 

ADROUT 

TORO 

HLDOUT ♦ADROUT 

TORO 
SELOUT+HLDOUT^ADROUT 

TORO 

200 

AC1 

TAGINO.BR 

TAGSET 

ACl 

.♦2 

OPLWT 

TAGIN1,AC0 

360 

ACO 

ACQ 

.♦2 


CLEAR  ALL  TAG  OUT  LINES 
SET  "OPL  OUT" 

PUT  ZERO  DEV  ADDR  ON  BUS  OUT 

SET  "ADDR  OUT 

SET  "HLD  OUT" 

SET  "SEL  OUT" 

SET  WAIT  COUNT 

READ  TAG  IN  REG  0 
JUMP  IF  "OPL  IN"  SET 
DEC  LOOP  CNT 
JUMP  IF  TURNED  OUT 
ELSE.  KEEP  WAITING 
READ  TAG  IN  REG  1 

CLEAR  SP  ADDR  BITS 

CHECK  FOR  ZEROS 

JUMP  IF  ALL  BITS  CLEARED 


TST.<SOME  "TA6IN1"  TAG  IN  LINES  SET  IN  RESPONSE  TO  INITIAL 

'^SALL 


DATI 

OSM 

JMPZ 

JMP 

ERROR 


TAGINO.ACO 
ACO 

.♦2 


READ  TAG  IN  REG  0 
CHECK  FOR  ZEROS 
JUMP  IF  ALL  BITS  CLEARED 
ELSE.  CHECK  BITS  SET 


TST. SELECTION  SEQUENCE  RESULTED  IN  NO  RESPONSE  ON  TAG  IN  LINES 


ERLOOP  TST 


•SALL 
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SEQ  0167 


8A8 
849 

850 

m 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 


000416  0  002001  0  1  0  001 

000417  0  116141  4  7  0141 
000420  0  114356  4  6  0356 


000421  0  002004  0  1  0  004 

000422  0  070013  3  4  0  00  13 

000423  0  002200  0  1  0  200 

000424  0  072031  3  5  0  01  11 

000425  0  050034  2  4  0  01  14 

000426  0  002000  0  1  0  000 

000427  0  072031  3  5  0  01  11 

000430  0  002131  0  1  0  131 

000431  0  062013  3  1  0  00  13 

000432  0  072032  3  5  0  01  12 

000433  0  114435  4  6  0435 

000434  0  116104  4  7  0104 


000435 
000436 
000437 
000440 
000441 
000442 
000443 
000444 
000445 


0  002102  0  1 
0  116145  4  7 
0  114356  4  6 
0  002202  0  1 
0  072031  3  5 
0  042034  2  1 
0  060017  3  0 
0  114446  4  6 
0  100447  4  0 


0  102 
0145 
0356 
0  202 
0  01  11 
0  01  14 
0  00  17 
0446 
0447 


000446  0  '16104  4  7  0104 


000447 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 

000460 
000461 


0  002103  0 
0  116145  4 
0  114356  4 
0  002004  0 
0  072031  3 
0  052033  2 
0  002002  0 


0  062034 
0  060017 
0  114462 
0  100463 


3 

3 

4 
4 


1 
7 
6 
1 
5 
5 
1 
1 
0 
6 
0 


0  103 

0145 

0356 

0  004 
01   11 
01   13 
002 
01  14 
00  17 

0462 

0463 


0 
0 
0 
0 
0 


000462  0  116104  4  7   0104 


000463 
000464 
000465 
000466 
000467 


0  002104  0  1 

0  116145  4  7 

0  114356  4  6 

0  040017  2  0 

0  114471  4  6 


0  104 
0145 
0356 
0  00  17 
0471 


;»CHECK  THAT  NC  TAG  IN  LINES  GOT  SET  OTHER  THEN  "SEL  IH"  OR  'lOPL  IN". 


LDBR 

LANDS 

LDBR 

NOVB 

LORH 

LDBR 

novB 

LDBR 
LANDB 
LORCBR 
J«PZ 
ERRORS 
SET  IN  RESPONSE 


;SET  '^R   IN"  HASK 

;GET  ACTUAL  STATE  OF   '^TR   IN"  IN  HEH 

;SET  "OPL  IN"  MASK 


;SET  EXPECTED  DATA  yiTH  "OPL  IN"  SET 
.SETUP  A  ZERO  REG 


MTRIN 

ACO,HEH 

OPL  IN 

AC1 

AC1,HEH 

0 

«K0INIADRIN!T0H0UTISTAIN  ;CHECK  FOR  WRONG  TAG  LINES  SET 

ACO.BR  .-CLEAR  ALL  BUT  WRONG  BITS 

AC1  ; COMPLEMENT  BR 

.♦2  ;JU«P  IF  ALL  WRONG  BITS  ARE  CLEARED 

TST.<SO«E  "TA6IN0"  TAG  IN  LINES.  OTHER  THAN  "OPL  IN"  OR  "SEL  IN". 

TO  INITIAL  SELECTION  SEOUENCE> 


ERLOOP  TST 


LDBR  OPLIN^SELIN 

NOVB  AC1 

LORM  AC1.br 

0S6  ACO 

J«PZ  .^2 

J«P  .♦2 


•SALL 


ERRORH  TST.<BOTH  "OPL  IN  AND 
TO  INITIAL  SELECTION  SEQUENCE> 

ERLOOP  TST 


.-SET  "OPL  IN"  AND  "SEL  IN"  MASK 

SET  TEST  DATA  NASK 
CHECK  IF  BOTH  ARE  SET 
;JU«P  IF  THEY  DfD 
:ELSE,  OKAY 
•Sk  in'*  set  SIMULTANEOUSLY  IN  RESPONSE 


LDBR 

MOVB 

LANDMR 

LDBR 

LORB 

OSB 

JRPZ 

JHP 

ERRORM 


HTRIN 
AC1 
AC1 
SELIN 

aci.br 

ACO 
.♦2 
.^2 


•SALL 


;SET  'WTR  IN"  MASK 

.-GET  ACTUAL  STATE  OF  '^TR  IN"  IN  AC1 

;SET  HASK  OF  "SEL  IN" 

.-SET  TEST  DATA  MASK 

'COMPARE 

;JUHP  IF  "SEL  IN"  IS  SET.  SHOULDN'T  BE 

.ELSE.  OKAY 


TST.<CONTRgL  UNIT  RESPONDED  WITH  "SEL  IN"  INSTEAD  OF  'lOPL  IN 

•SALL 


DURING  INITIAL  SELECTION  SEOUENCE> 
ERLOOP  TST 


000470  0  116104  4  7   0104 


OSH     ACO  .-CHECK  FOR  'tlPL  IN"  PLUS  ACTUAL  STATE  OF  '^TR  IN" 

jm*I  .♦2  ;JU«P  IF  OKAY 

ERRORS  TST.<CU  RESPONDED  WITH  '^TR  IN"  INSTEAD  Of  •t)PL  IN" 
DURING  INITIAL  SELECTION  SEQUENCE> 
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SEO  0168 


903 
904 

905  000471 

906  000472 

907  000473 

908  000474 

909  000475 
910 


0  002105  0  1  0  105 

0  116145  4  7  0145 

0  114356  4  6  0356 

0  116173  4  7  0173 

0  114356  4  6  0356 


ERLOOP  TST 


REPEAT  TST 


*SALL 


I 
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SEQ  0169 


911 

912 

913 

91 A 

915 

916 

917 

918 

919 

920 

921 

922 

923 

92A 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

9A0 

9A1 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 


000476 
000477 

000500 


0  002006  0  1  0  006 
0  116045  4  7  0045 


000500 

000501 

000502 

000503 

000504 

000505 

000506 

000507 

000510 

000511 

000512 

000513 

000514 

000515 

000516 

000517 

000520 

000521 

000522 

000523 


0  117727  4  7 
0  002200  0  1 
0  064071  3  2 
0  002000  0  1 
0  064231  3  2 
0  002020  0  1 
0  064051  3  2 
0  002030  0  1 
0  064051  3  2 
0  002032  0  1 
0  064051  3  2 
0  002200  0  1 
G  J72031  3  5 
0  010200  0  4 
0  032004  1  5 
0  062010  3  1 
0  110525  4  4 
0  072027  3  5 
0  114524  4  6 
0  100516  4  0 


1727 
0  200 

03  11 

000 

11  II 

020 

02  11 

030 

02  11 

032 

02  11 

200 

01  11 

200 

00  04 

00  10 
0525 
0  01 
0524 
0516 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


07 


000524  0  116104  4  7  0104 


000525 
000526 
000527 


C00530 
000531 
00053? 
000533 
000534 
000535 
000536 


0  002100  0  1  0  100 
0  1^6145  4  7  0145 
0  1(4500  4  6  0500 


TEST    6, TEST  "TEST  I/O"  COMMAND 
;♦  MCDXD  *  TEST  6  *    TEST  "TEST  I/O"  COMMAND 
SALL 


TST6:   SALL 

;*TEST  THAT  THE  CONTROL  UNIT  RESPONDS  CORRECTLY  TO  THE  "TEST  I/O  COMMAND"  SEQUENCE 


;*CLEAR  ALL  TAG  OUT  LINIS. 

;*SET  "OPL  OUT". 

;*PUT  DEVICE  ADDRESS  0  ON  THE  BUS  OUT  LINES. 

;*SET  "ADR  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 

;*CHECK  THAT  "OPL  IN"  SETS. 


TIOLPl 


TIOERl 


JMPSU8  CLROUT 

LDBR  OPLOUT 

MOVB  TORI 

LDBR  0 

MOVB  BORLO 

LDBR  ADROUT 

MOVB  TORO 

LDBR  HLDOUT+ADROUT 

MOVB  TORO 

LDBR  SELOUT^HLDOUT+ADROUT 

MOVB  TORO 

LDBR  200 

MOVB  ACl 

LDMEM  OPLIN 

DATI  TA6IN0,AC0 

MOV  ACO,BR 

JMPB7  TI0ERU1 

DECR  ACl 

JMPZ  . ^2 

JMP  TIOLPl 

ERRORM  TST, CONTROL  UNIT  DID  NOT 


SELECTION  SEQUENCE 
ERLOOP  TST 


;*CLEAR  "ADR  OUT". 

.•♦CHECK  THAT  "ADR  IN"  SETS. 


CLEAR  ALL  TAG  OUT  LINES 
SET  "OPL  OUT" 

PUT  DEV  ADDR  0  ON  BUS  OUT 

SET  "ADR  OUT" 

SET  "HLD  OUT" 

SET  "SEL  OUT" 

SET  WAIT  CNT 

SET  EXPECTED  DATA 
READ  TAG  IN  BITS 

JUMP  IF  "OPL  IN"  SET 

DEC  WAIT  CNT 

JUMP  IF  TIMED  OUT 

ELSE,  KEEP  WAITING 

RESPOND  WITH  "OPL  IN"  DURING 


*SALL 


0  002012  0  1  1   012 

LDBR 

SELOUT^HLDOUT 

.•CLEAR  "ADR  OUT" 

0  064051  3  2  0  0?  11 

MOVB 

TORO 

0  002200  0  1  0  200 

LDBR 

200 

.-SET  WAIT  CNT 

0  072031  3  5  0  01  11 

MOVB 

ACl 

0  010220  0  4  0  220 

LDMEM 

ADPIN^OPLIN 

;SET  EXPECTED  DATA 

0  032004  1  5  0  00  04 

TlOt P2:  DATI 

TA6IN0,AC0 

;READ  TAG  IN  BITS 

0  062010  3  1  0  00  10 

MOV 

ACCBR 

NCDXD       DX20-V100  MAGTAPE  SUBSYSTEM  MI CRODI AGNOSTIC  VERSION  0.1  MACRO  X53A(1152)   18:A1     6-Apr-85  Page  5-1 
MCDXDM    MAC  2-Jun-80  1^:00  SELECTION  SEQUENCE  MICR0DIA6N0STIC 


SEQ  0170 


966 

967 

968 

969 

970 

971 

972 

973 

97A 

975 

976 

977 

978 

979 

980 

981 

982 

983 

98A 

985 

986 

987 

988 

989 

990 

991 

992 

993 

99A 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 


000537 
000540 
0005A1 
0005A2 


0  10654A  A  3 
0  072027  3  5 
0  11A5A3  A  6 
0  100535  A  0 


05AA 
0  01 
05A3 
0535 


07 


0005A3  0  11610A  A  7  01 OA 


0005AA  0  002101  0  1  0  101 
0005A5  0  1161A5  A  7  01A5 
0005A6  0  11A500  A  6  0500 


0005A7  0  032007  1  5  0  00  07 

000550  0  010000  0  A  0  000 

000551  0  0A0O17  2  0  0  00  17 

000552  0  11A55A  A  6  055A 


000553  0  11610A  A  7  010A 


0005SA  0  002102  0  1  0  102 

000555  0  1161A5  A  7   01A5 

000556  0  11A500  A  6  G500 

000557  0  032000  1  5  0  00  00 

000560  0  062010  3  1  0  00  10 

000561  0  O^AOOO  0  6  0  000 

000562  0  10A56A  A  2  0564 

000563  0  100565  A  0  0565 


00056A  C  11610A  A  7  01 OA 


000565 
000566 
000567 


0  002103  0 
0  1161A5  A 
0  11A500  A 


1  0  103 
7  01A5 
6  0500 


000570 
000571 
000572 
000573 
00057A 
000573 
000576 
000577 
000600 
000601 
000602 
000603 


0  002000  0 
0  064231  3 
0  002013  0 
0  06A051  3 
0  002200  0 
0  072031  3 
0  010200  0 
0  03200A  1 
0  062010  3 
0  106603  A 
0  100607  A 
0  072027   3 


1 
2 
1 
2 
1 
5 
4 
5 
1 
3 
0 


000 
11  11 
013 
02  11 
200 
01  11 
200 
00  OA 
00  10 


0603 
0607 


JMPBA   7I0ER2O  ;JUMP  IF  SET 

DECR    AC1 
JMPZ    .^2 

TI0ER2:  ERRORM  TST, CONTROL  UNIT  DID  NOT  RESPOND  WITH  "ADR  IN"  DURING 
SELECTION  SEQUENCE 


ERLOOP  TST 


'SALL 


;*CHECK  THAT  BUS  IN  LINES  CC  'TAIN  ADDRESS  REQUESTED(O). 


DATI    CBILO,AC0 

LDMEM   0 

OSM     ACO 

JMPZ    a2 

FRRORM  TST  * 

<CONTROL  UNIT  RESPONDED- WITH  "ADR  IN"  DURING  SELECTION  SEQUENCE  BUT 
BUS  IN  LINES  DID  NOT  EQUAL  ADDRESS  REQUESTED> 


READ  BUS  IN  LINES 

SET  EXPECTED  DATA 

COMPARE 

JUMP  IF  BUS  IN  LIWES=0 


ERLOOP  TST 


'SALL 


;*CHFCK  THAT  'BUSO  PE  FLAG"  IS  NOT  SET. 

DATI    CSRO.ACO 

MOV     ACO, BR 

SHR 

JMPBO   .+2 

JMP     .+2 

ERRORM  TST,\ 

<CONTROL  UNIT  CORRECTCY  RETURNED  ADDRESS  ON  BUS  IN  LINES  BUT 
"BUSO  PARITY  ERROR"  WAS  DETECTED> 


;READ  RE60 

;RIGHT  ADJ  'BUSO  SE  FLAG" 
;JUMP  IF  PARITY  ERROR 
;ELSE,  OKAY 


ERLOOP  TST 


'SALL 


;*PUT  TEST  I-O  COMMAND  (0)  ON  BUS  OUT  LINES. 

;*SET  "CMD  OUT". 

;*CHECK  THAT  "ADR  IN"  CLEARS. 


5  0  01  07 


LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 
TI0LP3:  DATI 
MOV 
JMPBA 
JMP 
DECR 


0 

BORLO 

CMDOUT+HLDOUT+SELOUT 

TORO 

200 

AC1 

OPLIN 

TAGINO,ACO 

ACO,BR 

a2 

TI0ER3+1 

AC1 


;PUT  TEST  I/O  CMD  ON  BUS  LINES 

;SET  "CMD  OUT" 

;SET  WAIT  CNT 

;SET  EXPECTED  TAG  IN 
;READ  TAG  IN  LI.'JES 

;JUMP  IF  "ADR  IN"  STILL  SET 
;ELSE,  IT  DROPPED 
;DEC  WAIT  CNT 
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SEQ  0171 


1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 


000604  0  114606  4  6  0606 

000605  0  100577  4  0  0577 


000606  0  116104  4  7  0104 


000607  0  002104  0  1  0  104 

000610  0  116145  4  7  0145 

000611  0  114500  4  6  0500 


000612 
00061 3 
000614 
00061 5 
000616 
000617 
000620 
000621 
000622 
000623 
000624 


0  002012  0  1 
0  064051  3  2 
0  002200  0  1 
0  072031  3  5 
0  010201  0  4 
0  032004  1 
0  062010  3  1 
0  104626  4  2 
0  072027  3  5 
0  114625  4  6 
0  100617  4  0 


0 
0 
0 
0 
0 


012 
02  11 
200 
01  11 
201 


5  0  00  04 
0  00  10 
0626 
0  01  07 
0625 
0617 


000625  0  116104  4  7  0104 


000626 
000627 
000630 


000631 
000632 
000633 
000634 
000635 
000636 
000637 
000640 
000641 
000642 
000643 
000644 


0  002105  0  1  0  105 
0  116145  4  7  0145 
0  ! 14500  4  6  0500 


0  002212  0 
0  064051  3 
0  002200  0 
0  072031  3 
0  010200  0 
0  032004  1 
0  062010  3 
0  104642  4 
0  100646  4 
0  072027  3 
0  114645  4 
0  100636  4 


1 
2 
1 
5 
4 
5 
1 
2 
0 
5 
6 


0 
0 
0 
0 
0 
0 
0 


212 

02  11 

200 

01  11 

200 

00  04 

00  10 
0642 
0646 
0  01  07 
0645 


0  0636 


000645  0  116104  4  7  0104 


000646  0  002106  0  1  0  106 

000647  0  116145  4  7  0145 
000650  0  114500  4  6  0500 


;JUMP  IF  TIMED  OUT 
;ELSE,  KEEP  WAITING 


JMP2    .+2 

JMP    TI0LP3 
TTOFR"?*  FRRQRM  TST  * 
<C0NTr6l  UNIT  DID  NOT'RESPOND  TO  "CMD  OUT"  BY  DROPPING  "ADR  IN"  DURING 
SELECTION  SEQUENCE.  COMMAND  WAS  "TEST  I-0".> 


ERLOOP  TST 


*SALL 


"•• 


;*CLEAR  "CMD  OUT'  .  . 
;*CHECK  THAT  "STA  IN"  SETS. 


LD6R 
MOVB 
LDBR 
MOVB 
LDMEM 

TI0LP4:  DATI 
MOV 
JMPBO 
DECR 
JMPZ 
JMP 

TI0ER4:  ERRORM 


HLDOUT+SELOUT 

TORO 

200 

ACl 

OPLIN+STAIN 

TAGINO,ACO 

ACO.BR 

TI0ER4+1 

ACl 

.+2 

TI0LP4 

TST,* 


; CLEAR  "CMD  OUT" 

;SET  WAIT  CNT. 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 

;JUMP  IF  "STA  IN"  SET 
;DEC  WAIT  CNT 
;JUMP  IF  TIMED  OUT 
;ELSE,  KEEP  WAITING 


CONTROL  UNIT  DID  NOT  RESPOND  WITH  "STA  IN"  TO  "TEST  I-O"  COMMAND 
ERLOOP  TST  ''SALL 


;*SET  ''SRy   OUT". 

.-♦CHECK  THAT  "STA  IN"  CLEARS. 


LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 

TI0LP5:  DATI 
MOV 
JMPBO 
JMP 
DECR 
JMPZ 
JMP 

TI0ER5:  ERRORM 


SRVOUT^HLDOUT+SELOUT 

TORO 

200 

ACl 

OPLIN 

TAGINO,ACO 

ACO.BR 

.^2 

TI0ER5+1 

ACl 

.+2 

TI0LP5 


;SET  "SRV  OUT" 

;SET  WAIT  CNT 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 

;JUMP  IF  STILL  SET 
;ELSE.  CLEARED  OKAY 
;DEC  WAIT  CNT 
;JUMP  IF  TIMED  OUT 
;ELSE.  KEEP 


.*wu.w    u....v.«.    TST  * 

<C0NTr6l  unit  DID  n6t""RESP0ND  to  "SRV  OUT"  BY  DROPPING  "STA  IN" 
DURING  "TEST  I-O"  COMMAND> 


ERLOOP  TST 


'SALL 


;*CLEAR  "SRV  OUT".  "HLD  OUT".  THEN  "SEL  OUT". 


NCDXD   DX20-V100  MAGTAPE  SUBSYSTEM  MICR0DIA6N0STIC  VERSION  0.1  MACRO J53A(1 152)  18:41 
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SEQ  0172 


1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 


;*  CHECK  THAT  "OPL  IN"  CLEARS. 


000651 

000652 

000653 

000654 

000655 

000656 

000657 

000660 

000661 

000662 

000663 

000664 

000665 

000666 

000667 


0  002012  0  1 
0  064051  3  2 
0  002002  0  1 
0  064051  3  2 
0  002000  0  1 
0  064051  3  2 
0  002200  0  1 
0  072031  3  5 
0  010000  0  4 
0  032004  1  5 
0  040017  2  0 
0  114671  4  6 
0  072027  3  5 
0  114670  4  6 
0  100662  4  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


012 

02  11 

002 

02  11 

000 

02  11 

200 

01  11 

000 

00  04 

00  17 
0671 
0  01  07 
0670 
0662 


LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 
TI0LP6:  DATI 
OSM 
JMPZ 
DECR 
JMPZ 
JMP 


HLDOUT+SELOUT 

TORO 

SELOUT 

TORO 

0 

TORO 

200 

AC1 

0 

TAGIN0,AC0 

ACO 

TI0ER6*1 

AC1 

.+2 

TI0LP6 


•  I 


•  • 


000670  0  116104  4  7  0104 


000671  0  002107  0  1  0  107 

000672  0  116145  4  7  0145 

000673  0  114500  4  6  0500 

000674  0  116173  4  7  0173 

000675  0  114500  4  6  0500 


TI0ER6:  ERRORM  TST,* 
CONTROL  UNIT  DID  NOT  DROP  ALL 

ERLOOP  TST 


REPEAT  TST 


; CLEAR  "SRV  OUT 

.•CLEAR  "HLD  OUT 

; CLEAR  "SEL  OUT 

;SET  WAIT  CNT 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 
; CHECK  FOR  ALL  ZEROS 
;JUMP  IF  ZEROS 
;DEC  WAIT  CNT 
;JUMP  IF  TIMED  OUT 
;ELSE.  KEEP  WAITING 

TAG  IN  LINES  AFTER  "TEST  I-O"  COMMAND 

''SALL 


nCDXD 
nCDXDM 

1103 
110A 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
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SEQ  0173 


;*GET  DRIVE  ADDRESS  AND  "TESTING-ONE-UNIT"  FLAG  FROM  HOST. 


?^ 


00067 

0006" 

000700 

)00701 

)00702 

300703 

00070A 

000705 

000706 

000707 

000710 

00071 1 

00071 2 


0 
0 
0 
0 


)6371  3  3  0 
)2002  0  1  0 


0  002011 
0  066371 
002002 
064051 
002200 
116076 
0  116003 
0  116033 
0  001001  0 
0  131400  5 
0  130001  5 
0  002033  0 
0  066371  3 


0 
4 
4 
4 


1 
3 
1 
2 
1 
7 
7 
7 
0 
4 
4 
1 
3 


Oil 

17  11 

002 
0  02  11 
0  200 
0076 
0003 
0033 

2  001 

3  00  00 
0  00  01 
0  033 

0  17  11 


NXTDR: 


LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

JMPSUB 

JMPSUB 

JMPSUB 

LDMAR 

DAT  I 

DAT  I 

LDBR 

MOVB 


11 
|OSEL 

MPECR 

ATA 

SETATA 

UAI TGO 

0FF60 

DRVADR 

MPGP10,MEM,I 

MPGPIKMEM 

33 

ICSEL 


.•SELECT  MASSBUS  INTERFACE 

;SET  CODE  FOR  HOST 

;SET  ATTENTION 

;WAIT  FOR  GO  TO  SET 

:TURN  GO  OFF  AGAIN 

;SET  MEM  STORAGE  ADDR 

: STORE  DRIVE  ADDRESS 

•STORE  TESTING  ONE  UNIT  FLAG 

.•SELECT  CHANNEL  BUS  INTERFACE 


^1 
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SEQ  01 74 


1119 

1120 

1121 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

113A 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 


000713  0  002007  0  1  0  007 

000714  0  116045  4  7  0045 

00071 5 


00071 5 

000716 

000717 

000720 

000721 

000722 

000723 

000724 

000725 

000726 

000727 

000730 

000731 

000732 

000733 

000734 

000735 

000736 

000737 

000740 

000741 

000742 

000743 

000744 

000745 

000746 

000747 

000750 

000751 

000752 

000753 

000754 

000755 

000756 

000757 

000760 


0  001003  0 
0  010000  0 
0  002011  0 
0  066371  3 
0  002001  0 
0  064351  3 
0  046051  2 
0  002033  0 
0  066371  3 
0  117727  4 
0  002200  0 
0  J64071  3 
0  001001  0 
0  044231  2 
0  001000  0 
0  002020  0 
0  064051  3 
0  002030  0 
0  064051  3 
0  002032  0 
0  064051  3 
0  002200  0 
0  072031  3 
0  010200  0 
0  032004  1 
0  062010  3 
0  110755  4 
0  014000  0 
0  104755  4 
0  072027  3 
0  114755  4 
0  100745  4 
0  062010  3 
0  014000  0 
0  104761  4 
0  100765  4 


2 
0 
0 
0 
0 
0 
0 
0 
0 


003 
000 
Oil 
17  11 
001 

16  11 
02  11 
033 

17  11 


1727 


0  200 
0  03  11 
2  001 
0  11  11 
2  000 
0  020 
0  02  11 
0  030 
0  02  11 
0  032 
0  02  11 
0  200 
0  01  11 
0  200 

5  0  00  04 

1  0  00  10 

4  0755 

6  0  000 

2  0755 

5  0  01  07 

6  0755 

0  0745 

1  0  00  10 
6  0  000 

2  0761 
0  0765 


TEST    7, TEST  "SENSE"  COMMAND 
;♦  MCDXD  *  TEST  7  *    TEST  "SENSE"  COMMAND 
SALL 


TST7:   SALL 

;*TEST  THAT  THE  CONTROL  UNIT  RESPONDS  CORRECTLY  TO  THE  "SENSE  COMMAND"  SEQUENCE 
;*READ  AND  CHECK  THE  24  SENSE  BYTES. 


;*CLEAR  ALL  TAG  OUT  LINES. 
;*SET  "OPL  OUT". 

;*PUT  DRIVE  ADDRESS  ON  THE  BUS  OUT  LINES.,, 
♦SET  "ADR  OUT",  "HLD  OUT",  THEN  "SEL  OUT". 
;♦  CHECK  THAT  "OPL  IN"  SETS. 


LDMAR 

LDMEM 

LD6R 

MOVB 

LD6R 

MOVB 

MOVMEM 

LDBR 

MOVB 

JMPSU6 

LDBR 

MOVB 

LDMAR 

MOVMEM 

LDMAR 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDBR 

MOVB 

LDMEM 

SNSLPl:  DATI 
MOV 
JMPB7 
SHR 
JMPBO 
DECR 
JMPZ 
JMP 

SNSSET:  MOV 
SHR 
JMPBO 
JMP 


SBYTNM 

0 

11 

lOSEL 

1 

MPGP6 

MP6P12 

33 

lOSEL 

CLROUT 

OPLOUT 

TORI 

DRVADR 

60RL0 

0 

ADROUT 

TORO 

HLDOUT+ADROUT 

TORO 
SELOUTtHLDOUT^ADROUT 

TORO 

200 

AC1 

OPLIN 

TAGINO,ACO 

ACO,BR 

SNSSET 

SNSSET 

ACl 

a2 

SNSLP1 

ACO,BR 

a2 
NSELIN 


SET  MEM  TO  SENSE  BYTE  NUMBER  ADDR 

INIT  TO  ZERO 

SELECT  MASSBUS  INTERFACE 

SET  ADDITIONAL  PNT  ROUTINE  NUMBER 

STORE  SENSE  BYTE  NUMBER  FOR  PRINTOUT 
SELECT  CHANNEL  BUS  INTERFACE 


CLEAR  ALL  TAG  OUT  LINES 

SET  "OPL  our 


>«  • 


SET  ADDR  OF  DRIVE  ADDR 

RESET  MAR 
SET  "ADR  OUT" 

SET  "HLD  OUT" 

SET  "SEL  OUT" 

SET  WAIT  CNT 

SET  EXPECTED  DATA 
READ  TAG  IN  BITS 

JUMP  IF  "OPL  IN"  SET 
RIGHT  ADJUST  "SEL  IN" 
JUMP  IF  SET 
DEC  WAIT  CNT 
JUMP  IF  TIMED  OUT 
ELSE.  KEEP  WAITING 
PUT  TAG  IN  LINES  IN  BR 
RIGHT  ADJUST  "SEL  IN" 
JUMP  IF  IT  SET 
ELSE,  CHECK  FOR  "OPL  IN 


•  • 
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SEQ  0175 


117A 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 


000761  0  001002  0  0  2  002 

000762  0  040011  2  0  0  00  11 

000763  0  114765  4  6  0765 

000764  0  100676  4  0  0676 

000765  0  062010  3  1  0  00  10 

000766  0  110770  4  4  0770 

000767  0  116104  4  7  0104 


000770  0  002100  0  1  0  100 

000771  0  116145  4  7  0145 

000772  0  114715  4  6  0715 


000773  0  002012  0  1  0  012 

000774  0  064051  3  2  0  02  11 

000775  0  002200  0  1  0  200 

000776  0  072031  3  5  0  01  11 

000777  0  001000  0  0  2  000 

001000  0  010220  0  4  0  220 

001001  0  032004 

001002  0  062010 

001003  0  107010  4 

001004  0  072027  3 

001005  0  115007  4  6  1007 

001006  0  101001  4  0  1001 


1  5  0  00  04 

3  1  0  00  10 

:  1010 

5  0  01  07 


001007    0  116104  4  7  0104 


001010  0  002101  0  1  0  101 

001011  0  116145  4  7  0145 

001012  0  114715  4  6  0715 


001013  0  032007  1  5  0  00  07 

001014  0  001001  0  0  2  001 

001015  0  040017  2  0  0  00  17 

001016  0  115020  4  6  1020 


001017  0  116104  4  7  0104 


001020  0  002102  0  1  0  102 

001021  0  116145  4  7  0145 

001022  0  114715  4  6  0715 

001023  0  001000  0  0  2  000 

001024  0  010000  0  4  0  000 

001025  0  032000  1  5  0  00  00 

001026  0  062010  3  1  0  00  10 

001027  0  014000  0  6  0  000 


LDMAR 
MOVMEM 
JMPZ 
JMP 

NSELIN:  MOV 

JMPB7 
ERRORM 

SELECTION  SEQUENCE 


ONEUNT 

NXTDR 

ACO.BR 

.+2 

TST, CONTROL  UNIT  DID  NOT 


ERLOOP  TST 


.•♦CLEAR  "ADR  OUT". 

;*CHECK  THAT  "ADR  IN"  SETS. 


GET  FLAG  ADDR 

CHECK  IF  ALL  ONES 

JUMP  IF  TESTING  ONE  UNIT 

ELSE,  GO  ASK  FOR  NEXT  DRIVE 

RESTORE  TAG  IN  LINES 

JUMP  IF  "OPL  IN*^"  SET 

RESPOND  WITH  "OPL  IN"  DURING  ^ 


^SALL 


LDBR 

MOVB 

LDBR 

MOVB 

LDMAR 

LDMEM 

SNSLP2:  DATI 
MOV 
JMPB4 
DECR 
JMPZ 
JMP 

SNSER2:  ERRORM 


; CLEAR  "ADR  OUT' 
;SET  WAIT  CNT 


SELECTION  SEQUENCE 
ERLOOP  TST 


SELOUT+HLDOUT 

TORO 

200 

ACl 

0 

ADRIN+OPLIN 

TAGINO.ACO 

ACO.BR 

SNSER2^1 

ACl 

.+2 

SNSLP2 

TST. CONTROL  UNIT  DID  NOT  RESPOND  WITH  "ADR  IN"  DURING 


.-RESET  MAR 

;SET  EXPECTED  DATA 

;READ  TAG  IN  BITS 

;JUMP  IF  SET 


^SALL 


.-•CHECK  THAT  BUS  IN  LINES  CONTAIN  ADDRESS  REQUESTED (0) . 


DATI    CBILO.ACO 

LDMAR   DRVADR 

OSM    ACO 

JMPZ    .+2 

ERRORM  TST.^ 
<CONTROL  UNIT  RESPONDED  WITH  "ADR  IN"  DURING  SELECTION  SEQUENCE  BUT 
BUS  IN  LINES  DID  NOT  EQUAL  ADDRESS  REQUESTED> 


READ  BUS  IN  LINES 

SET  EXPECTED  DATA  ADDR 

COMPARE 

JUMP  IF  BUS  IN  LINES=0 


ERLOOP  TST 


.-♦CHECK  THAT  "BUSO  PE  FLAG"  IS  NOT  SET. 
LDMAR       0 
LDMEM      0 
DATI         CSRO.ACO 
MOV  ACO.BR 

SHR 


'SALL 


.•RESET  MAR 

;SET  EXPECTED  DATA 

.•READ  REGO 

.•RIGHT  ADJ  'BUSO  SE  FLAG" 
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SEQ  0176 


1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

12A0 

12A1 

12A2 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 


001030  0  105032  4  2  1032 

001031  0  101033  4  0  1033 


001032  0  116104  4  7  0104 


001033 
001034 
001035 


0  002103  0  1  0  103 
0  116145  4  7  0145 
0  114715  4  6  0715 


001036 
001037 
001040 
001041 
001042 
001043 
001044 
001045 
001046 
001047 
001050 
001051 
001052 
001053 


0  002004  0  1  0  004 
0  064231  3  2  0  11  11 
0  002013  0  1  0  013 
0  064051  3  2  0  02  11 
0  002200  0  1  0  200 
0  072031  3  5  0  01  11 
0  01 0200  0  4  0  200 
0  032004  1 
0  062010  3  1 
0  107051  4  3 
0  101055  4  0 
0  072027  3  5 
0  115054  4  6 
0  101045  4  0 


5  0  00  04 
0  00  10 
1051 
1055 
0  01 
1054 
1045 


07 


001054  0  '16104  4  7  0104 


001055 
001056 
001057 


001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001070 
001071 
001072 


0  002104  0  1  0  104 
0  116145  4  7  0145 
0  114715  4  6  0715 


0  002012  0  1 
0  064051  3  2 
0  002200  0  1 
0  072031  ?  5 
0  010201  C  4 
0  032004  1  5 
0  062010  3  1 
0  105074  4  2 
0  072027  3  5 
0  115073  4  6 
0  101065  4  0 


0 
0 
0 
0 
0 
0 
0 


012 

02  11 

200 

01  11 

201 

00  04 

00  10 
1074 
0  01  07 
1073 
1065 


001073  0  116104  4  7  0104 


001074  0  002105  0  1  0  105 


;JUMP  IF  PARITY  ERROR 
;ELSE,  OKAY 


JMPBO   .+2 

JMP    .^2 
cppnpM  TST  * 

<CONTROL  UNIT  CORRECTCY  RETURNED  ADDRESS  ON  BUS  IN  LINES  BUT 
•BUSO  PARITY  ERROR"  WAS  DETECTED> 


ERLOOP  TST 


^SALL 


;*PUT  SENSE  COMMAND  (0)  ON  BUS  OUT  LINES. 

;*SET  "CMD  OUT". 

;*CHECK  THAT  "ADR  IN"  CLEARS. 


LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 
SNSLP3:  DATI 
MOV 
JMPB4 
JMP 
DECR 
JMPZ 
JMP 


SENSE 

BORLO 

CMDOUT+HLDOUT+SELOUT 

TORO 

200 

AC1 

OPLIN 

TAGINO.ACO 

ACO,BR 

.+2 

SNSER3+1 

ACl 


PUT  SENSE  CMD  ON  BUS  LINES 

SET  "CMD  OUT" 

SET  WAIT  CNT 

SET  EXPECTED  TAG  IN 
READ  TAG  IN  LINES 

JUMP  IF  ^'ADR  IN"  STILL  SET 
ELSE,  IT  DROPPED 
DEC  WAIT  CNT 
JUMP  IF  TIMED  OUT 
ELSE,  KEEP  WAITING 


.+2 
SNSLP3 

^N^FR^*  FRPORM   T^T  * 

<C0NTr6l  unit  did  NOT'RESPOND  to  "CMD  OUT"  BY  DROPPING  "ADR  IN" 

DURING  SELECTION  SEQUENCE.  COMMAND  WAS  "SENSE". > 


ERLOOP  TST 


^SALL 


'*  I 


;*CLEAR  "CMD  OUT' 

;*CHECK  THAT  "STA  IN"  SETS. 

LDBR    HLDOUT^SELOUT 


1 1 


MOVB 
LDBR 
MOVB 
LDMEM 

SNSLP4:  DATI 
MOV 
JMPBO 
DECR 
JMPZ 
JMP 

SNSER4:  ERRORM 


TORO 

200 

ACl 

OPLIN^-STAIN 

TAGINO,ACO 

ACO,BR 

SNSER4^1 

ACl 

.+2 

SNSLP4 

TST,* 


CONTROL  UNIT  DID  NOT  RESPOND  WITH  "STA 
ERLOOP  TST 


.•CLEAR  "CMD  OUT 

;SET  WAIT  CNT. 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 

;JUMP  IF  "STA  IN"  SET 
;DEC  WAIT  CNT 
;JUMP  IF  TIMED  OUT 
;ELSE,  KEEP  WAITING 

IN"  TO  "SENSE"  COMMAND 

*SALL 
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SEQ  0177 


1284 

1285 

1286 

1287 

128ft 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 


001075  0  116145  4  7  0145 

001076  0  114715  4  6  0715 


001077  0  010000  0  4  0  000 

001100  0  032007  1  5  0  00  07 

001101  '^  040017  2  0  0  00  17 

001102  0  115104  4  6  1104 

001103  0  116104  4  7  0104 


001104  0  002106  0  1  0  106 

001105  0  116145  4  7  0145 

001106  0  114715  4  6  0715 

001107  0  032000  1  5  0  00  00 

001110  0  062010  3  1  0  00  10 

001111  0  014000  0  6  0  000 

001112  0  105114  4  2  1114 

001113  0  101115  4  0  1115 


001114  0  116104  4  7  0104 


001115  0  002107  0  1  0  107 

001116  0  116145  4  7  0145 

001117  0  114715  4  6  0715 


001120  0  002212  0  1  0  212 

001121  0  064051  3  2  0  02  11 

001122  0  002200  0  1  0  200 

001123  0  072031  3  5  0  01  11 

001124  0  010200  0  4  0  200 

001125  0  032004  1  5  0  00  04 

001126  0  062010  3  1  0  00  10 

001127  0  105131  4  2  1131 

001130  0  101135  4  0  1135 

001131  0  072027  3  5  0  01  07 

001132  0  115134  4  6  1134 

001133  0  101125  4  0  1125 


001134  0  116104  4  7  0104 


001135  0  002110  0  1  0  110 

001136  0  116145  4  7  0145 

001137  0  114715  4  6  0715 


001140  0  002012  0  1  0  012 


;*CHECIC  THAT  INITIAL  STATUS  IS  ZERO. 


LDMEM  0 

DATI  CBILO^ACO 

OSM  ACO 

JMP2  .^2 

CONTROL  UNIT  PRESEnIeD  NON-ZERO  INITIAL  STATUS  TO  SENSE  COMMAND 


SET  EXPECTED  DATA 
READ  INITIAL  STATUS 
CHECK  IT 
JUMP  IF  IT'S  ZERO 


ERLOOP  TST 


DATI 

MOV 

SHR 

JMPBO 

JMP 

ERRORM 


CSRO.ACO 
ACO,BR 


SALL 


.-READ  FLAG  STATUS 


.+2 

.+2 

TST  * 
<'BUSO  PE  FLAG"  SET'wTTH  RECEPTION  OF  INITIAL  STATUS 
DURING  SENSE  COMMAND> 


RIGHT  ADJUST  'BUSO  PE  FLAG" 
JUMP  IF  IT  SET 
ELSE,  OKAY 


ERLOOP  TST 


*SALL 


r»  I 


;*SET  "SRy   our  . 

;*CHECK  THAT  "STA  IN"  CLEARS. 


LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 

SNSLP5:  DATI 
MOV 
JMPBO 
JMP 
DECR 
JMPZ 
JMP 

SNSER5:  ERRORM 


SRVOUT^HLDOUT+SELOUT 

TORO 

200 

ACl 

OPLIN 

TAGINO,ACO 

ACO,BR 

.^2 

SNSER5+1 

ACl 

.+2 

SNSLP5 


;SET  "SRV  OUT" 

;SET  WAIT  CNT 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 


jump  if  "sta  in"  still  set 
else,  cleared  okay 
d::  wait  cnt 
jump  if  timed  out 
else,  keep 


TST  * 
<C0NTr6l  unit  did  n6t"RESP0ND  to  "SRV  OUT"  BY  DROPPING  "STA  IN" 
DURING  "SENSE"  COMMAND> 


ERLOOP  TST 


.•♦CLEAR  "SRV  OUT". 

.♦CHECK  THAT  "SRV  IN"  SETS. 

LDBR    HLDOUT+SELOUT 


'SALL 


.-CLEAR  "SRV  OUT' 


WCDXD 
nCDXDM 

1339 

13A0 

13A1 

13A2 

1343 

134A 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 
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SEQ  0178 


001141 
001142 
001143 
001144 
001145 
001146 
001147 
001150 
001151 
001152 
001153 
001 1 54 


0  064051 
0  002200 
0  072031 
0  010200  0 
0  032005  1 
0  002360  0 
0  072013  3 
0  062010  3 
0  111156  4 
0  072027  3 
0  115155  4 
0  101145  4 


2 
1 
5 
4 
5 
1 
5 
1 
4 
5 
6 
0 


02  11 

200 

01  11 

200 

00  05 

360 

00  13 

00  10 
1156 
0  01 
1155 
1145 


0 
0 
0 
0 
0 
0 
0 
0 


07 


001155  0  116104  4  7  0104 


001156  0  002111  0  1  0  111 

001157  0  116145  4  7  0145 
001160  0  114715  4  6  0715 


001161  0  032047  1  5  0  02  07 

001162  0  010000  0  4  0  000 

001163  0  032000  1  5  0  00  00 

001164  0  062010  3  1  0  00  10 

001165  0  014000  0  6  0  000 

001166  0  105170  4  2  1170 

001167  0  101171  4  0  1171 
001170  0  '16104  4  7  0104 


001171  0  002312  0  1  0  312 

001172  0  116145  4  7  0145 

001173  0  114715  4  6  0715 


001174  0  062050  3  1  0  02  10 

001175  0  072011  3  5  0  00  11 

001176  0  001003  0  0  2  003 

001177  0  052111  2  5  0  04  11 

001200  0  001000  0  0  2  000 

001201  0  002203  0  1  0  203 

001202  0  161100  7  0  2  04  00 

001203  0  101475  4  0  1475 

001204  0  101512  4  0  1512 

001205  0  101465  4  0  1465 

001206  0  101555  4  0  1555 

001207  0  101566  4  0  1566 

001210  0  101577  4  0  1577 

001211  0  101620  4  0  1620 

001212  0  101640  4  0  1640 

001213  0  101465  4  0  1465 


nova 

LDBR 

novB 

LDMEM 
SNSLP6:  DATI 
LDBR 
LAND6R 
MOV 
JMPB7 
DECR 
JHPZ 
JMP 
SNSER6:  ERRORM 


TORO 

200 

AC1 

SRVIN 

TAGINl.ACO 

360 

ACO 

ACO-BR 

SNSER6+1 

AC1 

.♦2 

SNSLP6 


TST  * 

<c6ntrol  unit  did  not'respond  with  "SRV 
during  sense  command> 

ERLOOP  TST 


;SET  WAIT  CNT 

;SET  EXPECTED  DATA 
:READ  TAG  IN  LINES 
;ZERO  SP  ADR  BITS 


JUMP  IF  "SRV  IN"  SET 
DEC  WAIT  CNT 
JUMP  IF  TIMED  OUT 
ELSE,  KEEP  WAITING 

IN"  AFTER  INITIAL  STATUS 


*SALL 


;*READ  AND  SAVE  THE  SENSE  BYTE. 

.•♦CHECK  THAT  'TBUSO  PE  FLAG"  DID  NOT  SET. 


;READ  SENSE  BYTE 
;SET  EXPECTED 
;READ  FLAG  STATUS 


NXTSB:  DATI  CBIL0,AC2 

LDMEM  0 

DATI  CSRO^ACO 

SHR  ^^^'^^  ;RIGHT  ADJUST  'BUSO  PE  FLAG" 

JMPBO  .^2  ;JUMP  IF  IT  SET 

JMP  .^2  ;ELSE,   OKAY 

ERRORM  TST/BUSO  PE  FLAG"  SET  WITH  RECEPTION  OF   SENSE  BYTE.,PNT 


ERLOOP     TST 


;*G0  PROCESS  THE  SENSE  BYTE 


^SALL 


SB Y TAB: 


MOV 

AC2.br 

MOVB 

ACO 

LDMAR 

sbytnm 

MOVMEM 

AC4 

LDMAR 

0 

LDBR 

SBYTAB&377 

JMP 

aAC4^BR,S6YTAB 

JMP 

S8YTE0 

JMP 

SBYTE1 

JMP 

SBYTEZ 

JMP 

SBYTE3 

JMP 

SBYTE4 

JMP 

S8YTE5 

JMP 

SBYTE6 

JMP 

SBYTE7 

JMP 

SBYTEZ 

SAVE  SENSE  BYTE  IN  ACO 

SET  ADDR  OF  SENSE  BYTE  NUMBER 

GET  SENSE  BYTE  NUMBER 

RESET  MAR 

SET  BR  TO  BEGIN  OF  DISPATCH  TABLE 

JUMP  INTO  DISPATCH  TABLE 


BYTE  0 

BYTE  1 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


2 
3 

4 
5 
6 
7 


BYTE  8 
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SEO  0179 


1594 

1395 

1396 

1397 

1398 

1399 

1AO0 

1401 

1402 

1403 

1404 

1405 

1406 

?407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 


001214 
001215 
001216 
001217 
001220 
001221 
001222 
001223 
001224 
001225 
001226 
001227 
001230 
001231 
001232 


0  101651 
0  101465 
0  101465 
0  101465 
0  101233 
0  101233 
0  101233 
0  101233 
0  101233 
0  101662 
0  101465 
0  101233 
0  101465 
0  101465 
0  101673 


4 
4 
4 
4 

4 

« 

H 

4 
4 
4 
4 
4 
4 
4 
4 
4 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


1651 
1465 
1465 
1465 
1233 
1233 
1233 
1233 
1233 
1662 
1465 
1233 
1465 
1465 
1673 


JHP 
J«P 
J«P 
JW> 
J«P 
J«P 
J«P 
J«P 
J«P 
J«P 
JW> 
J«P 
JHP 
J«P 


SBYTE9 
SBYTE2 
SBYTE2 
SBYTE2 
SBYTER 
SBYTER 
SBYTER 
SBYTER 
SBYTER 
SBYT18 
SBYTE2 
SBYTER 
SBYTE2 
SBYTE2 
SBYT23 


;*ST0RE  SENSE  BYTE  AND  SET  "SRV  OUT' 
;*CHECK  THAT  "SRV  IN"  CLEARS. 


001233 

001234 

001235 

001236 

001237 

001240 

00124- 

001242 

001243 

001244 

001245 

001246 

001247 

001250 

001251 

001252 

001253 

001254 

001255 

001256 

001257 


0  001003 
0  052111 
0  002004 
0  062100 
0  061011 
0  070010 
0  002212 
0  064051 
0  002200 
0  072031 
0  001000 
0  J10000 
0  032005 
0  002360 
0  072013 
0  062010 
0  111255 
0  101261 
0  072027 
0  115260 
0  101247 


0 
2 
0 
3 
3 
3 
0 
3 
0 
3 
0 
0 


2  003 
0  04  11 
0  004 
1  0  04  00 
0  2  00  11 
0  00  10 
0  212 
0  02  11 
0  200 
0  01  11 
2  000 
0  000 


1  5  0  00  05 


1 


0  360 
5  0  00  13 
1  0  00  10 
4  1255 
0  1261 

3  5  0  01  07 

4  6  1260 
4  0  1247 


001260  0  116104  4  7  0104 


001261 
001262 
001263 


0  002313  0 
0  116145  4 
0  114715  4 


1  0  313 
7  0145 
6  0715 


001264 
001265 
001266 


0  002012  0  1  0  012 
0  064051  3  2  0  02  11 
0  001003  0  0  2  003 


SBYTER:  LDNAR 

nov«EH 

LDBR 
ADB 

novB 
nov 

LDBR 
NOVB 
LDBR 
NOVB 
LDNAR 
LDNEN 
SNSLP7:  DATI 
LDBR 


LANDBR  ACO 


SBYTNH 

AC4 

SBYTES 

AC4,BR 

NAR 

ACO,WEH 

SRVOUT^HLDOUT^SELOUT 

TORO 

200 

ACl 

0 

0 

TAGIN1,AC0 

360 


ACO.BR 

.♦2 

SNSER7*1 

ACl 

.♦2 

SNSLP7 

TST  * 
<C6NTR0L  UNIT  DID  NOT'RESPOND  TO  "SRV 
AFTER  PRESENTING  SENSE  BYTE>.,PNT 


NOV 
JNPB7 
JNP 
DECR 
JNP2 
JNP 
SNSER7:  ERRORN 


;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 
;BYTE 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 


ERLOOP  TST 


;SET  ADDR  OF  SENSE  BYTE  NUNBER 

;ADDR  OF  SENSE  BYTE  STORAGE 
.-CONPUTE  ADDR  TO  STORE  SENSE  BYTE 
;SET  THAT  ADDR 

;SET  "SRV  OUT" 

;SET  WAIT  CNT 

;RESET  NAR 
;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 
;2ER0  SP  ADR  BITS 


;JUNP  IF  "SRV  IN"  STILL  SET 
;ELSE,  CLEARED  OKAY 
;DEC  WAIT  CNT 
;JUNP  IF  TINED  OUT 
;ELSE,  KEEP 

OUT"  BY  DROPPING  "SRV  IN" 


'^SALL 


.•♦CLEAR  "SRV  OUT". 

;MF  RECEIVED  ALL  24  SENSE  BYTES,  TERMINATE  SEQUENCE. 

.-♦ELSE.  CHECK  THAT  "SRV  IN"  SETS  AND  CONTINUE  RECEIVING  BYTES. 


LDBR    HLDOUT^SELOUT 
NOVB    TORO 
LDNAR   S6YTNN 


;CLEAR  "SRV  OUT" 

;SET  ADDR  OF  SENSE  BYTE  NUNBER 


«CDXD 
HCDXDM 

UA9 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 
1473 
1474 
1475 
1476 
1477 
I  1478 
1  1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 

1498 
1499 
1500 
1501 
1502 
1503 
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SEO  0180 


001267 

001270 

001271 

001272 

001273 

001274 

001275 

001276 

001277 

001300 

001301 

001302 

001303 

001304 

001305 

001306 

001307 

001310 

001311 

001312 

001313 

001314 

001315 


0  052011  2  5 
0  072003  3  5 
0  070010  3  4 
0  002011  0  1 
0  066371  3  3 
0  046051  2  3 
0  002033  0  1 
0  066371  3  3 
0  001000  0  0 
0  002030  0  1 
0  060017  3  0 
0  115323  4  6 
0  002200  0  1 
0  072031  3  5 
0  010200  0  4 
0  032005  1  5 
0  002360  0  1 
0  072013  3  5 
0  062010  3  1 
0  111317  4  4 
0  072027  3  5 
0  115316  4  6 
0  101306  4  0 


00  11 
00  03 

00  10 
Oil 
17  11 
02  11 
033 
17  11 
000 
^^30 

.  17 

200 

01  11 
200 
00  05 
360 
00  13 
00  10 

1317 
0  01  07 
1316 
1306 


0013U  0  116104  4  7  0104 


001317 
001320 
001321 
001322 


0  002314  0 

0  116145  4 

0  '14715  4 

0  101161  4 


1  0  314 
7  0145 
6  0715 
0  1161 


001323 
001324 
001 325 
001326 
001327 
001330 
001331 
001332 
001333 


0  002200  0 
0  072031  3 
0  010201  0 
0  032004  1 
0  062010  3 
0  105335  4 
0  072027  3 
0  115334  4 
0  101326  4 


1 
5 
4 
5 
1 
2 
5 
6 
0 


0 

0 

0 

0 

0 

1335 

0  01 

1334 

1326 


200 
01  11 
201 
00  04 
00  10 


07 


001334     0  116104  4  7  0104 


001335 
001336 
001337 


0  0021^5 
0  116145 
0  114715 


0 
4 
4 


1  0  115 
7  0145 
6  0715 


LDBR 
M0V8 
LDMAR 
LDBR 
OSB 
JMPZ 
LDBR 
MOVB 
LDMEM 
SNSLP8:  DAT I 
LDBR 
LAND6R 

nov 

JMPB7 
DECR 
JMPZ 
JMP 
SNSER8:  ERRORM 


MOVMEM  ACO 

INCR  ACO 

MOV  ACO.MEM 

LDBR  1 1 

MOVB  lOSEL 

MOVMEM  MPGP12 


33 

lOSEL 

0 

•D24 

ACO 

BYTDON 

200 

AC1 

SRVIN 

TAGIN1.AC0 

360 

ACO 

AC0.6R 

SNSERS^I 

AC1 

.^2 

SNSLP8 


TST  * 
<C0NTR0L  UNIT  DID  n6t"RESP0ND  WITH  "SRV 
DURING  SENSE  rOMMAND>, ,PNT 

ERLOOP  TST 


GET  NUM  OF  BYTES 
INC  BYTE  CNT 
STORE  NEW  BYTE  CNT 
SELECT  MASSBUS  INTERFACE 

STORE  BYTE  CNT  FOR  PRINTOUT 
SELECT  CHANNEL  BUS  INTERFACE 

CLEAR  MAR 

SET  COMPARE  CNT 

CHECK  IF  RECEIVED  24  BYTES 

JUMP  IF  YES 

SET  WAIT  CNT 

SET  EXPECTED  DATA 
READ  TAG  IN  LINES 
ZERO  SP  ADR  BITS 


JUMP  IF  '"SRV  IN"  SET 
DEC  WAIT  CNT 
JUMP  IF  TIMED  OUT 
ELSE,  KEEP  WAITING 

IN"  WITH  SENSE  BYTE 


JMP 


NXTS8 


*SALL 


;G0  GET  NEXT  SENSE  BYTE 


.•♦TERMINATE  THE  SENSE  COMMAND  SEQUENCE. 

!-»CHECK  THAT  "STA  IN"  SET  IN  RESPONSE  TO  LAST  "SRV  OUT"  CLEARING. 


BYTDON:  LDBR 
MOVB 
LDMEM 

SNSLP9:  DATI 
MOV 
JMP60 
DECR 
JMPZ 
JMP 

SNSER9:  ERRORM 


200 

AC1 

OPLIN^STAIN 

TAGINO.ACO 

ACO.BR 

SNSER9*1 

AC1 

.♦2 

SNSLP9 


;SET  WAIT  CNT. 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 

;JUMP  IF  '"STA  IN"  SET 
;DEC  WAIT  CNT 
.-JUMP  IF  TIMED  OUT 
;ELSE,  KEEP  WAITING 


TST  • 
<c6NfR6L^UNlf  DID  NOT'RESPOND  WITH  "STA  IN"  IN  PRESENTING  ENDING 
STATUS  AT  THE  END  OF  A  SENSE  COMMAND> 


ERLOOP  TST 


^SALL 


;»SET  "SRV  OUT". 
.••CHECK  THAT  "STA 


IN"  CLEARS. 
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SEQ  0181 


150A 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

1540 

15A1 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

^^52 


001340  0  002212  0  1  0 

001341  0  064051   3  2  0 

001342  0  002200  6  1  0 

001343  0  072031  3  5  0 

001344  0  010200  0  4  0 

001345  0  032004  1  5  0 

001346  0  062010  3  10 

001347  0  105351  4  2  1351 

001350  0  101355  4  0  1355 

001351  0  072027  3  5  0  01 

001352  0  115354  4  6  1354 

001353  0  101345  4  0  1345 


001354     0  116104  4  7  0104 


212 
02  11 
200 
01   11 
200 
00  04 
00  10 


07 


LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 

SNSLPX:  DATI 
MOV 
JMPBO 
JMP 
DECR 
JMPZ 
JMP 

SNSERX:  ERRORM 


SRVOUT^HLDOUT^SELOUT 

TORO 

200 

AC1 

OPLIN 

TAGINO.ACO 

ACO.BR 

.*2 

SNSERX^I 

AC1 

.♦2 

SNSLPX 


;SET  "SRV  OUT" 

;SET  yAIT  CNT 

;SET  EXPECTED  DATA 
:READ  TAG  IN  LINES 

;JUMP  IF  "STA  IN"  STILL  SET 
;ELSE,  CLEARED  OKAY 
;DEC  WAIT  CNT 
.-JUMP  IF  TIMED  OUT 
;ELSE,  KEEP 


TST  • 
<C0NTr6l  UNIT  DID  n6t"RESP0ND  to  "SRV  OUT"  BY  DROPPING  "STA  IN"  AFTER 
PRESENTING  ENDING  STATUS  IN  SENSE  COMMAND> 


001355 
001356 
001357 


001 360 
001361 
001362 
001363 
001364 
001365 
001366 
001367 
001370 
001371 
001372 
001373 
001374 
001375 
001 376 


0  002116  0 
0  116145  4 
0  114715  4 


0  002012  0 
0  064051  3 
0  002002  0 
0  064051  3 
0  002000  0 
0  064051  3 
0  J02200  0 
0  072031  3 
0  010000  0 
0  032004  1 
0  040017  2 
0  115400  4 
0  072027  3 
0  115377  4 
0  101371  4 


1  0  116 
7  0145 
6  0715 


ERLOOP  TST 


.-♦CLEAR  "SRV  OUT",  "MLD  OUT",  THEN 
:♦  CHECK  THAT  "OPL  IN"  CLEARS. 


•SALL 


•SEL  OUT' 


1 
2 
1 
2 
1 
2 
1 
5 
4 
5 
0 
6 
5 
6 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


012 

02  11 

002 

02  11 

000 

02  11 

200 

01  11 

000 

00  04 

00  17 
1400 
0  01  07 
1377 
1371 


LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDMEM 
SNSLPY:  DATI 
OSM 
JMPZ 
DECR 
JMPZ 
JMP 


HLDOUT^SELOUT 

TORO 

SELOUT 

TORO 

0 

TORO 

200 

AC1 

0 

TAGIN0,AC0 

ACO 

SNSERY+1 

AC1 

.^2 


001377  0  116104  4  7  0104 


001400  0  002117  0  1  0  117 

001401  0  116145  4  7  ^145 

001402  0  114715  4  6  0715 

001403  0  116173  4  7  0173 

001404  0  114715  4  6  0715 


SNSLPY 
SNSERY:  ERRORM  TST,"" 
CONTROL  UNIT  DID  NOT  DROP  ALL  TAG 

ERLOOP  TST 


REPEAT  TST 


; CLEAR  "SRV  OUT" 

; CLEAR  "HLD  OUT" 

.•CLEAR  "SEL  OUT" 

;SET  WAIT  CNT 

;SET  EXPECTED  DATA 
;READ  TAG  IN  LINES 
; CHECK  FOR  ALL  ZEROS 
;JUMP  IF  ZEROS 
;DEC  WAIT  CNT 
.•JUMP  IF  TIMED  OUT 
.-ELSE,  KEEP  WAITING 

IN  LINES  AFTER  "SENSE"  COMMAND 

*SALL 


r 
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SEQ  0182 


1553 
1554 
1555 
1556 
1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 


001405 

001406 

001407 

001410 

001411 

001412 

001413 

001414 

001415 

001416 

001417 

001420 

001421 

001422 

001423 

001424 

001425 

001426 

001427 

001430 

001431 

001432 

001433 

001434 

001435 

001436 

001437 

001440 

001441 

001442 

001443 

001 4h4 

001445 

001446 

001447 

001450 

001451 

001452 

001453 

001454 

001455 

001456 

001457 

001460 
001461 
001462 
001463 
001464 


0  002011  0  1 
0  066371  3  3 
0  002001  Q  1 
0  064051  3  2 
0  002000  0  1 
0  064251  3  2 
0  001004  0  0 
0  045731  2  2 
0  045711  2  2 
0  045771  2  2 
0  045751  2  2 
0  047431  2  3 
0  047411  2  3 
0  047471  2  3 
0  047451  2  3 
0  047531  2  3 
0  047511  2  3 
0  047571  2  3 
0  047551  2  3 
0  C02200  0  1 
0  116076  4  7 
0  002001  0  1 
0  072011  3  5 
0  022012  1  1 
0  105437  4  2 
0  101434  4  0 
0  072007  3  5 
0  115460  4  6 
0  045731  2  2 
0  J45711  2  2 
0  045771  2  2 
0  045751  2  2 
0  047431  2  3 
0  047411  2  3 
0  047471  2  3 
0  047451  2  3 
0  047531  2  3 
0  047511  2  3 
0  047571  2  3 
0  046151  2  3 
0  OC^OOO  0  1 
0  06<.2^>1  3  2 
0  101434  4  0 


0 
0 
0 
0 
0 
0 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
0 


011 
17  11 
001 
02  11 
000 
12  11 
004 
15  11 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


14 

17 

16 

01 

00 

03 

02 

05 

04 

07 

06 

200 
0076 
0  001 
0  00  11 
0  00 
1437 
1434 
0  00 
1460 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
0 
0 
0 


12 


07 


15 

14 

17 

16 

01 

00 

03 

02 

05 

04 

07 

06 

000 

12  11 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


1434 


0  002002  0  1  0  002 
0  064251  3  2  0  12  11 
0  116003  4  7  0003 
0  116033  4  7  0033 
0  101737  4  0  1737 


;SEND  THE  SENSE 
LDBR 
MOVB 
LDBR 
MOVB 
LDBR 
MOVB 
LDMAR 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
LDBR 
JMPSUB 
LDBR 
MOVB 

SNSND:  DATI 
JMPBO 
JMP 
DECR 
JMPZ 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
MOVMEM 
LDBR 
MOVB 
JMP 


SNDONE : 


LDBR 

MOVB 

JMPSUB 

JMPSUB 

JMP 


BYTES  TO  THE  HOST. 

11 

lOSEL 

1 

MPECR 

0 

MP6P2 

SBYTES 

MP6P5J 

MP6P4 . I 

MP6P7J 

MP6P6.I 

MP6P1 1 , I 

MP6P10J 

HP6P13,I 

MP6P12J 

MP6P15J 

MPGPUJ 

MPGP17,I 

MPGP16J 

ATA 

SETATA 

1 

ACO 

MPGP2,BR 

.+2 

.-2 

ACO 

SNDONE 

MP6P5 . I 

MP6P4,I 

MP6P7J 

MPGP6,I 

MP6P1 1 , 1 

MP6P10,I 

MPGP13,I 

MP6P12,I 

MPGP15,I 

MPGP14,I 

MP6P17,I 

MPGP16 

0 

MP6P2 

SNSND 

2 

MPGP2 

yAITGO 

OFFGO 

END 


.•SELECT  MASSBUS  INTERFACE 

;SET  CODE  FOR  HOST 

; CLEAR  CONTROL  BITS 

;SET  ADDR  OF  SENSE  BYTES 
; STORE  SENSE  BYTES  FOR  HOST 


GO  SET  ATTEN 

SET  LOOP  CNT  MINUS  1 

READ  CONTROL  BIT  REG 

JUMP  IF  HOST  SET  DATA  ACCEPTED  BIT 

ELSE.  KEEP  WAITING 

DEC  BYTE  COUNT 

JUMP  IF  SENT  ALL  DATA 

STORE  SENSE  BYTES  FOR  HOST 


.•CLEAR  ACCEPT  BIT  TO  SIGNAL  HOST 
;THAT  MORE  DATA  IS  AVAILABLE 
;G0  WAIT  FOR  HOST  TO  ACCEPT 

.•CLEAR  ACCEPT  BIT  AND  SET  DONE  BIT 
;T0  SIGNAL  HOST 
.-WAIT  FOR  GO  TO  SET 
;TURN  GO  OFF  AGAIN 


r 


MCDXD 
MCDXDM 

160A 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

161A 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 
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SEQ  0183 


001465  0  010000  0  4  0  000 

001466  0  040017  2  0  0  00  17 

001467  0  115471  4  6  1471 
001470  0  116104  4  7  0104 


SBYTEZ: 


001471 
001472 
001473 
001474 

001475 
001476 
001477 
001 500 
001501 
001 502 
001503 
001 504 
001505 


001 506 
001507 
001510 
001511 

001512 
001513 
001514 
001515 
001516 
001517 
001520 
001521 
001522 
001523 


001524 
001525 
001526 
001527 
001530 
001531 
001532 
001533 
001534 
001535 
001 536 
001537 
001540 


0  002320  0  1  0  320 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  1012? i  4  0  1233 


0  010000  0 
0  040017  2 
0  115506  4 
0  001002  0 
0  040011  2 
0  115504  4 
0  100676  4 
0  001000  0 
0  116104  4 


0  002321  0 
0  116145  4 
0  114715  4 
0  101233  4 

0  002100  0 

0  070014  3 

0  062005  3 

0  '11524  4 

0  001002  0 

0  040011  2 

0  115522  4 

0  100676  4 

0  001000  0 

0  116104  4 


4  0  000 
0  0  00  17 
6  1506 
0  2  002 
0  0  00  11 

6  1504 
0  0676 
0  2  000 

7  0104 


1  0  321 
7   0145 
6  0715 
0  1233 


0  100 
0  00  14 


1  0  00  05 


4 
0 
0 
6 
0 
0 
7 


0  002322  0  1 

0  116145  4  7 

0  114715  4  6 

0  002375  0  1 

0  070013  3  4 

0  040017  2  0 

0  115541  4  6 

0  001002  0  0 

0  040011  2  0 

0  115537  4  6 

0  100676  4  0 

0  001000  0  0 

0  116104  4  7 


1524 
2  002 
0  00  11 
1522 
0676 
2  000 
0104 


0  322 
0145 
0715 
0  375 
0  00  13 
0  00  17 
1541 
2  002 
0  00  11 
1537 
0676 
2  000 
0104 


LDMEM 

OSM 

JMPZ 


0 

ACO 

.^2 


SET  EXPECTED  DATA=0 

COMPARE 

JUMP  IF  SENSE  BYTE=0 


ERRORM  TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


ERLOOP  TST 


JMP 


SBYTEO 


S80ER: 


SBYTEl 


SB1ER: 


JMP 

i.DBR 

LORB 

SHL 

JMPB7 

LDMAR 

MOVMEM 

JMPZ 

JMP 

LDMAR 

ERRORM 


LDBR 
LANDB 
OSM 
JMPZ 
LDMAR 
MOVMEM 
JMPZ 
JMP 
LDMAR 
SB1ER2:  ERRORM 


'SALL 


LDMEM 

0 

OSM 

ACO 

JMPZ 

SBOER+1 

LDMAR 

ONEUNT 

MOVMEM 

JMPZ 

a2 

JMP 

NXTDR 

LDMAR 

0 

ERRORM 

TST, ERR 

ERLOOP 

TST 

SBYTER 

SET  EXPECTED  DATA 
CHECK  FOR  ZERO  STATUS 
JUMP  IF  ZERO  STATUS 
GET  TESTING  ONE  UNIT  FLAG 

JUMP  IF  TESTING  ONE  UNIT 
ELSE,  GO  ASK  FOR  NEXT  DRIVE 
RESET  MAR 
TST, ERROR  BIT(S)  ARE  SET' IN  SENSE  BYTE,,PNT 

'^SALL 


ADDR 


SBYTER 

TUSTA 

ACO,MEM 

AC0,8R 

SBlER+1 

ONEUNT 

.+2 

NXTDR 

0 

TST/TU  STATUS 


;SET  "TU  STATUS  A"  IN  EaPECTED  DATA 


LEFT  ADJUST  "TU  STATUS  A"  BIT 

JUMP  IF  IT  IS  SET 

GET  TESTING  ONE  UNIT  FLAG 


JUMP  IF  TESTING  ONE  UNIT 
ELSE,  GO  ASK  FOR  NEXT  DRIVE 
RESET  MAR 
A"  BIT  IS  NOT  SET  IN  SENSE  BYTE,,PNT 


ADDR 


ERLOOP  TST 


:75 

ACO,MEM 
ACO 

SB1ER2+1 
ONEUNT 

.+2 

NXTDR 

0 


*SALL 

.-CLEAR  "FILE  PROT"  BIT   IN  EXPECTED  D^TA 

COMPARE 

JUMP  IF  "FILE  PROT"  IS  CLEARED 

GET  TESTING  ONE  UNIT  FLAG 

JUMP  IF  TESTING  ONE  UNIT 

ELSE,  GO  ASK  FOR  NEXT  DRIVE  ADDR 

RESET  MAR 


001541  0  002323  0  1  0  323 


TST, "FILE  PROTECTED"  BIT  IS  SET  IN  SENSE  BYTE,,PNT 
ERLOOP  TST  ''SALL 
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SEQ  0184 


1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 


001542 
001543 
001544 

001 545 

001 546 
001547 
001550 


001551 
001552 
001553 
001554 

001555 
001556 
001557 
001560 
001 561 


001562 
001563 
001564 
001565 

001 566 
001567 
001570 
001571 
001572 


001573 
001 574 
001575 
001576 

001577 
001600 
001601 
001602 
001603 


001604 
001605 
001606 
001607 
001610 
001611 
001612 
001013 


0  116145  4  7  0145 

0  114715  4  6  0715 

0  002134  0  1  0  134 

LDBR 

134 

0  070013  3  4  0  00  13 

LANDS 

ACCMEM 

0  040017  2  0  0  00  17 

OSM 

Acg 

0  115551  4  6  1551 

JMPZ 

.^2 

0  116104  4  7  0104 

ERRORM 

TST.ERR 

ERLOOP 

TST 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


'SALL 


CLEAR  "TU  STATUS  B*  ,  NOISE,  AND  NOT  CAP 

IN  EXPECTED  DATA 

COMPARE 

JUMP  IF  ALL  BITS  CLEARED 


0  002324  0  1  0  324 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 

0  002006  0  1  0  006 
0  070013  3  4  0  00  13 
0  040017  2  0  0  00  17 
0  115562  4  6  1562 
0  116104  4  7  0104 


0  002325  0  1  0  325 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 


JMP 

SBYTE3:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


SBYTER 


; CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


6 

ACO.MEM 

ACO  ; COMPARE 

.+2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


ERLOOP  TST 


*SALL 


0  002040  0  1 
0  070013  3  4 
0  040017  2  0 
0  115573  4  6 
0  !16104  4  7 


0  040 
0  00  13 
0  00  17 
1573 
0104 


JMP 

SBYTE4:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


SBYTER 


; CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


40 

ACO,MEM 

ACO  ; COMPARE 

.•f2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


0  002326  0  1  0  326 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 

0  002100  0  1  0  100 
0  070013  3  4  0  00  13 
0  040017  2  0  0  00  17 
0  115604  4  6  1604 
0  116104  4  7  0104 


ERLOOP  TST 


^SALL 


JMP 

SBYTE5:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


SBYTER 


; CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


100 

AC0,MEM 

ACO  .-COMPARE 

.+2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


0  002327  0  1 
0  116145  4  7 
0  114715  4  6 
0  002100  0  1 
0  070014  3  4 
0  040017  2  0 
0  115614  4  6 
0  116104  4  7 


0  327 
0145 
0715 
0  100 
0  00  14 
0  00  17 
1614 
0104 


ERLOOP  TST 


SALL 


;SZ1   "NEW  SUBSYSTEM"  BIT  IN  EXPECTED  DATA 


LDBR  NEWSUB 

LORB  ACO, MEM 

OSM  ACO  .-COMPARE 

JMPZ  .+2  ;JUMP  IF  IT  lo  SET 

ERRORM  TST, "NEW  SUBSYSTEM"  BIT  Is  NOT  SET  IN  SENSE  BYTE,.PNT 


ERLOOP  TST 


SALL 
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1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 


001614 
001615 
001616 
001617 

001620 
001621 
001622 
001623 
001624 
001625 
001626 
001627 
001630 
001631 
001632 
001633 


001634 
001635 
001636 
001637 

001640 
001641 
001642 
001643 
001644 


001645 
001646 
001647 
001650 

001651 
001652 
001653 
001654 
001655 


001656 
001657 
001660 
001661 

001662 
001663 
001664 
001665 
001666 


0  002330  0  1  0  330 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 


0  002370  0  1 
0  062013  3  1 
0  072031  3  5 
0  002004  0  1 
0  070034  3  4 
0  040017  2  0 
0  115634  4  6 
0  002005  0  1 
0  070034  3  4 
0  040017  2  0 
0  115634  4  6 
0  116104  4  7 


370 

00  13 

01  11 
004 
01  14 
00  17 

1634 
0  005 
0  01  14 
0  00  17 
1634 
0104 


0  002331  0  1  0  331 
0  116145  4  7  0145 
0  1H715  4  6  0715 
0  101233  4  0  1233 

0  002020  0  1  0  020 
0  070013  3  4  0  00  13 
0  040017  2  0  0  00  17 
0  115645  4  6  1645 
0  116104  4  7  0104 


0  002332  0  1  0  332 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 

0  002010  0  1  0  010 
0  070013  3  4  0  00  13 
0  040017  2  0  0  00  17 
0  115656  4  6  1656 
0  116104  4  7  0104 


0  002333  0  1  0  333 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 

0  002017  0  1  0  017 
0  070013  3  4  0  00  13 
0  040017  2  0  0  00  17 
0  115667  4  6  1667 
0  116104  4  7  0104 


JMP 

SBYTE6:  LDBR 
LANDS 
MOVB 
LDBR 
LORB 
OSM 
JMPZ 
LDBR 
LORB 
OSM 
JMPZ 

SB6ER:  ERRORM 


JMP 

SBYTE7:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


JMP 

SBYTE9:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


JMP 

SBYT18:  LDBR 
LANDB 
OSM 
JMPZ 
ERRORM 


SBYTER 

370 

ACO.BR 

ACl 

4 

ACl, MEM 

ACO 

SB6ER^1 

5 

ACl, MEM 

ACO 

.^2 


; CLEAR  TU  MODEL  BITS 


PUT  RESULT  IN  ACl 

SET  TU  MODEL  BITS=4  IN 

EXPECTED  DATA 

COMPARE 

JUMP  IF  TU  MODEL  BITS=4 

SET  TU  MODEL  BITS=5  IN 

EXPECTED  DATA 

COMPARE 

JUMP  IF  TU  MODEL  BITS=5 


ST, TAPE  UNIT  MODEL  IDENtlFICATION  IS  NOT  4  OR  5,,PNT 


ERLOOP  TST 


'SALL 


SBYTER 


;CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


20 

ACO,MEM 

ACO  ; COMPARE 

.^2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


ERLOOP  TST 


'^SALL 


SBYTER 


;CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


10 

ACO,MEM 

ACO  ; COMPARE 

.^2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


ERLOOP  TST 


SALL 


SBYTER 


;CLEAR  ERROR  BITS  IN  EXPECTED  DATA 


17 

ACO,MEM 

ACO  ; COMPARE 

,^2  ;JUMP  IF  ALL  ERROR  BITS  CLEAR 

TST, ERROR  BIT(S)  SET  IN  §ENSE  BYTE,,PNT 


ERLOOP  TST 


^SALL 
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SEQ  0186 


1769 

1770 

1771 

1772 

1773 

177A 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 


001667 
001670 
001671 
001672 

001673 
001674 
001675 
001676 
001677 


0  002334  0  1  0  334 
0  116145  4  7  0145 
0  114715  4  6  0715 
0  101233  4  0  1233 


imu^' 


0 

0 

0  040017  2  0  0  00 
0  115700  4  6  1700 
0  116104  4  7  0104 


JMP  SBYTER 

SBYT23:  LDBR  200 

13  LANDS  ACO^MEM 

17  OSM  ACO 

JMPZ  .+2 


ERRORM  TST, ERROR  BIT(S)  SET  IN  SENSE  BYTE,,PNT 


; CLEAR  ERROR  BITS  IN  EXPECTED  DATA 

.•COMPARE 

;JUMP  IF  ALL  ERROR  BITS  CLEAR 


001700  0  002335  0  1  0  335 

001701  0  116145  4  7  0145 

001702  0  114715  4  6  0715 

001703  0  101233  4  0  1233 


ERLOOP  TST 


*SALL 


JMP 


SBYTER 


1 
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SEQ  0187 


1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

179A 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

181A 

1815 


001 704 
001705 
001706 
001707 
001710 
001711 
001712 
001713 

001714 
001715 
001716 
001 71 7 
001720 
001721 
001722 
001723 
001724 
001725 
001 726 

001727 
001730 
001731 
001 732 
001733 
001734 
001735 
001 736 


0  002200  0  1  0  200 

INITL: 

LDBR 

INIT 

0  066371  3  3  0  17  11 

MOVB 

lOSEL 

0  002033  0  1  0  033 

LDBR 

33 

0  066371  3  3  0  17  11 

MOVB 

lOSEL 

0  001000  0  0  2  000 

CLRMEM: 

LDMAR 

0 

0  000400  0  0  1  000 

LDMARX 

0 

0  010000  0  4  0  000 

LDMEM 

0 

0  016000  0  7  0  000 

RETURN 

0  002036  0  1  0  036 

WAIT: 

LDBR 

'^D30 

0  072011  3  5  0  00  11 

MOVB 

ACO 

0  002317  0  1  0  317 

WAITO: 

LDBR 

^D207 

0  072031  3  5  0  01  11 

MOVB 

AC1 

0  072027  3  5  0  01  07 

UAITI: 

DECR 

AC1 

0  115723  4  6  1723 

JMPZ 

.^2 

0  101720  4  0  1720 

JMP 

WAITI 

0  072007  3  5  0  00  07 

DECR 

ACO 

0  115726  4  6  1726 

JMPZ 

.+2 

0  101716  4  0  1716 

JMP 

WAITO 

0  016000  0  7  0  000 

RETURN 

0  002000  0  1  0  000 

CLROUT: 

LDBR 

0     ■ 

0  064051  3  2  0  02  11 

MOVB 

TORO 

0  064071  3  2  0  03  11 

MOVB 

T0R1 

0  002020  0  1  0  020 

LDBR 

20. 

0  072011  3  5  0  00  11 

MOVB 

ACO 

0  072007  3  5  0  00  07 

DECR 

ACO 

0  115734  4  6  1734 

JMPZ 

.-1 

0  101710  4  0  1710 

JMP 

CLRMEM 

;D0  MICROBUS  INIT 

; SELECT  CHAN  BUS  AND  CLEAR  INIT 


;SET  OUTER  LOOP  WAIT  COUNT 

;SET  INNER  LOOP  WAIT  COUNT 

;DEC  INNER  LOOP  COUNT 

;JUMP  IF   INNER  LOOP  TIMED  OUT 

;ELSE,  CONTINUE 

;DEC  OUTER  LOOP  COUNT 

;JUMP  IF  OUTER  LOOP  TIMED  OUT 

;ELSE  CONTINUE 

.-CLEAR  TAG  OUT  LINES 

;SET  WAIT  CNT 

;DEC  WAIT  CNT 
;KEEP  WAITING 


'5 
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SEQ  0188 


1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 


001737 

001740 

000000 

000001 

000002 

000003 

000004 

000005 

000006 

000007 

000010 

00001 1 

000012 

00001 3 

000014 

00001 5 

000016 

00001 7 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000030 

000031 

000032 

000033 


0  100176 

777777 

000000 

OOOOOQ 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

oocooo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


4  0  0176 

END: 

.ECRAM 

777777 

.MEM 

000000 

0 

000000 

DRVADR : 

0 

000000 

ONEUNT: 

0 

000000 

SBYTNM: 

0 

000000 

SBYTES: 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

0 

000000 

.END 

0 

NO  ERRORS  DETECTED 

PROGRAM  BREAK  IS  000000 
ABSOLUTE  BREAK  IS  001775 
CPU  TIME  USED  01:12.759 

31 P  CORE  USED 


END 


DRIVE  ADDR 
TESTING  ONE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 
SENSE  BYTE 


STORAGE 
UNIT  FLAG 
NUMBER 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 


ACO 


AC1 


AC2 
AC4 
ACS 

AC6 

AC7 

ADR  IN 

ADROUT 

ATA 

BEGEND 

BEGIN 

BORHI 

BORLO 

BUSOPE 

BUS1PE 

BYTDON 

C 

CATAB 

CBIHI 

CBILO 

CHANL 

CHKLOP 

CHKLP 

CLKOUT 

CLRFLG 

CLRGO 

CLRMEM 

CLROUT 

CMDFO 

CMDOUT 

CMPERR 

CORF 


CSLVSL 


585 
725 
899 
1061 
1251 
1378 
1510 
1674 
1752 
583 
886 
1160 
U62 
1362 
513 
481 
574 
494 
466 
114# 
92# 
177# 
611# 
451# 
53# 
49# 
68# 
67* 
146C 
234# 
600 
51# 
47# 
85# 
588# 
589# 
90# 
7ZM 
^70ff 
1790* 
696 
460 
96* 
171* 
660* 
846* 
986* 
1204* 
1330* 
1545* 
1690* 
1779* 
74* 


653 

727 

943 

1087 

1273 

1418 

1511 

1675 

1763 

700 

888 

1167 

1469 

1377 

518 

483 

580 

498 

501 

860 

816 

527 

1816 

619 

815 


1485* 


979 
649 


484 

1814 

754 

476* 

1011 

662 
848 
988 
1206 
1332 
1547 
1692 
1781 


655 

728 

944 

1088 

1274 

1425 

1537 

1686 

1764 

711 

941 

1193 

1486 

1380 
485 
587 
508 
502 
963 
818 
553 


933 


1211 


811 
1245 


657 

764 

964 

1162 

1289 

1427 

1538 

1687 

1775 

762 

946 

1199 

1491 

1414 
491 

605 
535 
1195 
820 
565 


671* 

673 

866* 

868 

1000* 

1002 

1218* 

1220 

1354* 

1356 

1608* 

1610 

1702* 

1704 

665 

780 

965 

1163 

1290 

1428 

1576 

1698 

1776 

767 

962 

1248 

1508 

1416 
525 


540 

934 
616 


1010    1151 


1289    1362 


929    1147 


720* 
879* 
1026* 
1234* 
1370* 
1624* 
1712* 


667 

829 

979 

1170 

1299 

1449 

1580 

1699 

1796 

823 

967 

1254 

1514 


526 


544 

936 
1109 


1244 


1807* 


722 
881 
1028 
1236 
1372 
1626 
1714 


981 
1178 
1300 
1450 
1605 
1708 
1802 

826 
1014 
1271 
1535 


528 


548 

938 
1573 


732* 
894* 
1047* 
1260* 
1437* 
1641* 
1731* 


701 

832 

992 

1196 

1320 

1451 

1616 

1709 

1811 

856 

1020 

1276 

1540 


547 

561 
1153 


702 

841 

993 

1197 

1321 

1459 

1632 

1720 

1812 

857 

1037 

1318 

1721 


549 

564 
1155 


734 

774* 

896 

903* 

1049 

1070* 

1262 

1281* 

1439 

1475* 

1643 

1656* 

1733 

1743* 

705 
842 
1016 
1211 
1343 
1464 
1633 
1724 

859 
1042 
1324 
1723 


554 


1157 


707 
854 
1017 
1213 
1345 
1466 
1647 
1723 

862 
1058 
1341 
1727 


558 


708 
861 
1039 
1226 
1346 
1467 
1648 
1739 

872 
1064 
1348 
1798 


563 


715 
874 
1040 
1227 
1364 
1488 
1662 
1740 

873 
1085 
1422 
1799 


566 


716 
889 
1060 
1250 
1365 
1489 
1663 
1751 

885 
1090 
1431 


569 


SEQ  0189 


776 

785* 

787 

836* 

838 

905 

951* 

953 

972* 

974 

1072 

1095* 

1097 

1182* 

1184 

1283 

1294* 

1296 

1307* 

1309 

1477 

1497* 

1499 

1520* 

1522 

1658 

1666* 

1668 

1678* 

1680 

1745 

1755* 

1757 

1767* 

1769 

n 


CSRO 

CSR1 

CUADRS 

CURSEN 

CUSTAT 

DAT  IN 

DATOUT 

DB 

DBEVEN 

DBPAR 

DBPARE 

DIHISP 

DIMUX 

DISACK 

DISIN 

DONE 

DPPE 

DRHI 

DRLO 

DRVADR 

DTD 

EBL 

EDIT 

ELOOPC 

END 

ERLP 

ERLPO 

ERLPA 

ERLPAO 

ERLPM 


ERLPMO 

ERRCA 

ERRCHK 

ERRCOM 

ERRSET 


EVPAR 

EXC 

EXFER 

EXTBUS 

FO 

F1 

n 

F3 
F4 
FN 
GO 
HALTIO 


39# 
40# 
26A 
101# 
5A# 
125# 
103# 
203# 
206# 
204# 
205# 
790 
105# 
10A# 
123# 
167# 
6A4f 
50# 
46# 
1113 
173# 
1684f 
2# 
590 
1602 
569# 
570# 
580# 
5^^» 
57A# 
1000 
1354 
1702 
575# 
578 
5A04f 
572 
53A# 
971 
1306 
1677 
SOM 
169# 
62# 
81# 
157# 
158# 
159# 
160# 
161# 
156# 
1554f 
135# 


992 
650 
351 


1226   1299    1364 


SEQ  0190 


1150 
482 

2 

595# 
1816# 
774 


660 
1026 
1370 
1712 

585* 
570 
5S7M 
659 
985 
1329 
1689 


1212 
527 

449 


846 


671 
1047 
1437 
1731 


575 

670 

999 

1353 

1701 


^S^9M 


720 
1070 
1475 
1743 


581 

719 
1025 
1369 
1711 


732 
1095 
1497 
1755 


785 
1182 
1520 
1767 


836 
1204 
1545 
1779 


866 
1218 
1608 


879 
1234 
1624 


894 
1260 
1641 


903 
1281 
1656 


951 
1294 
1666 


972 
1307 
1678 


986 
1330 
1690 


731 
1046 
1436 
1730 


773 
1069 
1474 
1742 


784 
1094 
1496 
1754 


835 
1181 
1519 
1766 


845 
1203 
1544 
1778 


865 
1217 
1607 


878 
1233 
1623 


893 
1259 
1640 


902 
1280 
1655 


950 
1293 
1665 


r 


HLDOUT 

I 

ILF 

INADR 

INIT 

INITL 

INTO 

INT1 

INT2 

1NT3 

lOSEL 

LOOPEN 
LPADR 


MAR 
NKOIN 

nidiN 

HKPE 

nOD360 

nPDBO 

nPDB1 

nPDB2 

MPDTR 

NPECR 

NPERR 

HP6P0 

NPGP1 

HPGP10 

HPGP11 

NP6P12 

HPGP13 

«PGPU 

MPGP15 

NPGP16 

HPGP17 

HPGP2 

HPGP3 

HPGPA 

«PGP5 

MPGP6 

MPGP7 

HPHVR 

WPSCRO 

WPSCR1 


93/lf 
1190 
1114 
1583 
175# 
240/r 
2A3# 
6A8 
230# 
231  # 
232# 
233# 
239# 
1U1 
83# 
6604r 
8A6# 
986# 
1204# 
1330# 
15A5# 
1690# 
1779# 
1417 
112* 
113# 
66# 
82# 
193# 
197# 
201  # 
185# 
181# 
176# 
21 0# 
211# 
21 8# 
21 9# 
220# 
221# 
2224f 
223# 
224# 
225# 
21 2# 
21 3# 
214# 
21 5# 
21 6# 
21 7# 
189# 
153# 
166# 


757 
1245 
1561 
1584 


467 
1786# 


452 
1146 

663 
849 
989 
1207 
1333 
1548 
1693 
1782 

860 


453 
481 


759 
1268 
1562 
1585 


1786 


468 
1453 

67:* 

866# 
1000* 
1218* 
1354* 
16084f 
1702* 


480 

559 

527 

565 

497 

614 

615 

636 

1114 

1566 

1115 

1565 

1144 

1454 

1567 

1588 

1570 

1591 

1569 

1590 

1572 

1593 

1571 

1592 

1559 

1577 

577 

584 

586 

1561 

472 

1143 

1563 

1584 

457 
486 


1563 
1586 


470 
1456 

674 

869 

1003 

1221 

1357 

1611 
1705 


1108 


1587 
1586 
1568 


1595 

1562 
1582 
1564 


525 


13 

1564 

1587 


93§ 
1419 

1565 

1588 


938 
1446 
1566 
1589 


959 
1505 
1567 
1590 


1011 
1528 
1568 
1591 


1034 

1569 
1592 


1055 
1570 


1078 
1571 


1155 
1572 


1157 
1582 


SEQ  0191 


494 

1555 

720# 
S79M 
1026# 
1234* 
M70if 
1624* 
1712* 


496 
1787 

723 
882 
1029 
1237 
1373 
1627 
1715 


499 
1789 

732* 
894* 
1047* 
1260* 
1437* 
1641* 
1731* 


513 


515 


735 

774* 

897 

903* 

1050 

1070* 

1263 

1281* 

1440 

1475* 

1644 

1656* 

1734 

1743* 

519 


777 
906 
1073 
1284 
1478 
1659 
1746 


612 


634 


1106    1117 


785* 

788 

836* 

839 

951* 

954 

972* 

975 

1095* 

1098 

1182* 

1185 

1294* 

1297 

1307* 

1310 

1497* 

1500 

1520* 

1523 

1666* 

1669 

1678* 

1681 

1755* 

1758 

1767* 

1770 

1557 


1589 


1599 
1583 
1585 

529 


617 


HPSTAT 

229# 

niRIN 

116# 

853 

884 

HTROUT 

91# 

NEySUB 

U1# 

1707 

NOFAIL 

550 

552# 

NRTN 

51 6# 

571 

576 

582 

606 

NSELIN 

1173 

1178# 

NXTDR 

1105# 

1177 

1621 

1638 

1653 

NXTSB 

1362# 

1480 

OCC 

174# 

OFF  GO 

473 

479# 

591 

595 

1112 

1601 

ONEUNT 

1174 

1618 

1635 

1650 

1820# 

ONLINE 

84# 

649 

OPLIN 

111# 
1509 

855 

871 

942 

963 

1015 

1038 

1C59 

1161 

OPLOUT 

100# 

697 

755 

812 

930 

1148 

OPiyi 

824# 

828 

OUTADR 
PNT 

241# 
294# 

660 

o71 

720 

732 

774 

785 

836 

846 

■  '  V  > 

972 

986 

1000 

1026 

1047 

1070 

1095 

1182 

1204 

1307 

1330 

1354 

1370 

1437 

1475 

1497 

1520 

1545 

1678 

1690 

1702 

1712 

1731 

1743 

1755 

1767 

1779 

REPORT 

545 

557# 

REPTU 

605# 

676 

737 

790 

908 

1100 

1550 

REQIN 

124# 

RESIOS 

518# 

592 

596 

RHDATA 

263 

331 

RPTCNT 

34# 

507 

RUN 

154# 

SAVIOS 

513# 

552 

557 

SBOER 

1617 

1623* 

SB1ER 

1634 

1640* 

SB1ER2 

1649 

1655# 

SB6ER 

1725 

'730# 

SBYT18 

1403 

1762# 

SBYT23 

1408 

1774# 

SBYTAB 

1382 

1383 

1385# 

SBYTEO 

1385 

1615# 

SBYTE1 

1386 

1631* 

SBYTE3 

1388 

1673# 

SBYTEA 

1389 

1685* 

SBYTE5 

1390 

1697# 

SBYTE6 

1391 

1719# 

SBYTE7 

1392 

1738* 

SBYTE9 

1394 

1750# 

SBYTER 

1398 
1748 

1399 
1760 

1400 
1772 

1401 
1784 

1402 

1405 

1413* 

1613 

1629 

SBYTES 

1415 

1560 

1822* 

SBYTEZ 

1387 

1393 

1395 

1396 

1397 

1404 

1406 

1407 

1604# 

S6YTNM 

1138 

1379 

1413 

1448 

1821# 

SELERR 

766 

770M 

SELIN 

117# 

779 

871 

887 

SELOUT 

95# 

759 

820 

938 

959 

1011 

1034 

1055 

1078 

SEQ  0192 


1195    1249 


1272    1319    1^87 


866 
1218 
1608 


879 
1234 
1624 


894 
1260 
1641 


903 
1281 
1656 


951 
1294 
1666 


1671 


1683    1695    1717 


1736 


1080 


1157    1190    1245 


1268 


SELRST 
SELWT 
SENSE 
SETATA 
SLVSEL 
SNDONE 
SNSER2 
SNSER3 
SNSERA 
SNSER5 
SNSER6 
SNSER7 
SNSER8 
SNSER9 
SNSERX 
SNSERY 
SNSLP1 
SNSLP2 
SNSLP3 
SNSLPA 
SNSLP5 
SNSLP6 
j  SNSLP7 
! SNSLP8 
i  SNSLP9 
I SNSLPX 
SNSLPY 
ISNSND 
SNSSET 
I SPABTS 
SPAOR 
! SPDAHI 
I SPDALO 
ISPEN 
i  SPRES 
SRVIN 
SRVOUT 
STAIN 
START 
SUPOUT 
SYSRST 
TAG  I  NO 

TAG1N1 

TAGSET 

TAGWT 

TESTOI 

TESTI 

TIWOUT 

TIOERl 

TI0ER2 

TI0ER3 


1315 
133# 
763# 
U5# 
525* 
69# 
1581 
1198 
1253 
1275 
1323 
13A7 
1430 
U68 
U90 
1513 
1539 
1162# 
1196# 
1250# 
1273# 
1320# 
13A3# 
1425# 
H6A# 
H88# 
1510# 
1537# 
1577# 
1164 
129# 
45# 
52# 
48# 
78# 
242# 
122# 
89# 
118# 
172# 
102# 
134# 
43# 
1250 
44# 
825 
701  # 
491  # 
492# 
63# 
945 
966 
1019 


1338 

769 

1243 

588 

1598# 

1202# 

1257# 

1279# 

1327# 

135U 

1434# 

1472# 

1494# 

1517# 

1543# 

1169 

1201 

1256 

1278 

1326 

1350 

1433 

1471 

1493 

1516 

1542 

1596 

1166 


1419    1446    1505    1528    1530 


SEO  0193 


467 
1342 
1055 

860 


7^1 
1273 
705 
829# 
713 

638 

94  9# 

970# 

1023# 


1110 


1574 


1170# 


1463 
1315 
1038 


715 

1320 

725 


685 


1419 
1272 


763 

1488 

829 


746 


1505 
1487 


824 
1510 
1343 


799 


841 
1537 
1425 


943 
1464 


964 


1016    1039    1060    1087    1162 


1196 


917    1125 


TIOERA 

TI0ER5 

TI0ER6 

TI0LP1 

T10LP2 

T10LP3 

TIOLPA 

T10LP5 

T10LP6 

TISET 

TMREN 

TODOUT 

TOHCXJT 

TORO 


T0R1 

TOSOUT 

TST 


TST2 

TST3 

TST4 

TST5 

TST6 

TST7 

TSTART 

TUSTA 

UBPE 

VERSIO 

WAIT 

UAITGO 

WAIT  I 

UAITO 

UCLK 

yRSTA 

Z 

ZRTN 
XADRH 
XEMES 


10A1 

1063 

1089 
943# 
964# 

1016# 

1039# 

1060# 

1087# 

70A 

94# 

106# 

115# 

41# 

1079 

1529 
42# 
107# 
639# 
850 

1099 

1441 

1716 
639 
686 
747 
800 
918 

1126 
474 
139# 
65# 
2# 
651 
453# 

1799* 

1797# 
162* 
140# 
235# 
593# 
354# 
639# 
74  7# 
868 
956 
1049 
1209 
1296 
1375# 
•  550 
1668 
1717* 


1045# 

1067# 

1093# 

948 

969 

1022 

1044 

1066 

1092 

710 


860 

653 
1081 
1531 

665 

664 
870 
1101 
1479 
1735 
640# 
687# 
7484r 
801  # 
91 9# 
1127* 
622# 
1631 

2 

'795# 

456 

1801 

1804 


SEO  0194 


1817 
662 
776 
871 
956# 
1052 
1209# 
1299 
1439 
1550# 
1671 
1733 


71 5# 


753 
1083 
1533 

698 

675 

883 

1126# 

1501 

1747 


449 
589 


760 
1154 
1808 

756 

677 

898 

1186 

1524 

1759 


618 


817 
1156 

813 

686# 

907 

1208 

1549 

1771 


1111 


819 
1158 

931 

724 

909 

1222 

1551 

1783 


1600 


821 
1191 

1149 

736 
918* 
1238 
1612 


935 
1246 

1809 

738 

955 

1264 

1628 


665 

665# 

673 

676 

6^6# 

686# 

779 

7790 

787 

790 

790# 

800# 

871# 

881 

884 

8I4# 

896 

899 

974 

977 

977M 

9i8 

991 

991  # 

1052# 

1072 

1075 

1 075# 

1097 

1100 

1220 

1223 
1309 

1223# 

1236 

1239 

1239# 

1299# 

1312 

1312# 

1332 

1335 

1442 

1442# 

1477 

1480 

14d0# 

1499 

1610 

1613 

1613# 

1626 

1629 

16294f 

1671# 

1680 

1683 

1683# 

1692 

1S?5 

1736 

1736# 

1745 

1748 

1748# 

1757 

937 
1269 


7^70 
976 
1285 
1645 


939 
1316 


778 

990 

1298 

1660 


722 

725 

838 

841 

899« 

905 

1002 

1005 

1100/r 

1126# 

1262 

1265 

1335# 

1356 

1502 

1502# 

1643 

1646 

1695# 

1704 

1760 

1760# 

960 
1339 


789 
1004 
1311 
1670 


725# 
84U 
908 
1005# 
1184 
1265# 
1359 
1522 
1646# 
1707 
1769 


1012 
1420 


791 
1030 
1334 
1682 


1035 
1447 


800# 
1051 
1358 
1694 


1056 
1506 


840 
1074 
1374 
1706 


734 

737 

737# 

848 

851 

851# 

908# 

91 8# 

953 

1028 

1031 

1031# 

1187 

1187# 

1206 

1283 

1286 

1286# 

1359# 

1372 

1375 

1525 

1525# 

1547 

1653 

1661 

1661# 

1707# 

1714 

1717 

1772 

1772# 

1781 

1182 


XREQ 

XTNUM 

.ERROR 


178A 
262# 
260# 
541 


178U 
602 
633 
5A2 


637 


639*        68A 


686/r 


7A5 


71,7$        798 


800#        916 


918#      1124        1126* 


SEQ  0195 


r 


ADB 
DATl 


DECR 

DEFTST 
ERLOOP 


ERRMAC 


ERROR 
ERRORA 
ERRORD 
ERRORM 


GO  INK 


INCR 
J  MP 


JMPBO 

JMPB4 
'  JMPB7 
JMPSUB 


1A16 
453 
829 

1211 

605 
1324 
267/Sf 
314# 
973 
1308 
1679 
297# 
971 
1306 
1677 
306* 
31 0# 
31 2# 
308* 
997 
1351 
1701 
356* 
773 
893 
1025 
1217 
1353 
1550 
1693 
1782 
1450 
456 
891 
1230 
1389 
1403 
1579 
1760 
455 
1367 
504 
541 
473 
6^8 
746 
869 
985 
1111 
1280 
1474 
1623 


457 

841 

1226 

1577 

711 

1348 

627 

661 

987 

1331 

1691 

659 

985 

1329 

1689 

770 


659 

1023 

1369 

1711 

638 

777 

897 

1029 

1221 

1357 

1 607 

1701 


464 

948 

1253 

1390 

1404 

1596 

17;'2 

460 

1490 

966 

545 

552 

651 

754 

878 

989 

1112 

1284 

1478 

1627 


481 

943 

1250 

767 
1431 

672 
1001 
1355 
1703 

670 

999 
1353 
1701 

845 


670 

1045 

1434 

1730 

659 

784 

902 

1046 

1233 

1369 

1611 

1705 


474 

969 

1256 

1391 

1405 

1602 

1784 

462 

1512 

1018 

825 

557 

659 

773 

882 

999 

1125 

1293 

1496 

1640 


494 

964 

1273 

826 
1469 

721 
1027 
1371 
1713 

719 
1025 
1369 
1711 


718 

1067 

1472 

1742 

663 

788 

906 

1050 

1237 

1373 

1623 

1711 


506 

996 

1278 

1392 

1406 

1613 

1801 

590 

1578 

1198 

945 

570 

663 

777 

893 

1003 

1147 

1297 

1500 

1644 


513 

979 

1289 

946 
1491 

733 
1048 
H38 
1732 

731 
1046 
1436 
1730 


730 

1093 

1494 

1754 

670 

790 

908 

1069 

1259 

1436 

1627 

1715 


572 
1019 
1303 
1393 
1407 
1621 
1804 

766 

1252 

1164 

575 

670 

784 

897 

1025 

1181 

1306 

1519 

1655 


525 

992 

1299 

967 

1514 

775 
1071 
1476 
1744 

773 
1069 
1474 
1742 


782 

1180 

1517 

1766 

674 

799 

917 

1073 

1263 

1440 

1640 

1730 


578 
1022 
1323 
1394 
1408 
1629 
1814 

995 


1179 

581 

674 

788 

902 

1029 

1185 

1310 

1523 

1659 


653 
1016 
1320 

1020 
1540 

786 
1096 
1498 
1756 

784 
1094 
1496 
1754 


834 

1202 

1543 

1778 

676 

835 

950 

1094 

1230 

1474 

1644 

1734 


619 
1044 
1326 
1395 
1430 
1638 
1816 
1041 


1347 

588 

676 

790 

906 

1046 

1203 

1329 

1544 

1665 


665 
1039 
1343 

1042 
1580 

837 
1183 
1521 
1768 

835 
1181 
1519 
1766 


864 
1215 
1607 

685 
839 
954 
1098 
1284 
1478 
1655 
1742 


704 
1063 
1350 
1396 
1433 
1653 

1062 


1429 

589 

685 

799 

908 

1050 

1207 

1333 

1548 

1669 


701 
K60 
1362 

1064 
1799 

847 
1205 
1546 
1780 

845 
1203 
1544 
1778 


877 
1231 
1623 

719 
845 
971 
1100 
1293 
1496 
1659 
1746 


no 

1066 
1368 
1397 
1471 
1671 


1468 

591 

696 

811 

917 

1069 

1217 

1353 

1 550 

1677 


705 
1087 
1364 

1090 
1802 

867 
1219 
1609 

865 
1217 
1607 


892 
1257 
1640 

723 
849 
975 
1125 
1297 
1500 
1665 
1754 


713 
1092 
1383 
1398 
1480 
1683 


1634 

592 

719 

835 

929 

1073 

1221 

1357 

1574 

1681 


715 
1114 
1425 

1167 
1812 

880 
1235 
1625 

878 
1233 
1623 


901 
1279 
1655 

731 
865 
985 
1181 
1306 
1519 
1669 
1758 


769 
1169 
1385 
1399 
1493 
1695 


725 
1115 
1464 

1199 


895 
1261 
1642 

893 
1259 
1640 


763 
1162 
1488 


824 
1196 
1510 


SEQ  0196 


1254    1276 


949 
1292 
1665 

735 
869 
989 
1185 
1310 
1523 
1677 
1766 


828 

1173 
1386 
1400 
1513 
1717 


595 

723 

839 

950 

1094 

1233 

1369 

1600 

1689 


596 

731 

845 

954 

1098 

1237 

1373 

1601 

1693 


904 
1282 
1657 

902 
1280 
1655 


970 
1304 
1677 

737 
878 
999 
1^03 
1329 
1544 
1681 
1770 


844 
1177 
1387 
1401 
1516 
1736 


618 

735 

849 

971 

1100 

1259 

1436 

1607 

1701 


952 
1295 
1667 

950 
1293 
1665 


983 
1327 
1689 

746 
882 
1003 
1207 
1333 
1548 
1689 
1778 


876 
1201 
1388 
1402 
1542 
1748 


1166    1172    1229    1275    1302    1322 


638 

737 

865 

975 

1110 

1263 

1440 

1611 

1705 


JMPZ 


LANDB 

LANDBR 
LANDMR 
LDBR 


LDMAR 

LDMARX 
LDMEM 

LORB 

LORBR 

LORCBR 

LORM 

MOV 


novB 


MOVMEM 
NAME 


1711 

550 

72A 

863 

990 
1186 
133A 
1541 
166A 
17A7 

528 
1775 

A83 

886 

A51 

534 

662 

761 

855 

936 
1036 
1124 
1236 
1340 
1461 
1556 
1673 
1750 

492 
1457 

493 

495 
1249 

485 

526 

862 

857 

491 
1061 
1428 

452 

559 

698 

859 
1035 
1149 
1339 
1531 
1808 

496 
1566 

1589 

m 


1715 

571 

729 

870 

1004 

1200 

1349 

1549 

1670 

1753 

548 

501 

463 

546 

666 

776 

858 

938 

1049 

1140 

1 1 43 

1j44 

1465 

1558 

1680 

1757 

1113 

1560 

1791 

656 

1272 

888 

535 

873 

498 

1163 

1451 

466 

566 

700 

872 

1037 

1154 

1341 

1533 

1809 

577 

1567 

1590 

2 


1730 

576 

736 

875 

1021 

1208 

1358 

1551 

1676 

1759 

563 

547 

465 

553 

673 

787 

860 

940 

1055 

1142 

1245 

1356 

\kTi 

1573 

1685 

1762 

1138 

1618 

779 
1288 
1632 

564 


502 

1170 

1467 

468 

569 

756 

885 

1056 

1156 

1378 

1535 

1811 

1144 

1568 

1591 


1734 

582 

738 

883 

1030 

1214 

,374 

1581 

1682 

1765 

854 

561 

467 

560 

684 

798 

368 

953 

1057 

1145 

1247 

1372 

1485 

1575 

1692 

1769 

1150 

1622 

942 
li19 
1708 


518 

1178 

1489 

470 

574 

755 

931 

1058 

1158 

1417 

1555 

1151 
1569 
1592 


1742 

606 

768 

890 

1043 

1222 

1432 

1606 

1688 

1771 

861 

655 

469 

562 

697 

812 

871 

959 

1072 

1148 

1262 

1382 

1499 

1594 

1697 

1774 

1152 

1635 

963 
1342 
1723 


540 

1197 

1511 

472 

580 

760 

933 

1079 

1160 

1420 

1557 

1175 
1570 
1593 


1746 

658 

778 

898 

1051 

1238 

1441 

1612 

1694 

1777 

1647 

667 

471 

565 

699 

814 

881 

961 

1078 

1153 

1268 

1415 

1505 

1598 

1704 

1781 

1174 

1639 

980 
1363 
1727 


558 
1227 

480 

584 

762 

935 

1081 

1191 

1422 

1559 

1380 
1571 
1619 


1754 

664 

781 

900 

1065 

1255 

1460 

1617 

1700 

1783 

1662 

707 

479 

611 

706 

816 

884 

974 

1080 

1155 

1270 

1419 

1507 

1610 

1707 

1786 

1194 

1650 

1015 
1424 


583 
1251 

486 

586 

764 

937 

1083 

1193 

1447 

1576 

1414 
1572 
1636 


1758 

669 

789 

907 

1074 

1264 

1470 

1620 

1706 

1800 

1674 

727 

482 

613 

722 

818 

887 

988 

1082 

1157 

1283 

1421 

1522 

1626 

1714 

1788 

1212 

1654 

103? 
1463 


585 
1274 

497 

612 

813 

939 

1085 

1244 

1453 

1595 

1449 
1582 
1651 


1766 

675 

791 

909 

1089 

1277 

1479 

1628 

1710 

1803 

1686 

831 

484 

616 

726 

820 

896 

1002 

1084 

1159 

1296 

1426 

1528 

1631 

1719 

1795 

1224 

1790 

1059 
1487 


587 
1300 

499 

614 

815 

941 

1106 

1246 

1456 

1599 

1454 
1585 


1770 

677 

827 

947 

1091 

1285 

1492 

1637 

1716 

1813 

1698 


500 

633 

734 

822 

905 

1009 

1097 

1184 

1309 

1439 

1530 

1643 

1722 

1797 

1379 


1086 
1509 


944 

1321 

508 

615 

817 

960 

1108 

1248 

1462 

1721 

1561 
1584 


1778 

1782 

703 

709 

712 

833 

840 

843 

955 

968 

976 

1099 

1101 

1168 

1291 

1298 

1311 

1501 

1515 

1524 

1645 

1649 

1652 

1725 

1729 

1735 

717 
850 
982 
1176 
1325 
1539 
1660 
1741 


1720    1739    1751    1763 


SEQ  0197 


1345    1427 


505 

635 

745 

830 

916 

1011 

1105 

1190 

1315 

1446 

1532 

1646 

1726 

1807 

1381 


1139 
1536 


965 
1346 

515 

617 

819 

962 

1117 

1269 

1486 

1787 

1562 
1585 


1466 

507 

637 

755 

838 

930 

1013 

1107 

1192 

1317 

1452 

1534 

1658 

1733 

1810 

1413 


1161 
1604 


993 
1365 

519 
634 
821 
1010 
1141 
1271 
1506 
1789 

1563 
1586 


514 

649 

757 

848 

932 

1028 

1109 

1206 

1332 

1455 

1547 

1661 

1738 


1195 
1615 


1017 
1377 

529 
636 
823 
1012 
1143 
1316 
1508 
1796 

1564 
1587 


527 

654 

759 

853 

934 

1034 

1116 

1220 

1338 

1458 

1554 

1668 

1745 


1423    1448 


1225 
1792 


1040 
1418 

554 
650 
856 
1014 
1146 
1318 
1529 
1798 

1565 
1588 


NOP 

OSB       5A9    87A    889    U5? 


'^          M  ii  il?^  1^21  ^lli  SI  i^i?  iP^  ^%l  1?2'?  i?iJ  !?!§  i^sl   1^61 

gi?5SJ    \#  Af  ?^5  in  1%  'l^t  Til  5A3  551  555  567  593  597    607 

1793  1805 

SHR       45A  ^458  459  461  ^76  503  765  994  1165  1171  1228  1301  1366 


SEQ  0198 


TEST  627#    628    679    740    793    911    1119 

.ECRAM  416#   1816 

.END  1846 

.INIT  446 

.MEM  1817 
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SEQ  0199 


1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

179A 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 


;♦  Come  here  if  atten  was  set  by  the  microdiagnostk 


031104 

031105 

031106 

031107 

031110 

031111 

031112 

031113 

031114 

031115 

031116 

031117 

Oil 120 

031121 

031122 

031123 

031124 

031125 

031126 

031127 

031130 

031131 

031132 

031133 

031134 

031135 

031136 

031137 

031140 

031141 

031142 

031143 

031144 

031145 

031146 


026  02 
602  01 
254  00 
602  01 
254  00 
332  00 
254  00 

027  00 
602  01 
254  00 
254  00 
027  00 
554  02 
430  01 
602  01 
254  00 
606  16 
254  00 
027  02 
135  02 
430  01 
602  01 
254  00 
606  16 
254  00 

261  17 
6d!  15 
554  00 
332  00 
260  17 
200  01 

262  17 
312  01 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1 

0 

1 

0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000200 
031147 
177400 
031321 
030116 
031117 
000000 

Mini 

031154 
031426 
000000 
000016 
000002 
Villi 
031154 
000100 
031133 
000000 
052626 
000002 
000377 
031154 
000200 
031153 
00001 5 
mill 
065305 
000000 
000000 
00001 5 
00001 5 
00001 5 
031154 
031153 


DATTEN:  RDREG 
TRNE 
JRST 
TRNE 
JRST 
SKIPE 
JRST 
RDREG 
TRNE 
JRST 
JRST 

SCOPLP:  RDREG 
HLRZ 
XOR 
TRNE 
JRST 
TRNN 
JRST 
RDREG 
LDB 
XOR 
TRNE 
JRST 

MDLCHK:  TRNN 
JRST 
PUT 
TLZ 
HLRZ 
SfC  I PE 
GO 
MOVE 
GET 
CAME 
JRST 
JRST 


DXERR 

AC1-MPERR 

MDERR 

AC1,EC 

MDACT 

SCOPE 

SCOPLP 

DXGPO 

AC1J  77777 

MDCONT 

DIAGXX 

DXGPO 

AC2,REPT1 

AC1,AC2 

AC1J  77777 

MDCONT 

REPT1JB29 

MDLCHK 

DXGP2 

AC2,CP0INT  8,REPTU27] 

AC1,AC2 

AC1,377 

MDCONT 

REPT1JB28 

MDERRL 

REPT 

REPT,-1 

aPNTDIS 

ao 

AC1,REPT 

REPT 

ACUREPT 

MDCONT 

MDERRL 


Read  error  register 

Check  if  an  error  being  reported 

Yes,  go  report  it 

Check  error  code 

Perform  requested  function 

If  in  error  loop 

Check  if  at  end  of  scope  loop 

Read  test  number        .  ^      .  ^^ 

Skip  if  at  end  of  diagnostic  (test  number  0) 

No,  continue  the  diagnostic 

Diagnostic  has  completed 

Read  test  number        .... 

Get  last  test  number  that  failed 

Compare  the  test  numbers 

Skip  if  same  test  number 

No,  continue  the  diagnostic 

Check  if  any  correct  data  to  report 

No,  check  if  additional  printer 

Read  coirect  data  from  register 

Get  correct  data  from  error 

Compare 

Skip  if  same  correct  data 

No,  continue  test 

Check  if  any  additional  data 

No,  go  into  loop 

Save  data  from  error 

Clear  sense  byte  number  in  rept 

Get  address  of  additional  routine 

Skip  if  zero 

Go  to  routine,  gets  data  in  rept 

Move  data  to  act 

Get  data  back  from  error 

Skip  if  data  matches 

No,  continue  test 

Yes,  go  into  loop 
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SEQ  0200 


1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

18A0 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 


;*  Come  here  to  report  mlc^odi agnostic  error 


031147 
031150 
031151 
031152 
031153 
031 1 54 
031155 
031156 
031157 
031160 
031161 
031162 

031163 
031164 
031165 
031166 
031167 
031170 
031171 

031172 
031173 
031174 
031175 
031176 
031177 
031200 
031201 
031202 
031203 
031204 
031205 
031206 
031207 
031210 
031211 
031212 
031213 
031214 
031215 
031216 
031217 
031220 
031221 
031222 


260  17 

200  00 
202  00 

036  03 
035  00 
032  02 

201  01 
242  01 
032  04 
260  17 
032  00 
254  00 

032  02 
201  01 
242  01 
032  04 
260  17 
032  00 
254  00 

402  00 

037  02 
554  00 
037  15 
200  00 
6u<  00 
254  00 
260  17 
037  02 
260  17 
302  00 
254  00 
135  05 
322  05 
260  17 
254  00 
302  00 
306  00 
254  00 
302  00 
254  00 
367  05 
037  02 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
13 
01 
00 
00 
00 


031263 
052627 
030514 
031242 
031163 
000000 
000001 
000000 
000000 
046730 
000007 
031065 


0  00  000000 
J  00  000001 
0  13  000000 
0  01  000000 
0  00  046730 
0  00  000003 
0  00  031065 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030514 
052630 
000016 
000000 
030046 
000200 
031223 
042776 
052633 
043030 
000041 
043051 
052634 
031220 
051605 
043051 
000072 
000073 
043051 
000041 
031210 
031210 
052635 
043030 
000000 


MDERR:  GO 
MOVE 
MOVEM 
ERUUO 
MDERRL:  ERLOOP 
MDCONT:  LDREG 
MOVE  I 
LSH 
LDREG 
GO 

LDREG 
JRST 

MDLOOP:  LDREG 
MOVE  I 
LSH 
LDREG 
GO 
LDR. 
JRST 

MDNAME:  SETZM 
PMSG 
HLRZ 
PNTDEC 
MOVE 
TLNE 
JRST 
GO 

PMSG 
GO 
CAIE 
JRST 
LDB 
JUMPE 

MSGSKP:  GO 

JRST 
CAIE 
CAIN 
JRST 
CAIE 
JRST 
SOJG 

MSGFND:  PMSG 
GO 
RTN 


SETARG 

EGO  MDNAME] 

XERHI3 

3,ERRPT 

MDLOOP 

DXERR.O 

ACIJ 

ACl, (DRIVE) 

DXASR,(AC1) 

DEVREQ 

DXCTR,7 

DIAGUT 

DXERR,0 

ACIJ 

ACl, (DRIVE) 

DXASR,(AC1) 

DEVREQ 

DXCTR,3 

DIAGUT 

XERHI3 

<'^ERROR  IN  TEST  > 

HEPTl 

O.CONSU 

TXTINH 

SHRTMS 

RDMES 

<  *  > 

TYPMES 

NOMES 

AC5, [POINT  5,REPT1,35] 

AC5,MSGFND 

GTLIN 

NOMES 

":'* 

NOMES 
•  ii  •  • 

MSGSKP 

AC5,MSGSKP 
<A  .  > 

TYPMES 


Set  up  the  error  arguments  in  rept  &  reptl 

Set  up  additional  print  linkage 

To  error  handler 

Report  the  error 

Loop  to  mdloop 

Clear  error  register 

Get  one  bit 

Position  to  this  drive 

Clear  attention 

Request  the  drive  from  monitor 

Continue  diagnostic 

Wait  for  response 

;Clear  error  register 

;Get  one  bit 

.•Position  to  this  drive 

.-Clear  attention 

.•Request  the  drive  from  monitor 

.•Repeat  this  test 

;Wait  for  response 

.•Clear  routine  intercept  location 

;Get  test  number  from  reptl 

.•Print  it 

.-Read  the  switches 

;Skip  if  text  inhibit  is  set 

.•Yes,  go  print  short  message 

.-Read  the  message  file 

Type  the  test  name 

Check  if  found  a  first  message 

No 

Get  message  number 

If  0,  already  found  message 

Read  another  line 

.•Check  that  a  :  or  ; 

;Are  not  passed 

;Yes.  can^t  find  message  for  error 

.•Message  line? 

;No.  keep  reading 

.•Count  the  messages 

;Typ.-  the  message 

.-Return  now  for  cor  and  actual 


n 


DFDXD 
DFDXDM 

1875 

1870 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 


DX20-V100  MAGNETIC  TAPI 
MAC  6-Apr-85  18:31 
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ROUTINE  TO  RUN  THE  MICRO-CODE  DIAGNOSTIC 


SEQ  0201 


031223 
031224 
031225 
031226 
031227 

031230 
031231 
031232 
031233 
031234 
031235 
031236 
031237 
031240 
031241 


037  02  0  00  052636 
135  00  0  00  052634 
037  15  0  00  000000 
037  00  Q  00  QQ0056 
~  17  0  00  000000 


263 


200  00 
302  00 
254  00 
260  17 
037  00 
606  16 
254  00 
550  00  1 
260  17  1 
263  17  0 


00  065262 
00  000135 
00  031235 
00  043030 
00  030242 
00  000200 
00  031241 
00  065305 
00  000000 
00  000000 


031242  000000  052571 

031243  000000  000000 

031244  052571  031230 

031245  037  02  0  00  052640 

031246  620  16  0  00  000200 

031247  254  00  0  00  031153 


SHRTMS: 


MDPNT : 


MDPNTA: 


MDPNTX : 


PMSG 

<  -  ERROR  #> 

LDB 

[POINT  5,REPT1,35] 

PNTDEC 

PNTCI 

t  1  1 1 

• 

RTN 

MOVE 

KEYCHR 

CAIE 

•  •nil 

JRST 

MDPNTA 

GO 

TYPMES 

PCRL 

TRNN 

REPT1JB28 

JRST 

MDPNTX 

HRRZ 

aPNTDIS 

GO 

ao 

RTN 

ERRPT:  0,,CSIXBIT\.\J 

CSIXBIT\.\3,, MDPNT 


Get  message  number 
Pnnt  It 

Print  a  decimal  point 
Return  now 

Get  key  character 

Check  if   any  second  message 

No,  go  to  additional  print 

Type  t!ie  message 

End  the  line 

Check  if  additional  error  reporting 

No,  go  around 

Get  address  of  routine 

Go  to  routine 

Return 


BADPNM:  PMSG 
TRZ 
JRST 


<???PRINT  ROUTINE  NUMBER  FROM  DXGP3  OUT  OF  RANGE. ''> 

REPT1JB28 

MDERRL 


J 


1  r 


DFDXD 
DFDXOM 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 
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MAC 

031250 
031251 
031252 
031253 
031254 
031255 
031256 
031257 
031260 
031261 
031262 


031263 

031264 

031265 

031266 

031267 

031270 

031271 

031272 

031273 

031274 

031275 

031276 

031277 

031300 

031301 

031302 

031303 

031304 

031305 

031306 

031307 

031310 

031311 

031312 

031313 

031314 

031315 

031316 

031317 

031320 


6-Apr-85  18:38 


ROUTINE  TO  RUN  THE  MICRO-CODE  DIAGNOSTIC 


SEQ  0202 


037  02 
200  00 
037  00 
037  00 
200  00 
037  00 
037  00 
476  00 
332  00 
260  17 
254  00 


026  02 
135  16 

027  00 

620  01 
506  01 
402  00 

621  15 
606  16 
254  00 
200  01 
202  01 
027  02 
135  02 
202  02 
137  01 
405  01 
2ui  01 
606  16 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


027  03  0 
405  01  0 


322  01 
313  01 
254  00 
270  01 
202  01 


554  00  1 
332  00  0 
260  17  1 
263  17  0 


00  052651 
00  065331 
00  000002 
00  000056 
00  065330 
00  000002 
00  030242 
00  065233 
00  030037 
00  043201 
00  031426 


00  000000 
00  052657 
00  000000 
00  600000 
00  000016 
00  031243 
00  111111 
00  000100 
00  031304 
00  052660 
00  031243 
00  000000 
00  052657 
00  030122 
00  052626 
00  000377 
00  030120 
00  000200 
00  031320 
00  000000 
00  000377 
00  031245 
00  065334 
00  0  .  '45 
00  6  34 
00  o.'^'305 
00  OOuOOl 
00  000000 
00  000000 
00  000000 


DIAGLE:  PMSG 
MOVE 
PNTSIX 
PNTCI 
MOVE 
PNTSIX 
PCRL 
SETOM 
SKIPE 
GO 
JRST 


<CAN'T 
SUBFIL 


LOAD 


i  I  I  i 


MICRO-CODE  DIAGNOSTIC  > 

;Get  subfile  name 
; Print  it 


SUBEXT 


CTRLFG 
USER 
TCTRLC 
DIAGXX 


; Setup  error  message  info 


SETARG:  RDREG 
LD6 
RDREG 
TR2 
HRLM 
SETZM 
TLZ 
TRNN 
JRST 
MOVE 
MOVEM 
RDREG 
LDB 
MOVEM 
DPB 
AND  I 
MOVEM 

MDNCOR:  TRNN 
JRST 
RDREG 
AND  I 
JUMPh 
CAMLE 
JRST 
ADD 
MOVEM 
HLRZ 
SKIPE 
GO 

MDRRPT:  RTN 


DXERR 

REPTl, [POINT  8 J, 27] 

DXGPO 

1,600000 

UREPTl 

ERRPT+1 

REPT,-1 

REPT1JB29 

MDNCOR 

UCXCORECXACTULJ 

1,ERRPT+1 

DXGP2 

2, [POINT  8,1,273 

a:2,5;actul 

1, [point  8, rept1, 27] 

1,377 

1,XC0REC 

REPT1,1B28 

MDRRPT 

DXGP3 

1 ,377 

1,BADPNM 

l,aTA6ADR 

BADPNM 

AC1,TA8ADR 

AC1,PNTDIS# 

aACl 

ao 


Get  the  extension 

And  print  it 

End  the  line 

SET  '^C  FLAG 

SKIP  IF  IN  EXEC  MODE 

RELOAD  SYSTEM  UCODE  I   GET  OUT 

Get  out  of  test 


Read  error  code 

Extract  message  number 

Get  test  number 

Clear  the  two  unused  bits 

Put  in  left  of  repti 

Clear  error  pt 

Clear  sense  byte  number 

Check  if  correct  %   actual  to  be  printed 

No,  report  without  it 

Get  address  pointers  for  cor  &  actual 

Put  in  error  report  block 

Read  correct  and  actual  data 

Put  actual  data  into  ac2 

Save  in  actual  data  loc 

Put  correct  data  in  regtl 

Strip  correct  data  to  8  bits 

Save  in  correct  data  loc 

Check  if  additional  error  reporting 

No 

Read  routine  number 

Strip  to  8  bits 

Check  for  number  other  than  0 

Check  for  valid  number 


; Compute  address  of  table  entry 
.'Save  dispatch  address 
;Get  address  of  routine 
;Skip  if  zero 
;Go  to  routine 


n 
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SEQ  0203 


19A3 

19A4 

19A5 

19A6 

19A7 

19A8 

19A9 

1950 

1951 

1952 

1953 

195A 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

196A 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

197A 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 


031321 
031322 

031323 

031 32A 

031325 

031326 

031327 

031330 

031331 

031332 

031333 

031 33A 

031335 

031336 

031337 

031 3A0 

0313A1 

031 3A2 

031 3A3 

031 3AA 

031 3A 5 

031 3A6 

031 3A7 

031350 

031351 

031352 

031353 

031 35A 
031355 
031356 

031357 
031360 
031361 


135  DA  0  00  052657 
303  OA  0  00  000002 


036  00 
035  00 
602  OA 
25A  00 

200  00 
202  00 
027  02 
260  17 
027  03 
260  17 
027  OA 
260  17 
027  05 
260  17 
027  06 
260  17 
027  07 
260  17 
033  01 

201  02 
027  01 
606  01 
25A  00 
367  02 
2oJ  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


05267A 
031 05 A 
000002 
031367 
052677 
065222 
000000 
031362 
000000 
031362 
000000 
031362 
000000 
031362 
000000 
031362 
000000 
031362 
000001 
111111 
000000 
000001 
031357 
031 3A7 
0A2573 


036  00  0  00  052712 
035  00  0  00  031 05A 
25A  00  0  00  031 A26 

606  01  0  00  000002 
25A  00  0  00  031331 
25A  00  0  00  031 15A 


031362  135  00  0  00  052657 

031363  136  00  0  00  065222 
031 36A  135  00  0  00  052715 

031365  136  00  0  00  065222 

031366  263  17  0  00  000000 


;CaU  IS  a  reguest  to  perform  some  action 
Ec  =  2  receive  sense  bytes 


MDACT:  LDB    ACA, [POINT  8, ACl, 273 

CAILE   ACA,2 

ERROR   DIAGRS, 0-0,0,* 
MICRO-DIAGNOSTIC  SENT  OUf-OF-RANGE  CODE  WITH  REQUEST  FOR  ACTION,, UPINFO 


;Get  error  code 

;Skip  if  code  is  in  range 


ERLOOP 
TRNE 

DIAGRS 
ACA,2 

JRST 

SNDRV 

MOVE 

0, [POINT  8,SNSAC1,3 

MOVEM 

0,BYTPTR# 

NXTBYT: 

RDREG 

DXGP2 

GO 

STRSNS 

RDREG 

DXGP3 

GO 

STRSNS 

RDREG 

DXGPA 

GO 

STRSNS 

RDREG 

DXGP5 

GO 

STRSNS 

RDREG 

DXGP6 

GO 

STRSNS 

RDREG 

DXGP7 

GO 

STRSNS 

LDREG 

DXGPIJ 
AC2,-1 

MOVE  I 

BYTWT: 

RDREG 

DXGPl 

TRNN 

AC1,1 

JRST 

DNCHK 

SOJG 

AC2,BYTWT 

GO 

UPTEST 

ERROR 

DIAGRS, 0,0,0,\ 

If  error,  loop  to  DIAGRS 
Skip  if  request  to  receive  sense  bytes 
Else,  request  to  send  drive  addr 
Setup  byte  pointer 

Read  dxstr  sense  bytes  into  ad 

Go  store  them 

Read  dxerr  sense  bytes 

Go  store  them 

Read  dxmtr  sense  bytes 

Go  store  them 

Read  dxasr  sense  bytes 

Go  store  them 

Read  dxgp5  sense  bytes 

Go  store  them 

Read  dxdtr  sense  bytes 

Go  store  them  ^^  . 

Set  data  accepted  bit  for  dx20  in  control  register 

Set  wait  time 

Read  data  accepted  bit 

Skip  if  dx20  didn't  clear  it  yet 

Else,  go  check  if  done 

Jump  if  keep  waiting 

Else,  report  timeout 


MICRO-CODE  DIAGNOSTIC  TIMED  OUT  WHILE  SENDING  SENSE  BYTES,, UPINFO 
ERLOOP  DIAGRS  ;If  error,  loop  to  DIAGRS 

JRST    DIAGXX 


DNCHK:  TRNN 
JRST 
JRST 


AC1,2 

NXTBYT 

MDCONT 


.•Routine  to  store  sense 
; Entry  requirements: 


;Skip  if  dx20  signaled  done 
;Else,  go  wait  for  next  data 
.•Continue 

bytes. 

ac1=  2  sense  bytes,  in  bits  28-35  and  20-27 
Bytptr=  byte  pointer  to  location  where  sense 
Bytes  are  to  be  stored 


STRSNS: 


LDB 

IDPB 

LDB 

IDPB 

RTN 


[POINT  8, AC1, 27] 

BYTPTR 

[POINT  8,AC1,35] 

BYTPTR 


;Put  one  into  acO 
.•Store  it 
.-Put  one  into  acO 
; Store  it 


n 
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SEQ  020^ 


1993 

199A 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

202A 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

203A 

2035 


031367 
031370 
031371 
031372 
031373 
031 374 
031375 

031376 
031377 
03U00 
031401 

031402 
031403 
031404 
031405 
031406 
031407 
031410 


200  00  0 
602  00  0 


254  00 
350  15 
307  15 
254  00 
254  00 


00  030046 
00  000020 
00  031376 
00  126077 
00  000017 
00  031403 
00  031402 


405  00  0  00  000017 
202  00  0  00  000015 
202  00  0  00  126077 
254  00  0  00  031403 


403  15  0 
550  01  0 
200  00  0 
602  00  0 
660  01  0 
033  04  0 
254  00  0 


00  126077 
00  000015 
00  030046 
00  000020 

00  177400 

01  000000 
00  031154 


031411 
031412 
031413 
031414 

031415 
031416 
031417 
031420 
031421 
031422 
031423 
031424 
031425 


027  05  0  00  000000 
4u?  01  0  00  000377 
506  01  0  00  000015 
263  17  0  00  000000 


037  02  0 


554  00 
037  15 
037  00 
037  02 
550  00 
037  02  0 
037  00  0 
263  17  0 


0 
0 
0 
0 
0 


00  052716 
00  000015 
00  000000 
00  030245 
00  052724 
00  000015 
00  000000 
00  030242 
00  000000 


;*  Routine  to  send  mi crO-di agnostic  the  drive  address  to  be  tested. 

;6et  switches.    . .  ,  . 

;Skip  if  testing  all  drives 

;Else,  testing  one  drive 

;Inc  drive  adar       .... 

;Skip  if  already  tested  16  drives 

;Else,  go  test  this  drive 

;6o  check  if  any  units  tested 

;Zero  all  but  drive  addr  bits 
; Store  drive  address 


.-Reset  to  drive  zero 

;6et  drive  addr 

;6et  switches 

;Skip  if  testing  all  drives 

;Set  testing  one  drive  flag 

; Store  info  for  microdiag 


;*  Additional  print  routines  for  the  sense  command  test 


SNDRV : 

MOVE 

CONSU 

TRNE 

ONEDVN 

JRST 

TST1DR 

AOS 

REPT.DRVADR 

CAIG 

REPTJ7 

JRST 

TSTDR 

JRST 

TSTDRO 

TST1DR: 

AND  I 

17 

MOVEM 

REPT 

MOVEM 

DRVADR 

JRST 

TSTDR 

TSTDRO: 

SETZB 

REPT. DRVADR 

TSTDR: 

HRRZ 

AC1.REPT 

MOVE 

CONSU 

TRNE 

ONEDVN 

TRO 

ACl. 377827 

LDREG 

DXGP4.(AC1) 

JRST 

MDCONT 

SPNTB: 


SPNTA: 


RDREG 
AND  I 
HRLM 
RTN 

PMSG 

HLRZ 

PNTDEC 

PNTMSG 

PMSG 

HRRZ 

PNT2 

PCRL 

RTN 


DXGP5 

AC1.377 

AC1.REPT 


;Read  op  reg  5  for  sense  byte  number 

; Isolate  it 

;Store  it  with  drive  addr 


<ERROR  OCCURRED  ON  SENSE  BYTE  #> 

REPT  ;Get  sense  byte  number 

.-Print  it 
PERIOD  .-Print  a  period  to  show  decimal 

<  FOR  UNIT  M> 
REPT  .-Get  drive  addr 

.-Print  it 

.-Give  cr-lf 


"1 
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2036 
2037 
2038 
2039 

20A0  031426 

2041  031427 

2042  031430 

2043  031431 

2044  031432 

2045  031433 

2046  031434 

2047  031435 

2048  031436 

2049  031437 

2050  031440 

2051  031441 

2052  031442 

2053  031443 

2054  031444 

2055  031445 

2056  031446 

2057  031447 

2058  031450 

2059  031451 

2060  031452 

2061  031453 

2062  031454 

2063  031455 

2064  031456 

2065  031457 

2066  031460 

2067  031461 

2068  031462 

2069  031463 

2070  031464 

2071  031465 

2072  031466 

2073  031467 

2074  031470 

2075  031471 

2076  031472 

2077  031473 

2078  031474 

2079  031475 

2080  031476 

2081  031477 

2082  031500 

2083  031501 

2084  031502 

2085  031503 

2086  031504 

2087  031505 

2088  031506 

2089  031507 

2090  031510 
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;*  Come  here  when  mkrodiag  completed,  print  controller  type  and  drive  type. 


SEQ  0205 


260  17  0 
260  17  0 
402  00  0 
200  00  0 
402  00  0 
602  00  0 
476  00  0 
332  00  0 


254  00 
476  00 
037  01 
332  00 
037  02 
336  00 


0 
0 
0 
0 
0 
0 


037  02  0 
135  00  0 


037  15 
037  02 
135  00 
037  16 


0 
0 
0 
0 


037  02  0 
135  00  0 
037  16  0 
037  00  0 
402  00  0 


200  00 
6ui  00 
476  00 
402  00 
135  00 
275  00 
336  00 


0 
0 
0 
0 
0 
0 
0 


476  00  0 
200  01  0 
332  00  0 
254  00  0 
037  02  0 
200  00  0 
037  16  0 
037  00  0 
336  00  0 
254  00  0 
037  02  0 
254  00  0 
336  00  0 
037  02  0 
332  00  0 
037  02  0 
037  00  0 
200  01  0 
476  00  0 


00  051362 
00  046730 
00  030514 
00  126012 
00  065342 
00  004000 
00  065342 
00  126067 
00  031456 
00  126067 
00  000026 
00  065342 
00  052726 
00  065342 
00  052731 
00  052734 
00  000000 
00  052735 
00  052740 
00  000003 
00  052741 
00  052745 
00  000003 
00  030242 
00  065340 
00  126005 
00  000100 
00  065340 
00  065341 
00  052746 
00  000004 
00  000000 
00  065341 

00  126077 

01  126100 
00  031506 
00  052747 
00  126077 
00  000003 
00  030247 
00  065341 
00  031502 
00  052753 
00  031506 
00  065340 
00  052756 
00  065340 
00  052761 
00  030242 

00  126077 

01  126100 


DIAGXX:  GO 
GO 

SETZM 
MOVE 
SETZM 
TRNE 
SETOM 
SKIPE 
JRST 
SETOM 
PFORCE 
SKIPE 
PMSG 
SKIPN 
PMSG 
LD6 
PNTDEC 
PMSG 
LDB 
PNTOCS 
PMSG 
LDB 
PNTOCS 
PCRL 

NOPNTX:  SETZM 
MOVE 
TLNE 
SETOM 
SETZM 
LDB 
SUBI 
SKIPN 
SETOM 
MOVE 
SKIPE 
JRST 
PMSG 
MOVE 
PNTOCS 
PNTMSG 
SKIPN 
JRST 
PMSG 
JRST 

N0TU72:  SKIPN 
PMSG 
SKIPE 
PMSG 

ruCONT:  PCRL 
MOVE 
SETOM 


RE 

DEVREQ 

XERHI3 

SNSAC6 

TX02* 

MODIV 

TX02 

TX 

NOPNTX 

TX 

TX02 

<^TX02  SERIAL  *> 

TX02 

OTXOl  SERIAL  #> 

[POINT  14,SNSAC4,23] 

<  SWITCH  FEATURE=> 
[POINT  3,SNSAC5,11] 

<  DIAGNOSTIC  LEVEL=> 
[POINT  4,SNSAC5J53 


TRACK7# 

SNSACl 

(TRK7) 

TRACK7 

TU72* 

[POINT  3,SNSAC2,23J 

AC0,4 

ACO 

TU72 

ACl^DRVADR 

UNITO(ACl) 

TUCONT 

<TAPE  UNIT  ADDRESS  > 

DRVADR 

TAB 

TU72 

N0TU72 

<TU72]9-TRACK> 

TUCONT 

TRACK7 

<TU70]9-TRACK> 

TRACK7 

<TU71]7-TRACK> 

AC1, DRVADR 
UNITO(ACI) 


Reset  the  dx20 

Clear  error  handler  intercept 

Get  "mod  iv"  bit 

Clear  tx02  flag 

Skip  if  controller  is  a  txOl 

Set  tx02  flag 

Skip  if  haven't  tested  this  tcu  yet 

Els3,  jump  around  printing 

Set  tcu  tested  flag 

Clear  control-o 

Skip  if  a  txOl 

Skip  if  a  tx02 

Get  serial  number 
Print  it 

Get  switch  features 
Print  it 

Get  diag  level 

Print  it 

End  line 

Clear  7-track  flag 

Get  7-track  sense  bit 

Skip  if  not  7  track 

Set  7-track  flag 

Clear  tu72  flag 

Get.  tu  model  id 

If  tu  mode 1=4,  is  tu72 

Skip  if  not  a  tu72 

Set  tu72  flag 

Get  tape  drive  address 

Skip  if  this  drive  hasn't  been  tested 

Jump  around  printing 

Get  drive  addr 

Print  it 

Print  a  tab 

Skip  if  tu72  drive 

Else,  is  a  tu70  or  71 


;Skip  if  7  track  (tu71) 

;Skip  if  not  7  ::rack  (tu70) 

;Give  cr-lf 

;6et  tape  drive  address 

;Set  drive  tested  flag 


DFDXD 
DFDXDM 

2091 

2092 

2093 

209A 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

21 OA 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 
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*  Load  the  operational  micro  code  and  setup  various  test  parameters. 


SEQ  0206 


•»*♦**•***♦******♦****♦*♦♦**♦*****•***♦•••********♦♦♦♦♦****♦********** 


031511 

031512 

031513 

031 5U 

031515 

031516 

031517 

031520 

031521 

031522 

031523 

031 524 

031525 

031526 

031527 

031530 

031531 

031532 

031 533 

031 534 
031535 
031536 
031537 
031 540 
031541 
031542 
031543 
031544 
031545 
031546 
031547 


260  17 
200  00 


00 
00 


251 

201  .. 

202  00 
202  00 
201  00 
336  00 

201  00 

202  00 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
200  00 
420  00 
336  00 
435  00 
202  00 
200  00 
420  00 
336  00 
254  00 
33?  00 
43?  00 
202  00 
200  00 
251  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


036635 

052764 

126036 

00QQ01 

065221 

065303 

001400 

065340 

006000 

065237 

065337 

065332 

065307 

065326 

065265 

065267 

126005 

052765 

065340 

000100 

126037 

126006 

052766 

065342 

031544 

065340 

200000 

126040 

052767 

126044 

046730 


GO  MCLOAD 

MOVE  CSNSAC1,,SNSEX1] 

BLT  SNSEX6 

MOVE I  1 

MOVEM  BLOKCT 

MOVEM  OPREPT* 

MOVEI  OT7800 

SKIPN  TRACK7 

MOVEI  T91600 

MOVEM  DMODE 

SETZM  TIEREQ 

SETZM  SUPRES 

SETZM  PWDXFR* 

SETZM  SHTREC# 

SETZM  LNGREC* 

SETZM  LRGXFR* 

MOVE  SNSACl 

ANDCM  CBOT^WRSTAT^DieOO-^BKWD] 

SKIPN  TRACK7 

lORI  D1600 

MOVEM  SNSCl 

MOVE  SNSAC2 

ANDCM  CEOT'^NT1600: 

SKIPN  TX02 

JRST  .'••3 

SKIPE  TRACK7 

lORI  NT1600 

MOVEM  SNSC2 

MOVE  CSNSAC3,,SNSC3] 

BLT  SNSC6 

GO  DEVREO 


;Go  load  the  ucode 

.-Setup  block  word 

;Move  data  from  actual  to  expected 

;Setup  block  count  for  data  xfer  tests 

Set  operation  repeat  count 

Set  7-track  800  bpi 

Skip  if  7  track 

Set  9-track  1600  bpi 

Store  drive  mode  for  immediate  ops 

Clear  tie  retry  flag 

Clear  suppress  auto  sense  flag 

Clear  partial  word  xfer  flaa 

Clear  short  record  request  flag 

Clear  long  record  request  flag 

Clear  large  xfr  flag 

Get  first  sense  word 

Clear  the  variable  bits 

Skip  if  7  track 


;et  1600  bpi  for  9  track 


1 


Store  as  constant  sense  word 

Get  second  sense  word 

Clear  variable  bits 

Skip  if  tx02  controller 

If  txOK  "nt1600"  not  defined 

Skip  if  9  track 

For  7  track,  nt1600  will  be  set 

Store  as  constant  sense  word  2 

Setup  constant  sense  words  3-6 


DFDXD 

OX20-V10 

DFOXDM 

MAC 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

031550 

21 3A 

031551 

2135 

031552 

21316 

2137 

21!;8 

2139 

2U0 

2U1 

2U2 

031553 

2143 

031554 

2UA 

2145 

031555 

2146 

0311556 

2147 

031557 

2148 

2149 

031 560 

2150 

0!;i561 

2151 

031562 
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265  01  0  00  0;3410 
201  10  0  00  100010 
260  17  0  00  036657 


004  00  0  00  000001 
260  17  0  00  037614 

036  00  0  00  053005 

035  00  0  00  031551 
260  17  0  00  037323 

036  00  0  00  053017 
035  00  0  CO  031551 
002  00  0  00  031551 


NON-MOTION  CONTROL  TESTS 

SU8TTL  NON-MOTION  CONTROL  TESTS 

*  TEST    8,N0P  COMMAND, 0,0,1  .......... 


SEQ  0207 


*  DFDXD  ♦  TEST  8  * 


NOP  COMMAND 


XALL 

JSP  1,SETREP             ;SET  UP  REPEAT  LOOP 

TST8:   MOVEI  F,(BYTE  (1)  0,0,1,010  (14)  *D<8» 

GO  SETUP                .-SETUP  SUBSYSTEM> 

;*  Send  a  nop  command  to  the  dx20. 

;*  Check  that  no  error  conditions  occur. 


;Send  the  nop  command 
;Go  wait  for  completion 


NOP 

GO     U800MS 

ERROR  TST  0  0  0  * 
TIME-OUT  WHILE  WAITING  FOR  TOMPLETION  OF  NOP  COMMAND, ,ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     DXSTCK  ;Go  check  dx20  status 

ERROR  TST  0  0  0  * 
NOP  COMMAND  CAUSED  DxJo' COMPOSITE  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


•/ 


/ 


-_J 
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031563 
031 56A 
031 565 


DFDXDM     MAC 


2152 

2153 

21 5A 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

21 6A 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

21 7A 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 
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SeQ   0208 


265  01  0  00  0A3410 
201  10  0  00  100011 
260  17  0  00  036657 


031 566 

031 567 

031 570 

031 571 

031 572 
031573 
031 574 
031575 

031 576 
031577 
031600 
031601 
031602 
031603 

031604 
031605 
031606 
031607 
031610 

031611 
031612 
031613 


004  00  0  00  000005 
260  17  0  00  037614 


036  00 

035  00 
026  01 
602  01 
254  00 
201  07 

036  00 
035  00 
026  02 
602  01 
254  00 
2u!  07 


0  00  053042 
0  00  031564 
0  00  000000 
0  00  040000 
0  00  031577 
0  00  000004 

0  00  053062 
0  00  031564 
0  00  000000 
0  00  000001 
0  00  031605 
0  00  000004 


036  00  0  00  053100 

035  00  0  00  031564 
606  01  0  00  177776 
254  00  0  00  031612 
201  07  0  00  000004 

036  00  0  00  053116 
035  00  0  00  031564 
002  00  0  00  031564 


TEST    9JLLE6AL  COMMAND, 0,0J 
)*  DFDXD  *  TEST  9  *     ILLEGAL  COMMAND 
XALL 

JSP    USETREP  ;SET  UP  REPEAT  LOOP 

TST9:   MOVEI   F,(8YTE  (1)  0,0J,0!0  (14)  *D<9» 

GO     SETUP  ; SETUP  SUBSYSTEM> 


;*  Send  an  lUeaal  function  code  (2)  to  the  dx20. 

;*  Verify  that  composite  error  and  lUeral  function  (ilf) 


are  set. 


;Send  illegal  fn  code 
;Wait  for  completion 


ILLFCN 

GO  U800MS 

ERROR  TST  0  0  0  * 
TIME-OUT  WHILE  WAITInG  FOR  RESPONSE  TO  ILLEGAL  FUNCTION  REQUEST,, ERPNT 

ERLOOP  TST  ;If  error-  loop  to  TST 

RDREG  DXSTR  ;Read  dx20  status  reg 

TRNE  AC1,CERR  ;Skip  if  no  composite  error 

JRST  .^i  .-Else,  jump  over  error  message 

MCVEI  ERRFND-CERRER  ;Set  comp  error  flag 

E'^ROR  TST  0  0  0  * 

SENDING  ILLEGAL  FUNCTION  CODE  2  TO  DX20  DID  NOT  GENERATE  A  COMPOSITE  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

RDREG  DXERR  ;Read  error  reg 

TRNE  AC1,ILF  ;Skip  if  ilf  didn't  set 

JRST  .+3  ;Else,  jump  over  error  message 

MOVEI  ERRFND.CERRER  ;Set  comp  error  flag 

ERROR  TST  0  0  0  * 

SENDING  ILLEGAL  FUNCTIoN  CODE  2  TO  DX20  DID  NOT  CAUSE  ILF  TO  SET,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

TRNN  ACl, 177776  ;S'^ip  if  bits  besides  ilf  aren't  clear 

JRST  .•»-3  .-Else,  jump  over  error  message 

MOVEI  ERRFND^CERRER  ;Set  romp  error  flag 

ERROR  TST  0  0  0  * 
MORE  THAN  ILF  SET  IN  DXiPft  OHEN  ILLEGAL  FUNCTION  CODE  WAS  SENT,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


VYVAV 

DFDXDM 

MAC 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

0316K 

2200 

031615 

2201 

031616 

2202 

2203 

2204 

2205 

031617 

2207 

031620 

2208 

031621 

2209 

031622 

2210 

031623 

2211 

031624 

)  MAGNETIC  TAPE 
6-Apr-85  18:38 


SUBSYSTEM  DIAGNOSTIC  (RH20) 

NON-MOTION  CONTROL  TESTS 


VERSION  0.5 


MACRO  3:53A(1152)   18:38     6-Apr-85  Page  15 


SEQ  0209 


265  01  0  00  043410 
201  10  0  00  100012 
260  17  0  00  036657 


027  02  0  00  000000 

405  01  0  00  ^77777 

302  01  0  00  OOOUO 

036  03  0  00  053140 

035  00  0  00  031615 

002  00  0  00  031615 


TEST  10, EXTENDED  STATUS  TABlE  SI2E,0,0J 

;*  DFDXD  *  TEST  10  *    EXTENDED  STATUS  TABLE  SIZE 

XALL 

JSP  1,SETREP  ;SET  UP  REPEAT  LOOP 

TST10:  MOVEI  F,(BYTE  (1)  0,0,1, OiO  (14)  *D<10» 

GO  SETUP  .-SETUP  SUBSYSTEM> 

;♦  Verify  that  the  extended  status  table  size  is  correct. 

RDREG  DX6P2  ;Read  si?c 

ANDI  AC1, 177777  ;Isolate  ft 

CAIE  AC1,120  ;Skip  if  correct 

ERROH  TST, 3, [120], AC1, EXTENDED  STATUS  TABLE  SIZE  IS  INCORRECT 

ERLOOP  TST  ;If  errur,  loop  to  TST 

REPEAT  TST 


OFDXD 
DFDXDM 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 
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TEST    11, DRIVE  CLEAR, 0,0,1 

;*  DFDXD  *  TEST  11  ♦    DRIVE  CLEAR 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TSTll:  MOVEI   F,(BYTE  (1)  0,0,1,010  (U)  ^D<11» 

GO     S^TUP  ; SETUP  SUBSYSTEM> 

;•  Issue  a  drive  clear  cofflmand  to  dx20. 

;*  Check  that  *go'  bit  clears  and  all  regs  that  are  supposed  to  get 

;*  Cleared  do  get  cleared. 


SEQ  0210 


031625 
031626 
031627 


265  01  0  00  043410 
201  10  0  00  100013 
260  17  0  00  036657 


031630 
031631 
031632 
031633 
031634 
031635 
031636 

031637 
031640 
031641 
031642 
031643 
031644 
031645 
031646 
031647 
031650 
031651 
031652 
031653 
031654 
031655 
031656 
031657 
031660 
031661 
031662 
031663 
031664 
031 665 
031666 
031667 
031670 
031671 
031672 
031673 
031674 


004  00  0 

200  02  0 
026  00  0 
606  01  0 
254  00  0 
367  02  0 

201  07  0 

036  00  0 
035  00  0 
402  00  0 

026  02  0 
602  01  0 
476  00  0 

027  00  0 
6u^  01  0 
476  00  0 
027  01  0 
602  01  0 
476  00  0 
027  03  0 
602  01  0 
476  00  0 
027  04  0 
602  01  0 
476  00  0 
02'  05  0 
602  01  0 
476  00  0 
027  06  0 
602  01  0 
476  00  0 
027  07  0 


602  01 
476  00 
536  00 
254  00 
402  00 


0 
0 
0 
0 
0 


00  00001 1 
00  065300 
00  000000 
00  000001 
00  031640 
00  031632 
00  020000 

00  053162 
00  031626 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000000 
00  U7777 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000000 
00  U7777 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000000 
00  ^77777 
00  000007 
00  000007 
00  03(676 
00  000007 


DRVCLR 

MOVE  AC2,MS800 

GOUAIT:  RDREG  DXCTR 

TRNN  AC 1,60 

JRST  DRCLER^l 

S0J6  AC2, GOUAIT 

MOVEI  ERRFND.TOERR 

DRCL^R:  ERROR  TST, 0,0,0,* 

Tir.  OUT  yHILE  WAITING  FOR  GO  TO  CLEAR 

ERLOOP  TST 

SET2M  ERRFND 

RDREG  DXERR 

TRNE  AC 1,1 77777 

SETOM  ERRFND 

RDREG  DXGPO 

TRNE  AC 1,1 77777 

SETOM  ERRFND 

RDREG  DXGPl 

TRNE  AC 1,1 77777 

SETOM  ERRFND 

RDREG  DXGP3 

TRNE  AC 1,1 77777 

SETOM  ERRFND 

RDREG  DXGP4 

TRNE  AC1,1 77777 

SETPM  ERRFND 

ROREG  DXG;^5 

TRNE  AC 1,1 77777 

SE"OM  ERRFND 

RDREG  DX6P6 

TRNE  AC  i'  1777^7 

SETOM  ERRFND 

RDREG  DXGP7 

TPM  ^aJ77777 

SETOM  ERRFND 

SKIPN  ERRFND 

JRST  .+5 

SETZM  ERRFND 

ERROR  TST, 0,0,0,* 


.'Issue  a  drive  clear  command 

;Get  wait  time 

;Wait  for  go  to  clear 

;Skip  if  go  still  set 

;Else,  go  check  regs 

;Keep  waiting 

;Set  timeout  error  flag 

AFTER  DRIVE  CLEAR  CMD,,ERPNT 
If  error,  loop  to  TST 
Clear  error  fouHw  flag 
Read  error  reg 
Skip  if  cleared 
Set  error  found 

Read  drive  status  &  status  index 
Skip  if  cleared 
Set  error  found 

Read  mode  and  drive  number  reg 
Skip  if  cleared 
Set  error  found 
Read  flags  reg 
Skip  if  cleared 
Set  error  found 
Read  asynchronous  status  reg 
Skip  if  cleared 
Set  error  found 
Read  byte  count  reg 
Skip  if  cleared 
Set  error  found 
read  ext  statu:  reg  0 
Skip  if  clec'-ec' 
Set  error  found 
Read  ext  status  reg  1 
Skip  if  cleared 
Set  error  found 
Skip  if  all  rejs  not  cleared 
All  regj  cleared 
Clear  error  flag  reg  for  printout 


031675  036  00  0  00   053176     NOT  ALL  REGISTERS  CLEARED  AFTER  DRIVE  CLEAR  COMMAND,, ERPNT2 
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2267  031676  035  00  0  00  031626  ERLOOP  TST  ;If  error,  loop  to  TST 

2268  031677  002  00  0  00  031626  REPEAT  TST 
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SEQ  0212 


2269 

2270 

2271 

2272 

2273 

'!274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

?288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 


031700 
031701 
031 702 


265  01  0  00  043410 
201  10  0  00  100014 
260  17  0  00  036657 


031 703 
031704 
031705 
031 706 
031707 

031710 
031711 
031712 
031713 

031714 
031715 
031716 


402  00  0  00  065243 

201  00  0  00  006000 

202  00  0  00  065242 
004  00  0  00  000045 
260  17  0  00  037614 

036  00  0  00  053217 

035  00  0  00  031701 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053225 
03?  00  0  00  031701 
002  00  0  00  031701 


TEST    12, SENSE  COMMAND, 0,0J 

;*  DFD.^D  *  TEST  12  *    SENSE  COMMAND 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST12:  MOVEI   F,(8YTE  (1)  0,0J,0!0  (14)  '^D<12» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

':*   Send  a  sense  command  to  the  dx20  and  verify  that 

;*     (1)  The  ext  status  request  bit  and  ext  status  index  are  zeroed 

;•     (2)  The  tape  drive  status  is  correct  -  channel  and  device  end. 

;*     (3)  The  sense  bytes  are  the  same  as  those  read  by  the  microdiagnostic. 


SETSTA  0,CHLEND+DEVEND 

SETZM  DXEREX 

MOVEI  CHLEND+DEVEND 

MOVEM  DRVEXP 

SENSE 

GO  U800MS 


; Setup  expected  status 

;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STOfiE  IT 
;Do  a  sense 
;Uait  for  completion 


ERROR   TST  0  0  0  * 

TIME-OUT  WHILE  WAITING  FOR  SENSE  COMMAND  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STAChX  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR  TST,0,0,0,'^ 
STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 
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SEQ  0213 


2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 


031717 
031720 
031721 


265  01  0  00  043410 
201  10  0  00  100015 
260  17  0  00  036657 


031 722 

031 723 
031724 
031725 
031726 

031727 
031730 
031731 
031732 

031733 
031734 
031735 


402  00  0  00  065243 

201  00  0  00  006000 

202  00  0  00  065242 
004  00  0  00  400001 
260  17  0  00  037614 

036  00  0  00  053247 

035  00  0  00  031720 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053252 
035  00  0  00  031720 
00?  00  0  00  031720 


TEST  13,N0P  WITH  FORCED  SENSE, 0,0J 

*  DFDXD  *  TEST  13  *    NOP  WITH  FORCED  SENSE 

XALL 

JSP  KSETREP             ;SET  UP  REPEAT  LOOP 

TST13:  MOVEI  F,(8YTE  (1)  0,0J,0!0  (14)  *D<13» 

GO  SETUP               ; SETUP  SUBSYSTEM> 

*  Send  a  nop  command  to  the  dx20  with  the  forced  sense  bit  set. 

*  Check  that  the  forced  sense  bit  gets  cleared  and  that  the  sense  data 

*  Gets  read. 


SETSTA  O^CHLEND+DEVEND 

SETZM  DXEREX 

MOVEI  CHLEND+DEVEND 

MOVEM  DRVEXP 

NOPF 

GO  W800MS 


;Seti  T  expected  status 

;SET  UXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
;Do  a  forced  sense  nop 
;Wait  for  completion 


ERROR   TST  0  0  0  * 

TIME-OUT  WHILE  WAITING  FOR  ROP  COMMAND  COMPLETION,,ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR  TST, 0,0,0,* 
STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


DFDXD 
DFDXDM 

2331 

2332 

2333 

233A 

2335 

2336 

2337 

2338 

2339 

23A0 

23A1 

23A2 

23A3 

23A4 

23A5 

23A6 

23A7 

23A8 

23A9 

2350 

2351 

2352 

2353 

235A 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

236A 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

237A 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 
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TEST         1A, SENSE  RESERVE/SENSE  RELEASE, 0,0,1 

;*     DFDXD  *  TEST  14  *         SENSE  RESERVE/SENot  RELEASE 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST1A:  MOVEI   F,(8YTE  (1)  0,0,1,010  (l4)  *D<14» 

GO     SETUP  .-SETUP  SUBSYSTEM> 

;*  Check  that  a  sense  reserve  command  sets  tcu  reserved  bit  in  sense 

;•  Byte  9  and  a  sense  release  command  clears  that  bit. 

;♦  This  test  is  only  done  if  the  tcu  has  the  2  channel  switch  option. 


SEQ  0214 


031736 
031737 
031740 


265  01  0  00  043410 
201  10  0  00  100016 
260  17  0  00  036657 


031741 
031742 
031743 

031744 
031745 
031746 
031747 
031750 
031751 
031752 
031753 

031754 
031755 
031756 
031757 

031 760 
031761 

031762 
031 763 
031764 
031765 
031766 
031 767 
031770 

031771 
031772 
031773 
031774 

031775 
G31776 
031777 
032000 


200  00  0  00  1260A3 
607  00  0  00  001000 
254  00  0  00  032000 


402  00 

201  00 

202  00 
205  00 
A30  00 
202  00 
004  00 
260  17 


0  00  065243 
0  00  006000 
0  00  065242 
0  00  000004 
0  00  126041 
0  00  126033 
0  00  400047 
0  00  037614 


036  00  0  00  053276 
03?  00  0  00  031737 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053306 
035  00  0  00  031737 


402  00  0 

201  00  0 

202  00  0 
200  00  0 
202  00  0 
004  00  0 
260  17  0 


00  065243 
00  006000 
00  06524? 
00  126041 
00  126033 
00  400013 
00  037614 


036  00  0  00  053323 

035  00  0  00  031737 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053333 
035  00  0  00  031737 
002  00  0  00  031737 


MOVE 

TLNN 

JRST 

SETSTA 

SETZM 

MOVEI 

MOVEM 

MOVSI 

XOR 

MOVEM 

SNSRSF 

GO 

ERROR 

TIME-OUT  WHILE 
ERLOOP 
GO 

SKIPE 
ERROR 

SENSE  RESERVE 
ERLOOP 
SETSTA 
SETZM 
MOVEI 
MOVEM 
MOVE 
MOVEM 
SNSRLF 
GO 
ERROR 

TIME-OUT  WHILE 
ERLOOP 
GO 

SKIPE 
ERROR 

SENSE  RELEASE 
ERLOOP 
REPEAT 

N02CSW: 


SNSC5 

(TWOCSW) 

N02CSW 

0,CHLEND+DEVEND,, 

DXEREX 

CHLEND+DEVEND 

DRVEXP 

(TCURSV) 

SNSC3 

SNSEX3 

W800MS 

TST,0,0,0,\ 
WAITING  FOR  SENSE 
TST 

STACHK 
ERRFND 
TST, 0,0,0,* 
STATUS  ERROR, TERPNT 
TST 

0, CHLEND+DEVEND,, 
DXEREX 

CHLEND+DEVEND 
DRVEXP 
SNSC3 
SNSEX3 

W800MS 

TST,0,0,0,\ 
WAITING  FOR  SENSE 
TST 

STACHK 
ERRFND 
TST, 0,0,0,* 
STATUS  ERROR,, ERPNT 
TST 
TST 


;Read  constant  sense  byte  5 
;Skip  if  tcu  has  2  chan  sw 
;Else  jump  around  this  test 
, TCURSV  .-Setup  expected  status 

.-SET  DXERR  EXPECTED  STATUS  = 
;SETUP  EXPECTED  TAPE 
:AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  3  » 
.-ADD  CONSTANT  BITS  > 
.-PUT  IN  EXPECTED  FABLE  > 
.-Do  a  sense  reserve  with  forced 
;Wait  for  completion 

RESERVE  COMMAND  COMPLETION,, ERPNT 
;If  error,  loop  to  TST 
.-Go  check  status 
.-Skip  if  no  errors  found 


0> 
DRIVE 


STATUS 


sense 


,If  error,  loop  to  TST 
.0    .'Setup  expected  status 

SET  DXERR  EXPECTED  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  3  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Do  a  sense  release  with  forced  sense 
.-Wait  for  completion 

RELEASE  COMMAND  COMPLETION,, ERPNT 
.-If  error,  loop  to  TST 
.-Go  check  status 
.-Skip  if  no  errors  found 


;If  error,  loop  to  TST 
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SEQ  0215 


2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 


032000 
032001 


032002 
032003 
032004 


032005 
032006 
032007 
032010 
03201 1 

032012 
032013 
032014 
032015 
032016 

032017 
032020 
032021 
032022 

032023 
032024 
032025 
032026 

032027 
032030 
032031 
032032 
032033 
032034 
032035 
032036 
032037 
032040 
032041 


260  17  0  00  036657 
260  17  0  00  046730 


265  01  0  00  043410 
201  10  0  00  100017 
260  17  0  00  036657 


402  00  0  00  065243 

201  00  0  00  004000 

202  00  0  00  065242 
004  00  0  00  000007 
260  17  0  00  037614 

036  00  0  00  053360 

035  00  0  00  032003 
260  17  0  00  037771 
260  17  0  00  037113 
53i  00  0  00  000007 

036  00  0  00  053370 
035  00  0  00  032003 
200  00  0  00  126077 
435  00  0  00  102000 

202  00  0  00  065217 
254  00  0  00  032026 
033  04  0  00  000000 
260  17  0  00  037620 


036  00 
035  00 
260  17 
027  04 
135  00 
312  00 
254  00 
405  01 
316  01 
254  00 
201  07 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


053407 
032003 
037771 
000000 
052715 
126077 
032025 
^77777 
065217 
032043 
001000 


032042  036  00  0  00  053422 


SUBTTL  MOTION  CONTROL  COMMANDS  TESTS 

GO  SETUP 

GO  DEVREQ 

TEST  15, REWIND  FOR  TWO  INTERRUPTS, 0,0 J 

;*  DFDXD  *  TEST  15  *    REWIND  FOR  TWO  INTERRUPTS 

XALL 

JSP     1,SETREP  :SET  UP  REPEAT  LOOP 

TST15:  MOVEI   F,(BYTE  (1)  0,0,1,010  (14)  *D<15» 

60     SETUP  ; SETUP  SUBSYSTEM> 

;*  Do  a  rewind  and  check  that  two  interrupts  are  received,  one  for 
;*  This  initial  channel  end  status  and  one  for  the  final  asynchronous 
;*  Device  end  status. 


SETSTA 

SET2M 

MOVEI 

MOVEM 

RWD 

GO 

ERROR 


0,CHLEND 
DXEREX 
CHLEND 
DRVEXP 

W800MS 
TST, 0,0,0,* 


; Setup  expected  status 

;SET  DXERR  EXPECTED  STATUS  =  0> 

; SETUP  EXPECTED  TAPE  DRIVE  STATUS 

;AND  STORE  IT 

:Send  rewind  command 

;Wait  for  channel  end  status 


TIME  OUT  WHILE  WAITING  FOR  INITIAL  STATUS  AFTER  REWIND  COMMAND,, ERPNT 


ERLOOP  TST 

GO  CLRATA 

60  STACHK 

SKIPE  ERRFND 

ERROR  TST,0,0,0,'^ 

INITIAL  STATUS  REWIND  ERROR,, ERPNT 

ERLOOP  TST 

MOVE  DRVADR 

lORI  60TDND 


MOVEM 
JRST 
RWKPWT:  LDREG 
GO 
ERROR 


ASYNEX* 

DXGP4,0 
W70SEC 
TST, 0,0,0,* 


;If  error,  loop  to  TST 
;Go  clear  attention 
;Go  check  status 
;Skip  if  no  errors  found 


;If  error,  loop  to  TST 

;Get  drive  addr 

;Create  expected  asynch  status 

;of  BOT  and  device  end  [0.5] 

; Store  it 

;Clear  asynch  status 

;Wait  for  asynch  status  attt.ition 


TIME  OUT  WHILE  WAITInG  fOR  ASYNCH  ENDING  STATUS  AFTER  REWIND  COMMAND, , ERPNT 


ERLOOP  TST 

GO  CLRATA 

RDREG  DXGP4 

LDB  ACO, [POINT  8,AC1,35] 

CAME  ACO, DRVADR 

JRST  RWKPWT 

ANDI  AC1,1 77777 

CAMN  AC1,ASYNEX 

JRST  .-►3 

MOVEI  ERRFND.ASYNER 

ERROR  TST, 0,6,0/ 


If  error,  loop  to  TST 

Go  clear  attention 

Read  asynch  status 

Get  tape  drive  number 

Skip  if  correct 

Else,  keep  waiting 

Clear  all  but  asynch  status 

Skip  if  not  expected  asynch  status 

Status  okay 

Set  asynch  error  bit 


ASYNCHRONOUS  ENDING'stATuS  ERROR  AFTER  REWIND, , ERPNT 
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2AA0 

0320A3 

035  00  0  00  032003 

24A1 

0320AA 

A05  0^  0  00  tlllll 

24A2 

0320A5 

202  01  0  00  065217 

2AA3 

0320A6 

002  00  0  00  032003 

2A44 

2AA5 

0320A7 

200  00  0  00  1260A0 

2AA6 

032050 

620  00  0  00  007760 

2AA7 

032051 

202  00  0  00  1260A0 

2AA8 

2AA9 

2A50 

2A51 

2A52 

2A53 

2A5A 

2A55 

032052 

265  01  0  00  0A3A10 

2A56 

032053 

201  10  0  00  100020 

2A57 

03205A 

260  17  0  00  036657 

2A58 

2A59 

2A60 

2A61 

2A62 

2A63 

2A6A 

032055 

A02  00  0  00  065243 

2A65 

032056 

201  00  0  00  000000 

2A66 

032057 

202  00  0  00  0652A2 

2A67 

032060 

200  00  0  00  053A31 

2A68 

032061 

A30  00  0  00  126037 

2A69 

032062 

20?  00  0  00  126031 

2A70 

032063 

2uJ  00  0  00  1260AO 

2A71 

03206A 

202  00  0  00  126032 

2A72 

032065 

004  00  0  00  400041 

2A73 

032066 

260  17  0  00  037614 

2A7A 

2A75 

032067 

036  00  0  00  053444 

2A76 

032070 

035  00  0  00  032053; 

2A77 

032071 

260  17  0  00  037113 

2A78 

032072 

332  00  0  00  000007 

2A79 

2A80 

032073 

036  00  0  00  053447 

2A81 

03207A 

035  00  0  00  032053 

2A82 

032075 

002  00  0  00  032053 

ERLOOP 
ANDI 
MOVEM 
REPEAT 

MOVE 

TRZ 

MOVEM 


TST 

AC1, 677777 

ACUASYNEX 

TST 

SNSC2 

7760 

SNSC2 


;If  error,  loop  to  TST 

; Clear  bot  in  expected  CO. 5] 

;Asynchronus  status  CO. 5] 


;Get  constant  sense  word  2 
; Clear  sense  byte  7 
.-Store  It 


TEST    16. TEST  1/0.0.0.1 
;*  DFDXD  *  TEST  16  *    TEST  I/O 


TST16: 


XALL 

JSP 
MOVE  I 
GO 


1.SETREP  ;SET  UP  REPF^  ^OOP 

F.(BYTE  (1)  0.0.1.010  (14)  *D<16» 

SETUP  .-SETUP  SUBS  jiEM> 


;*  Send  a  test  i/o  command  to  the  dx20  with  the  forced  sense  bit  set. 

• 

Setup  expected  status 
SET  DXERR  EXPECTED  STATUS  =  0> 
SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 
.-SET  UP  EXPECTED  SENSE  WORD  1  » 
ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Do  a  test  i/o  with  forced  sense 
Wait  for  completion 

TIME-OUT'WHILE  WAITINGFOR  TEST  I/O  COMMAND  COMPLETION.. ERPNT 


SETSTA 

O.O.BOT+BKWD.O 

SETZM 

DXEREX 

MOVE  I 

0 

MOVEM 

DRVEXP» 

MOVE 

CeOT+BKWD] 

XOR 

SNSC1 

MOVEM 

SNSEX1 

MOVE 

SNSC2 

MOVEM 

SNSEX2 

TSTIOF 

GO 

W800MS 

ERROK 

TST.O.O.O.\ 

ERLOOP  TST 

GO  STACHK 

SKIPE  ERRFND 

ERROR  TST.O.0.0.* 
STATUS  ERROR.. ERPNT 

ERLOOP  TST 

REPEAT  TST 


If  e^^or.  loop  to  TST 

Go    ck  status 

Skip  f  no  errors  found 


;If  error,  loop  to  TST 
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SEQ  0217 


2A83 

2A8A 

2A85 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 


032076 
032077 
032100 


032101 
032102 
032103 
032104 
032105 
032106 
032107 
032110 

032111 
032112 
032113 
032114 

032115 
032116 
032117 


265  01  0  00  043410 
201  10  0  00  100021 
260  17  0  00  036657 


402  00 

201  00 

202  00 
205  00 
430  00 
202  00 
004  00 
260  17 


0  00  065243 
0  00  002000 
0  00  065242 
0  00  000020 
0  00  126037 
0  00  126031 
0  00  400025 
0  00  037614 


036  00  0  00  053473 

035  00  0  00  032077 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053476 
03>  00  0  00  032077 
002  00  0  00  032077 


TEST    17, ERASE  GAP  FROM  LOAD  POINT, 0,0J 
••  •**••**•*•*•**•**•*•*••*••**•**•**•*•••••*•*••*••••**•••*•**♦•*••***** 

)*  DFDXD  *  TEST  17  *    ERASE  GAP  FROM  LOAD  POINT 
XALL 

JSP     nSETREP  ;SET  UP  REPEAT  LOOP 

TST17:  MOVEI   F,(BYTE  (1)  0,0J,0!0  (14)  '^D<17» 

60     SETUP  .-SETUP  SUBSYSTEM> 

':*   Do  an  erase  gap  command  and  check  that  bot  clears. 

Setup  expected  status 
ScT  DXERR  EXPECTED  STATUS  =  0> 
SETUP  EXPECTED  TAPE  DRIVE  STATUS 
.AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 
ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Do  an  erase  gap  with  forced  sense 
Wi  it  for  completion 

TIME-OUT'WHILE  WAITINGFOR  ERASE  GAP  COMMAND  COMPLETION,, ERPNT 
ERLOOP  TST  ;If  error,  loop  to  TST 

60     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   TST,0,0,0,'^ 

STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error.  Loop  to  TST 

REPEAT  TST 


SETSTA 

0,DEVEND,WRSTAT 

SETZM 

DXEREX 

MOVEI 

DEVEND 

MOVEM 

DRVEXP 

MOVSI 

(WRSTAT) 

VOR 

SNSC1 

hOVEM 

SNSEX1 

ERS6PF 

60 

U800MS 

ERROR 

TST, 0,0,0,*. 
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SEQ  0218 


2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 


032120 
032121 
032122 


032123 
032124 
032125 
032126 
032127 

032130 
032131 
032132 
032133 
032134 

032135 
032136 
032137 
032140 

032141 
032142 
032143 
032144 

032145 
032146 
032147 
032150 
032151 
032152 
032153 
032154 
032155 
032156 
032157 
032160 

032161 
032162 
032163 
032164 


265  01  0  00  043410 
201  10  0  00  100022 
260  17  0  00  036657 


402  00  0  00  065243 

201  00  0  00  004000 

202  00  0  00  065242 
004  00  0  00  000007 
260  17  0  00  037614 

036  00  0  00  053506 

035  00  0  00  032121 
260  17  0  00  037771 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  CO  053516 
035  00  0  00  032121 
200  00  0  00  126077 
43?  00  0  00  102000 

202  00  0  00  065217 
254  00  0  00  032144 
033  04  0  00  000000 
260  17  0  00  037620 


036  00  0 
035  00  0 
260  17  0 
027  04  0 
135  00  0 


312  00 
254  00 
033  04 
405  01 
316  01 
254  00 
201  07 


0 
0 
0 
0 
0 
0 
0 


00  053521 
00  032121 
00  037771 
00  000000 
00  052715 
00  ^2^077 
00  032143 
00  000000 
00  ^77777 
00  065217 
00  032162 
00  001000 


036  00  0  00  053524 
035  00  C  00  032121 
405  01  0  00  677777 
202   01  0  00  065217 


TEST    18, REWIND  STATUS, 0,0,1 
••  *♦»*•**•*•*•********•*•♦•****•*•*•*••*•*•*•••••••**••*••*♦•*••***••*** 

;*  DFDXD  *  TEST  18  *    REWIND  STATUS 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST18:  MOVEI   F,(8YTE  (1)  0,0,1,0!0  (14)  ^D<18» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

;*  Do  a  fA^wind  and  check  that  tape  moves  to  bot. 

Setup  expected  status 

SET  DXERR  EXPECTED  STATUS  =  0> 

SETUP  EXPECTED  TAPE  DRIVE  STATUS 

AND  STORE  IT 

Send  rewind  command 

Wait  for  channel  end  status 

TIME  OUT'WHILE  WAITINGFOR  INITIAL  STATUS  AFTER  REWIND  COMMAND,, ERPNT 


SETSTA 

0,CHLEND 

SETZM 

DXEREX 

MOVEI 

CHLEND 

MOVEM 

DRVEXP 

RWD 

60 

W800MS 

ERROR 

TST,0,0,0,\ 

ERLOOP  TST 

60  CLRATA 

60  STACHK 

SKIPE  ERRFND 

ERROR  TST, 0,0,0,* 

REWIND  INITIAL  STATUS  ERR0R:,ERPNT 

ERLOOP  TST 

MOVE  DRVADR 

lORI  BOTDND 

MOVEM  ASYNEX# 

JRST  .+2 

RWKPW:  LDREG  DXGP4,0 

60  W70SEC 

ERROR  TST,0,0,0,'^ 


;If  error.  Loop  to  TST 
;Go  clear  attention 
;Go  check  status 
;Skip  if  no  errors  found 


;If  error,  loop  to  TST 

;6et  drive  addr 

.-Create  expected  asynch  status 

;of  BOT  and  device  end  CO. 5] 

; Store  it 

; Clear  asynch  status 

;Wait  for  asynch  status  attention 


TIME  OUT  WHILE  WAITING  FOR  ASYNCH  ENDING  STATUS  AFTER  REWIND  COMMAND,, ERPNT 


ERLOOP 

60 

RDREG 

LDB 

CAME 

JRST 

LDREG 

AND  I 

CAMN 

JRST 

MOVEI 

ERROR 


TST 

CLRATA 

DX6P4 

AC0,CPOINi  8,AC1,35] 

ACO, DRVADR 

RWKPW 

DX6P4-0 

AC1, 1?7777 

AC1,ASYNEX 

."^3 


If  error,  loop  to  TST 

6o  clear  attention 

Read  asynch  status 

Get  tape  drive  number 

Skip  if  correct 

Else,  keep  waiting 

Clear  asynch  status 

Clear  all  but  asynch  status 

Skip  if  not  expected  asynch  status 

Status  okay 

Set  asynch  error  bit 


ERRFND.ASYNER 
..w,w.,   TST, 0,0-0, \ 
ASYNCHRONOUS  ENDING  STATUS  ERROR  AFTER  REWIND, , ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

ANDI    AC1, 677777  ;Clear  bet  in  expected  [0.5] 

MOVEM   ACl.ASYNEX  ;Asynchronus  status  CO. 5] 

SETSTA  0,DEVEND^CHLEND,BOT+BKWD,0 
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SEQ  0219 


2570 

2571 

2572 

2573 

2574 

2575 

2576 

257'^ 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

260^ 

260: 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 


032165 
032166 
032167 
032170 
032171 
032172 
032173 
032174 
032175 
032176 

032177 
032200 
032201 
032202 

032203 
032204 


032205 
032206 
032207 
032210 

03221 1 
032212 
032213 
032214 

032215 
032216 
032217 
032220 
032221 

032222 
032223 
032224 
032225 
032226 

032227 
032230 

032231 
032232 
032233 
032234 
032235 
032236 


402  00 

201  00 

202  00 
200  00 
430  00 
202  00 
200  00 
202  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
006000 
065242 
053431 
126037 
126031 
126040 
126032 
000045 
037614 


036  00  0  00  053527 

035  00  0  00  032121 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053542 
035  00  0  00  032121 


201  00  0  00  000010 

202  00  0  00  065303 
004  00  0  00  000025 
260  17  0  00  037614 

036  00  0  00  053556 
03?  00  0  00  032121 

201  00  0  00  000001 

202  00  0  00  065303 

402  00  0  00  065243 

201  00  0  00  004000 

202  00  0  00  065242 
004  00  0  00  000007 
260  17  0  00  037614 

036  00  0  00  053506 

035  00  0  00  032121 
260  17  0  00  037771 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053516 
035  00  0  00  032121 

20 i  00  0  00  010600 

202  00  0  00  065243 

201  00  0  00  010000 

202  00  0  00  065242 
200  00  0  00  053431 
430  00  0  00  126037 


SETZM 

MOVE  I 

MOVEM 

MOVE 

XOR 

MOVEM 

MOVE 

MOVEM 

SENSE 

60 

ERROR 

TIME-OUT  WHILE 
ERLOOF 
60 

SKIPE 
ERROR 

INCORRECT  SENSE 
ERLOOP 


DXEREX 

DEVEND+CHLEND 

DRVEXP 

CBOT+BKWD] 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

U800MS 

TST,0,0,0,\ 
WAITING  FOR  SENSE 
TST 

STACHK 
ERRFND 

TST,0,0,0,\ 
COMMAND  STATUS  AF 
TST 


;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 
;ADD  CONSTANT  BITS  > 
;PUT  IN  EXPECTED  TABLE  > 
.•INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
.PUT  IN  EXPECTED  TABLE  > 
:Do  a  sense  op 
;Jait  for  completion 

COMMAND  COMPi^TION,,ERPNT 

;If  ♦   or,  loop  to  TST 

;6o  check  status 

;Skip  if  no  errors  found 

TER  REWIND,, ERPNT 

;If  error,  loop  to  TST 


;*  Do  8  erase  gaps  then  do  a  rewind,  do  a  nop  while  rewinding  and 
;♦  Check  that  axbusy  status  is  received. 


MOVE  I 

MOVEM 

ERSGP 

60 

ERROR 

TIME  OUT  WHILE 
ERLOOP 
MOVE  I 
•lOVEM 
3*:TSTA 
SETZM 
MOVE  I 
MOVEM 
RWD 
60 
ERROR 

TIME  OUT  WHILE 
ERLOOP 
60 
60 

SKIPE 
ERROR 

REWIND  INITIAL 
ERLOOP 
SETSTA 
MOVE  I 
MOVEM 
MOVE  I 
MOVEM 
MOVE 
XOR 


10 
OPREPT 

W800MS 

TST,0,0,0,\ 
WAITIN6  FOR  8  FRASE 
TST 
1 

OPREPT 
0,CHLEND 
DXEREX 
CHLEND 
DRVEXP 

W800MS 

TST,0,0,0,\ 
WAITING  FOR  INITIAL 

TST 

CLRATA 

STACHK 

ERRFND 

TST, 0,0,0,*. 
STATUS  error:, ERPNT 

TST 

MPERR^EC1SB1,DXBUSY 

MPERR^ECISBI 

DXEREX 

DXBUSY 

DRVEXP 

CBOT^BKWD] 

SNSC1 


;Set  op  repeat  count  to  8 

;Do  8  erase  gaps 

.-Wait  fc  '  channel  end  status 

GAPS  TO  COMPLETE-, ERPNT 

If  error,  loop  to  TST 
Restore  op  repeat  to  1 

Setup  expected  status 

SET  DXERR  EXPECTED  STATUS  =  0> 

SETUP  EXPECTED  TAPE  DRIVE  STATUS 

AND  STORE  IT 

Send  rewind  command 

Wait  for  channel  end  status 

STATUS  AFTER  REWIND  COMMAND, , ERPNT 
;If  error,  loop  to  TST 
;Go  clear  attention 
;6o  check  status 
;Skip  if  no  errors  found 


:If  error,  loop  to  TST 
,BOT+BKWD,0 

:SETUP  EXPECTED  DXERR  STATUS 

;AND  STORE  IT> 

.-SETUP  EXPECTED  TAPE  DRIVE  STATUS 

.-AND  STORE  IT 
SET  UP  EXPECTED  SENSE  WORD  1  » 

.-ADD  CONSTANT  BITS  > 
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2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

26A0 

26A1 

2642 

26A3 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 


032237 
032240 
032241 
032242 
032243 

032244 
032245 
032246 
032247 

032250 
032251 
032252 
032253 
032254 

032255 
032256 
032257 
032260 
032261 
032262 
032263 
032264 

032265 
032266 
032267 
032270 
032271 
032272 
032273 
032274 
032275 
032276 
032277 

032300 
032301 
032302 
032303 


202  00  0  00  126031 
200  00  0  00  126040 
202  00  0  00  126032 
004  00  0  00  400001 
260  17  0  00  037614 

036  00  0  00  053561 

035  00  0  00  032121 
260  17  0  00  037113 
332  00  0  CO  000007 

036  00  0  00  053571 
035  00  0  00  032121 
032  02  0  00  000000 
200  00  0  00  126077 
435  00  0  00  102000 


202  00 
027  04 
602  01 
254  00 
260  17 
254  00 
033  04 
260  17 

036  00 
035  00 
260  17 
027  04 
1 3?  00 
312  00 
254  00 
405  01 
316  01 
254 
201 


00 
07 


0  00  065217 
0  00  000000 
0  00  Mllll 
0  00  032271 
0  00  037771 
0  00  032264 

0  00  onooQQ 

0  00  0  '620 

0  00  053607 
0  00  032121 
0  00  037771 
0  00  000000 
0  00  052715 
0  00  126077 
0  00  032263 
0  00  \11111 
0  00  065217 
0  00  032301 
0  00  001000 


036  00  0  00  053622 
035  00  0  00  032121 
033  04  0  00  000000 
402  00  0  00  065217 


032304  002  00  0  00  032121 


MOVEM  SNSEX1 

MOVE  SNSC2 

MOVEM  SNSEX2 

NOPF 

GO  U800MS 

ERROR  TST  0  0  0  * 

TIME-OUT  WHILE  WAITING  FOR  ROP  COMMAND 

ERLOOP  TST 

GO  STACHK 

SKIPE  ERRFND 

ERROR  TST, 0,0.0,* 
REWIND  BUSY  STATUS  ERROt<,,ERPNT 

ERLOOP  TST 

LDREG  DXERR,0 

MOVE  DRVADR 

lORI  BOTDND 


MOVEM   ASYNEX* 
RDREG   DXGP4 
TRNE    AC 1,1 77777 
JRST    CHKASY 
GO     CLRATA 
JRST    .'••2 
RWSWT:  LDREG   DXGP4,0 
GO     W70SEC 
ERROR   TST  0  0  0  * 
TIMEOUT  WHILE  WAITING'fOR'aSYNCH  STATUS 
ERLOOP  TST 

CLRATA 

DXGP4 

AC0,CPOINT  8,AC1,353 

ACO, DRVADR 

RWSWT 

ACl, 177777 

AC1,ASYNEX 

.•»-3 

ERRFND-ASYNER 
TST,0,0,0,*„ 

asynch  status  error  upon  REOIND  COMPLET 

ERLOOP  TST 
LDREG   DXGP4,0 
SETZM   ASYNEX 

REPEAT  TST 


GO 
RDREG 
CHKASY:  LDB 
CAME 
JRST 
AND  I 
CAMN 
JRST 
MOVE  I 
ERROR 
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PUT  IN  EXPECTED  TABLE  > 

INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

Do  nop  with  forced  sense 

Wait  for  completion 

COMPLETION,, ERPNT 
;If  error,  loop  to  TST 
;Go  check  status 
;Skip  if  no  errors  found 


If  error,  loop  to  TST 

Clear  error  condition 

Get  drive  addr  [0.53 

Create  expected  asynch  status 

of  BOT  and  device  end  CO. 53 

Store  it  CO. 53 

Read  asynch  status 

Skip  if  zeros  '^^  status) 

Else,  go  check  .ynch  status 

Go  clear  attent.on 

Clear  asynch  status 

Wait  for  asynch  status  attention 

FROM  REWIND  COMPLETION,, ERPNT 
If  error,  loop  to  TST 
Go  clear  attention 
Read  asynch  status 
Get  tape  drive  number 
Skip  if  correct 
Else,  keep  waiting 
Clear  all  but  asynch  status 
Skip  if  not  expected  asynch  status 
Status  okay 
Set  asynch  error  bit 


%l^  0220 


ION,, ERPNT 

;If  error,  loop  to  TST 
;Clear  asynch  status 
;Zero  asynch  expected  status 


DFDXD 
DFDXDM 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

269A 

269'- 

269 

269  z' 

269C 

2699 

2700 

2701 

2702 

2703 

2704 
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2i 


Q  0221 


032305  265  01  0  00  043A10 

032306  201  10  0  00  100023 

032307  260  17  0  00  036657 


032310 
03231 1 
032312 
032313 
0323V' 
03231 5 
032316 
032317 
032320 

032321 
032322 
032323 
032324 

032325 
032526 
032327 


201  00 

202  00 

201  00 

202  00 
200  00 
430  00 
202  00 
004  00 
260  17 


0  00  000600 
0  00  065243 
0  00  023000 
0  00  065242 
0  00  053431 
0  00  126037 
0  00  126031 
0  00  000033 
0  00  037614 


036  00  0  00  053647 

035  00  0  00  032306 
2oJ  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053652 
035  00  0  ro  032306 
002  00  0  '  0  032306 


TEST    19,8ACKSPACE  BLOCK  AT  LOAD  POINT, 0,0,1 

*  DFDXD  *  'EST  19  »    BACKSPACE  BLOCK  AT  LOAD  POINT 
XALL 

JSP     1,SETREP  ; SET  UP  REPEAT  LOOP 

TST19:  MOVEI   F,(BYTE  (1)  C,0,1,0!0  (14)  ^D<19» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

«  Do  a  backspace  block  at  load  point  and  check  that 

*  (1)  Mperr  sets  with  error  class  =10 

*  (2)  Unit  check  sets  in  tape  drive  status 

*  (3)  An  auto  sense  is  done. 

SETSTA  MPERR+EC1SB0,DEVEND+CUEND+UNICHK,B0T+BKWD 

MOVEI  MPERR+EC1SB0  ;SETUP  EXPECTED  DXERR  STATUS 

MOVEM  DXEREX  ;AND  STORE  IT> 

MOVEI  DEVEND+CUEND+UNICHK  ;SETUP  EXPECTED  TAPE  DRIVE  STATUS 

MOVEM  DRVEXP  ;AND  STORE  IT 

MOVE  CBOT^BKWD]       ;SET  UP  EXPECTED  SENSE  WORD  1  » 

XOR  SNSC1  ;ADD  CONSTANT  BITS  > 

MOVEM  SNSEX1  ;PUT  IN  EXPECTED  TABLE  > 

BSB  :Do  a  backspace  block 

GO  W800MS  ;Wait  for  completion 

ERROR  TST  0  0  0  * 

TIME-OUT  WHILC  WAITING  FOR  5ACKSPACE  BLOCK  COMMAND  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  STACHK  ;Go  check  status 

SKIPE  ERRFND  ;Skip  if  no  errors  found 

ERROR  TST,0,O,0,'' 
STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


DFDXD 
DFDXDM 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

27r 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 
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SEQ  0222 


032330 
032331 
032332 


265  01  0  00  043410 
201  10  0  00  100024 
260  17  0  00  036657 


032333 
032334 
032335 
032336 
032337 
032340 
032341 
032342 
032343 

032344 
032345 
032^  6 
032:)47 

032350 
032351 
032352 


201  00  0 

202  00  0 


201 
202 


00  0 
00  0 


200  00  0 
430  00  0 


202 
004 
260 


00 
00  0 
17  0 


00  000600 
00  065243 
00  023000 
00  065242 
00  053431 
00  126037 
00  126031 
00  000037 
00  037614 


036  00  0  00  053677 

035  00  0  00  032331 
2oJ  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053702 
035  00  0  00  032331 
002  00  0  00  032331 


TEST    20, BACKSPACE  FILE  AT  LOAD  POINT, 0,0J 

*  DFDXD  *  TEST  20  *    BACKSPACE  FILE  AT  LOAD  POINT 
XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST20:  MOVlI   F,(BYTE  (1)  0,0,1,0!0  (14)  ^D<20» 

60     SETUP  ; SETUP  SUBSYSTEM> 

t  Do  a  backspace  file  at  load  point  and  ch3ck  that 

*  (1)  Mperr  sets  with  error  class  =  1  subclass  =0 

*  (2)  Unit  check  sets  in  tape  drive  status 

*  (3)  An  auto  sense  is  done. 

SETSTA  MPERR+EC1SBO,DEVEND+CUEND+UNr^';,80T+BKWD 

MOVEI  MPERR+FC1SB0  ;SETUP  EXPECTED  DXERR  STATUS 

MOVEM  DXEREX  ;AND  STORE  IT> 

MOVEI  DEVEND+CUEND+UNICHK  ; SETUP  EXPECTED  TAPE  DRIVE  STATUS 

MOVEM  DRVEXP  ;AND  STORE  IT 

MOVE  CBOT^BKWD]       ;SET  UP  EXPECTED  SENSE  WORD  1  » 

XOR  SNofl  ;ADD  CONS  mN7  BITS  > 

MOVEM  SNSEX1  ;PUT  IN  EX-ECTED  TABLE  > 

BSF  ;Do  a  backspace  file 

GO  W800MS  ;Wait  for  completion 

ERROR  TST  0  0  0  '^ 

TIME-OUT  WHI'.E  WAITING  FOR  BACKSPACE  FILE  COMMAND  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

60  STACHK  ;Go  check  status 

SKIPE  ERRFND  ;Skip  if  no  errors  found 

ERROR  TST, 0,0,0,* 
STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


mmmmi0imm'iiii>i*imimmmm 


Mi*M«l«MM«M 
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SEQ  0223 


27A1 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 


032353 
032354 
032355 


265  01  0  00  043410 
201  10  0  00  100025 
260  17  0  00  036657 


032356 
032357 
032360 
032361 
032362 
032363 
032364 
032365 
032366 
032367 
032370 
032371 

032372 
032373 
032374 
032375 

032376 
032377 
032400 


402  00 

201  00 

202  00 
205  00 
430  00 
202  00 
201  00 
332  00 
436  00 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
002000 
065242 
000020 
126037 
126031 
030000 
065340 
126031 
037716 
400027 
037614 


036  00  0  00  053725 

035  00  0  00  032354 
2oJ  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053730 
035  00  0  00  032354 
002  00  0  00  032354 


TEST    21, WRITE  TAPE  MARK, 0,0 J 

;*  DFDXD  *  TJST  21  *    MRITE  TAPE  MARK 

XALL 

JSP     1,SETREP  :SET  UP  REPEAT  LOOP 

TST21:  MOVEI   F,(BYTE  (1)  0,0,1,010  (U)  *D<21» 

60     SETUP  ; SETUP  SUBSySTEM> 

;•  Issue  a  write  tape  mark  command  and  check  that  bot  clears. 

: Setup  expected  status 
;SET  DXERR  EXPECTED  STATUS  =  0> 
.-SETUP  EXPECTED  TAPE  DRIVE  STATUS 
:AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 
;ADD  CONSTANT  BITS  > 
;PUT  IN  EXPECTED  TABLE  > 
;Set  tie  bits  to  3  if  7  track 

.•Rewind  to  bot 

;Write  tape  mark  with  forced  sense 

.-Wait  for  completion 

TIME-OUT'WHILE  WAITINGFOR  ORITE  tape  mark  command  COMPLETION., ERPNT 
ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STACHK  ;Go  check  status 

SKIPE   ERPFND  ;Skip  if  no  errors  found 

ERROR   TST.O.0.0.* 

STATUS  ERROR.. ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT   IS) 


SETSTA 

0,DEVEND,WRSTAT 

SETZM 

DXEREX 

MOVEI 

DEVEND 

MOVEM 

^RVEXP 

MOVSI 

(WRSTAT) 

XOR 

SNSC1 

MOVEM 

SNSEX1 

Ml  WEI 

3B<TJER> 

SKIPE 

TRACK7 

ORM 

SNSEX1 

GO 

REWIND 

WTMF 

GO 

W800MS 

ERROR 

TST,0,0,0.\ 

DFDXD 
OFDXDM 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

278A 

2785 

2786 

278? 

2788 

2789 

2790 

2791 

2792 

2793 

279A 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

28U 

2815 

2816 

2817 

2818 

2819 

2820 

2821 
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SEQ  ^22i^ 


032401 
032402 
032403 


265  01  0  00  043410 
201  10  0  00  '00026 
260  17  0  00  036657 


032404 
032405 
032406 
032407 
032410 
032411 
032412 
032413 
032414 
032415 
032416 
032417 
032420 

032421 
032422 
032423 
032424 
032425 

032426 
032427 
032430 
032431 

032432 
032433 
032434 


201  00 

202  00 

201  00 

202  00 

201  00 
430  00 

202  00 
201  00 
332  00 
436  00 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
CO 
00 


000600 
065243 
022400 
065242 
000040 
126037 
126031 
030000 
065340 
126031 
037713 
000027 
037614 


036  00  0  00  053753 

035  00  0  00  032402 
260  17  0  00  037771 
004  00  0  00  400033 
260  17  0  00  037614 

036  00  0  00  053756 

035  00  0  00  032402 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  053761 
035  00  0  00  032402 
002  00  0  00  032402 


TEST    22,8ACKSPACE  BLOCK  OVER  TAPE  MARK,0,0J 

;♦  DFDXD  ♦  TEST  22  ♦    BACKSPACE  BLOCK  OVER  TAPE  MARK 

XALL 

JSP     USETREP  ;SET  UP  REPEAT  LOOP 

TST22:  MOVEI   F,(8YTE  (1)  0,0J,0!0  (U)  '^D<22» 

60     SETUP  ; SETUP  SUBSYSTEM> 

;*  Write  a  tape  mark  then  do  a  backspace  block  and  check  that 

;*     (1)  Unit  exception  sets 

;*     (2)  Mperr  sets  with  error  class=1,  sub-class=0 

* 

SETSTA  MPERR^-EC1SB0,DEVEND+UNIEXP^-CUEND,BKWD  ; Setup  expected  status 
MOVEI   MPERR+EC1SB0  : SETUP  EXPECTED  DXERR  STATUS 

DXEREX  ;AND  STORE  IT> 

DEVEND+UNIEXP+CUEND  ; SETUP  EXPECTED  TAPE  DRIVE  STATUS 

DRVEXP  ;AND  STORE  IT 

BKWD      ;SET  UP  EXPECTED  SENSE  WORD  1  » 


MOVEM 

MOVEI 

MOVEM 

MOVEI 

XOR 

MOVEM 

MOVEI 

SKIPE 

ORh 

GO 

WTM 

GO 

ERROR 


SNSC1 

SNSEX1 

3B<TIER> 

TRACK7 

SNSEX1 

RWDCHK 


ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
;Set  tie  bits  to  3  if  7  track 


.•Rewind  if  needed 

.-Write  tape  mark 

.'Wait  for  its  completion 


W800MS 
TST.O.O.O.\ 

TIME  OUT  WHILE  WAITING  FOR  ORITE  TAPE  MARK  COMPLETION..ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  CLRATA  ;Go  clear  attention 

BSBF  ;Ba.kspace  block  with  forced  sense 

GO  W800MS  .'Wait  for  completion 

ERROR  TST  0  0  0  * 

TIME-OUT  WHILE  WAITING  FOR  9ACKSPACE  BLOCK  COMMAND  COMPLETION.. ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  STACHK  ;Go  check  status 

SKIPfc  ERRFND  ;Skip  if  no  errors  found 

ERROR  TST.O.O.O.* 

STATUS  ERROR. .ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 
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SEQ  0225 


2822 

2823 

282A 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

283A 

2835 

2836 

2837 

2838 

2839 

28A0 

28A1 

28A2 

28A3 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 


032435  265  01  0  00  043410 

032436  201  10  0  00  100027 

032437  260  17  0  00  036657 


032440 
032441 
032442 
032443 
032444 
032445 
032446 
032447 
032450 
032451 
032452 
032453 

032454 
032455 
032456 
032457 
032460 

C32461 
032462 
032463 
032464 

032465 
032466 
032467 


402  00 

201  00 

202  00 

201  00 
430  00 

202  00 
201  00 
332  00 
436  00 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
002000 
065242 
000040 
126037 
126031 
030000 
065340 
126031 
037716 
000027 
037614 


036  00  0  00  053773 

035  00  0  00  032436 
2oJ  17  0  00  037771 
004  00  0  00  400037 
260  17  0  00  037614 

036  00  0  00  053776 

035  00  0  00  032436 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054001 
035  00  0  00  032436 
C02  00  0  00  032436 


TEST  23,BACKSPACE  FILE  OVER  TAPE  MARK,0,0J 

;*  DFDXD  *  TEST  23  *    BACKSPACE  FILE  OVER  TAPE  MARK 

XALL 

JSP  I^SETREP  :SET  UP  REPEAT  LOOP 

TST23:  MOVEI  F,(BYTE  (1)  0,OJ,0!0  (li)  *D<23» 

60  SETUP  .-SETUP  SUBSYSTEM> 

)•  Write  a  tape  mark  then  do  a  backspace  file  and  check  that  bot  sets. 


SETSTA 

SETZM 

MOVEI 

MOVEM 

MOVEI 

XOR 

MOVEM 

MOVEI 

SKIPE 

ORM 

GO 

UTM 

GO 

ERROR 


O.DEVEND.BKUD 

DXEREX 

DEVEND 

DRVEXP 

BKUD 

SNSC1 

SNSEX1 

3B<TIER> 

TRACK7 

SNSEX1 

REWIND 


Set  expected  status 
SET  DXERR  EXPECTED  STATUS  =  0> 
SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 

ADD  CONSTANT  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

Set  tie  bits  to  3  if  7  track 


.•Rewind  to  bot 

.•Write  tape  mark 

;Wait  for  its  completion 


W800MS 
TST. 0.0.0.% 

TIME  OUT  WHILE  WAITING  FOR  ORITE  TAPE  MARK  COMPLETION..ERPNT 
ERLOOP  TST  ;If  error,  loop  to  TST 

60     CLRA'^A  ;Go  clear  attention 

BSFF  ;Backspace  file  with  forced  sense 

60     W800MS  ;Wait  for  completion 

ERROR   TST  0  0  0  * 

TIME-OUT  WHILE  WAITInG  FOR  BACKSPACE  FILE  COMMAND  COMPLETION.. ERPNT 
ERLOOP  TST  ;If  error,  loop  to  TST 

60     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   TST. 0.0.0.*. 

STATUS  ERROR.. ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 
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SEQ  0226 


286A 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

288A 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 


032470 
032471 
032472 


032473 
032474 
032475 
032476 
032477 
032500 
032501 
032502 
032503 
032504 
032505 
032506 

032507 
032510 
032511 
032512 
032513 
032514 

032515 
032516 
032517 
032520 

032521 
032522 
032523 


265  01  0  00  043410 
201  10  0  00  100030 
260  17  0  00  036657 


201  00 

202  00 

201  00 

202  00 

200  00 
202  00 

201  00 
332  00 
436  00 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000600 
065243 
022400 
065242 
126037 
126031 
030000 
065340 
126031 
037716 
000027 
037614 


03=  00  0  00  054014 

035  00  0  00  032471 
260  17  0  00  037771 
260  17  0  00  037716 
004  00  0  00  400031 
260  17  0  00  037614 

036  00  0  00  054032 

035  00  0  00  032471 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054035 
035  00  0  00  032471 
002  00  0  00  032471 


TEST    24, FORWARD  SPACE  BLOCK  OVER  TAPE  MARIC,0,OJ 
••  ♦*»♦♦**♦*»•*****•••*•♦♦*•*••♦••***•••******»•***•*•♦♦•••••♦••••••**••• 

;♦  DFDXD  *  TEST  24  *    FORWARD  SPACE  BLOCK  OVER  TAPE  MARK 
XALL 

JSP     hSETREP  ;SET  UP  REPEAT  LOOP 

TST24:  MOVEI   F^CBYTE  (1)  0,0,1,010  (14)  *D<24» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

:*  Write  a  tape  mark  then  rewind  and  do  a  forward  space  block  and  check  that 
;*     (1)  Unit  exception  sets 


*     (2)  Mperr  sets  with  error  class=1,  sub-class=0 


SETSTA  MPERR^EC1SB0,DEVEND^-UNIEXP+CUEND,0 


MOVEI 

MPERR+EC1SB0 

MOVEM 

DXEREX 

MOVEI 

DEVEND+UNIEXP+CUEND 

MOVEM 

DRVEXP 

MOVE 

SNSC1 

MOVEM 

SNSEXl 

MOVEI 

3;8<TIER> 

SKIPE 

TRACK7 

ORM 

SNSEXl 

GO 

REWIND 

WTM 

GO 

W800MS 

ERROR 

TST,0,0,O,^ 

; Setup  expected  status 


.SETUP  EXPECTED  DXERR  STATUS 
;AND  STORE  IT> 

; SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 

.•INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
;PUT  IN  EXPECTED  TABLE  > 
;Set  tie  bits  to  3  if  7  track 

.•Rewind  to  bot 

.•Write  tape  mark 

;Wait  for  its  completion 

TIME  OUT'WHILE  WANING  FOR  ORITE  TAPE  MARK  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     CLRATA  ;Go  clear  attention 

GO     REWIND  .-Rewind  to  bot 

FSBF  .-Forward  space  block  with  forced  sense 

GO     W800MS  .-Wait  for  completion 

ERROR  TST  0  0  0  * 
TIME-OUT  WHILE  WAITING  FOR  FORWARD  SPACE  BLOCK  COMMAND  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR  TST, 0,0,0,* 
STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 
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2909 

2910 

2911 

2912 

2913 

29U 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

293A 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 


032524 
032525 
032526 


032527 
032530 
032531 
032532 
032533 
032534 
032535 
032536 
032537 
032540 
032541 

032542 
032543 
032544 
032545 
032546 
032547 

032550 
032551 
032552 
032553 

032554 
032555 
032556 


265  01  0  00  043410 
201  10  0  00  100031 
260  17  0  00  036657 


402  00  0 

201  00  0 

202  00  0 
200  00  0 
202  00  0 


201  00 
332  00 
436  00 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 


00  065243 
00  002000 
00  065242 
00  126037 
00  126031 
00  030000 
00  065340 
00  126031 
00  037716 
00  000027 
00  037614 


0T6  00  0  00  054050 

035  00  0  00  032525 
2o.>  17  0  00  037771 
260  17  0  00  037716 
004  00  0  00  400035 
260  17  0  00  037614 

036  00  0  00  054066 

035  00  0  00  032525 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054071 
035  00  0  00  032525 
002  00  0  00  032525 


TEST    25, FORWARD  SPACE  FILE  OVER  TAPE  MARK,0,OJ 
;*  DFDXD  *  TEST  25  *    FORWARD  SPACE  FILE  OVER  TAPE  MARK 


XALL 

JSP 
TST25:  MOVEI 
60 


nSETREP  ;SET  UP  REPEAT  LOOP 

F,(BYTE  (1)  0,0J,0!0  (U)  *D<25» 

SETUP  .-SETUP  SUBSYSTEM> 


;*  Write  a  tape  mark  then  rewind  and  do  a  forward  space  fUe  and  check  that 
;*  Bot  clears. 


SETSTA 

SETZM 

MOVEI 

MOVEM 

MOVE 

MOVEM 

MOVEI 

SfCIPE 

ORM 

60 

WTM 

60 

ERROR 

TIME  OUT  WHILE 
ERLOOP 
60 
60 
FSFF 
60 
ERROR 

TIME-OUT  WHILE 
ERLOOP 
60 

SKIPE 
ERROR 

STATUS  ERROR., 
ERLOOP 
REPEAT 


O.DEVEND.O 

DXEREX 

DEVEND 

DRVEXP 

SNSC1 

SNSEXl 

3B<TIER> 

TRACK7 

SNSEXl 

REWIND 

W800MS 
TST, 0,0,0/ 
WAITIN6  FOR 
TST 

CLRATA 
REWIND 

W800MS 
TST,0,0,0,- 
WAITING  FOR 
TST 

STACHK 
ERRFND 
TST, 0,0,0, ' 
ERPNT 
TST 
TST 


SET  DXERR  EXPECTED  STATUS  =  0> 

SETUP  EXPECTED  TAPE  DRIVE  STATUS 

AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

Set  tie  bits  to  3  if  7  track 


; Rewind  to  bot 

.•Write  tape  mark 

;Wait  for  its  completion 

ORITE  tape  mark  COMPLETION,, ERPNT 
;If  error,  loop  to  TST 
;6o  clear  attention 
; Rewind  to  bot 

.•Forward  space  file  with  forced  sense 
.•Wait  for  completion 

FORWARD  SPACE  FILE  COMMAND  COMPLETION,. ERPNT 

;If  error,  loop  to  TST 
;6o  check  status 
.-Skip  if  no  errors  found 


;If  error,  loop  to  TST 


DFDXD 
DFDXDM 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

29''1 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 
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SEQ  0228 


032557  265  01  0  00  043410 

032560  201  10  0  00  100032 

032561  260  17  0  00  036657 


032562  402  00  0  00  065243 

032563  201  00  0  00  002000 

032564  202  00  0  00  065242 

032565  400  16  0  00  000000 

032566  004  00  0  00  000075 

032567  260  17  0  00  037616 

032570  036  00  0  00  054115 

032571  035  00  0  00  032560 

032572  260  17  0  00  037113 

032573  332  00  0  00  000007 

032574  036  00  0  00  054120 

032575  035  00  0  00  032560 

032576  Oui  00  0  00  032560 


TEST    26, READ  EXTENDED  STATUS, 0,0,1 
••  *•»*•*••••••*••♦•*•**•••**••••*****»•**•*•••*••**•••••*••*••****•*•••♦ 

';*  DFDXD  *  TEST  26  *    READ  EXTENDED  STATUS 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST26:  MOVEI   F,(BYTE  (1)  0,0,1,010  (14)  ^D<26» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

;*  Execute  a  read  extended  status  command  and  check  that  the  sense 
;♦  Information  transfered  is  correct. 


SETSTA 

SET2M 

MOVEI 

MOVEM 

SETZ 

RDEXS 

GO 

ERROR 


0,DEVEND 

DXEREX 

DEVEND 

DRVEXP 

REPT1, 


SET  DXERR  EXPECTED  STATUS  =  0> 

SETUP  EXPECTED  TAPE  DRIVE  STATUS 

AND  STORE  IT 

Clear  index  for  tape  uuo 

Read  ext  status 

Wait  for  completion 


U5MIN 

rST,0,0,0,\ 

TIME  OUT  WHILE  WAITING  FOR  READ  EXT  STATUS  COMMAND  COMPLETION,,ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   TST, 0,0,0,* 
STATUS  ERROh,,ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 


032577  265  01  0  00  0A3A10 

032600  201  10  0  00  100033 

032601  260  17  0  00  036657 


032602  476  00  0  00  065332 
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2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 
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SEQ  0229 


032603 
032604 
032605 
032606 
032607 
032610 

03261 1 

03261 2 
032613 
032614 

03261 5 
032616 
032617 
032620 

032621 
032622 
032623 
032624 
032625 
032626 


201  00 

202  00 

201  00 

202  00 
402  00 
200  00 


251 
260 


00 
17 


004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000600 
00  065243 
00  023000 
00  065242 
00  126031 
00  054131 
00  126036 
00  037716 
00  000033 
00  037614 


036  00  0  00  054132 
035  00  0  00  032600 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
002  00 
402  00 
200  00 
251  00 


V.  00  054142 
0  00  032600 
0  00  032600 
0  00  065332 
0  00  054145 
0  00  126036 


TEST    27, SUPPRESS  AUTO  SENSE, 0,0J 

i*  DFDXD  *  TEST  21   ♦    SUPPRESS  AUTO  SENSE 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST27:  MOVEI   F,(BYTE  (1)  0,0,1,0!0  (U)  *D<27» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

;♦  Do  a  backspace  block  at  load  point  with  the  si  *')ress  auto  sense  bit  set. 
;*  This  should  cause  a  unit  check  error  but  no  s  ,e  should  be  performed. 
;♦  Instead,  all  zeros  should  be  returned  in  the  .  »nse  bytes. 

* 

SETOM   SUPRES  ;Set  suppress  auto  sense  flag 

SETSTA  MPERR+EC1SB0,DEVEND+CUEND^UNICHk 


MOVEI 

MOVEM 

MOVEI 

MOVEM 

SETZM 

MOVE 

BLT 

GO 

BS6 

GO 

ERROR 


MPERR^ECISBO 

DXEREX 

DEVEND+CUEND+UNICHK 

DRVEXP 

SNSEX1 

CSNSEX1,,SNSEX23 

SNSEX6 

REWIND 


.SETUP  EXPECTED  DXERR  STATUS 
;AND  STOfeE  IT> 

.-SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
;Put  all  zeros  into  expected  sense  data 


;Move  tape  to  bot 
;Do  a  backspace  block 
;Wait  for  completion 


U800MS 

TST,0,0,0,\ 

TIME-OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  COMMAND  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO     STACHK  ;Go  check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   TST, 0,0,0,* 
SUPPRESS  AUTO  SENSE  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

REPEAT  TST 

SETZM   SUPRES  ; Clear  flag 

MOVE    CSNSC1,,SNSEX1]       .-Restore  expected  sense  data 

BLT     SNSEX6 


DFDXD 
DFDXDM 

3023 

302A 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

30A0 

30A1 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 
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SEQ  0230 


032627  265  01  0  00  043410 

032630  201  10  0  00  100034 

032631  260  17  0  00  036657 


032632  260  17  0  00  037713 

032633  200  00  0  00  030046 

032634  602  00  0  00  040000 

032635  254  00  0  00  032775 


032636 
032637 
032640 
032641 
032642 
032643 
032644 
032645 
032646 
032647 
032650 
032651 
032652 
032653 
032654 
032655 

032656 
032657 
032660 
032661 

032662 
032663 
032664 
032665 
032666 

032667 
032670 
032671 
032672 
032673 


201  00 

202  00 

201  00 

202  00 
205  00 
430  00 
202  00 
20S  00 
42)J  00 
202  00 
201  00 
332  00 
436  00 
476  00 
004  00 
260  17 


0  00  000600 
0  00  065243 
0  00  022400 
0  00  065242 
0  00  000020 
0  00  126037 
0  00  126031 
0  00  100000 
0  00  126040 
0  00  126032 
0  00  030000 
0  00  065340 
0  00  126031 
0  00  065303 
0  00  400027 
0  00  037616 


036  00  0  00  054165 

035  00  0  00  032630 
260  17  0  00  037113 
332  00  0  00  C00007 

036  00  0  00  054176 
035  00  0  00  032630 

201  00  0  00  000001 

202  00  0  00  065303 
260  17  0  00  036657 

402  00  0  00  065243 

201  00  0  00   002000 

202  00  0  00  065242 
201  00  0  00  000040 
430  00  0  OC  126037 


TEST    28, END  OF  TAPE  TEST,0,OJ 
)*  DFDXD  *  TEST  28  *    END  OF  TAPE  TEST 


XALL 

JSP 
TST28:  MOVEI 
60 


1,SETREP  ;SET  UP  REPEAT  LOOP 

F,(8YTE  (1)  0,0J,0!0  (14)  *D<28» 

SETUP  ; SETUP  SUBSYSTEM> 


*  Write  tape  marks  on  all  of  tape. 

*  Check  that  eot  sets. 

*  Then  do  a  backspace  file  and  check  that  unit  exception  clears. 

*  This  test  is  bypassed  if  console  switch  21  is  set. 
•*••*•♦*•*••*••••**•••♦•••••**♦••••***••*♦••*••*•**♦*•♦♦••••*•**♦*•♦♦♦ 

60  RWDCHK  .-Rewind  if  needed 

MOVE  O.CONSU  .'Read  switches 

TRNE  INHEOT  ;Skip  if  test  is  allowed 

JRST  NOEOT  ;Else,  jump  around  eot  tests 

SETSTA  MPERR+EC1SB0,CUEND+DEVEND+UNIEXP,WRSTAT,E0T 

MOVEI  MPERR^-ECISBO  ; SETUP  EXPECTED  DXERR  STATUS 

MOVEM  DXEREX  ;AND  STORE  IT> 

MOVEI  CUEND+DEVEND^-UNIEXP  ;SETUP  EXPECTED  TAPE  DRIVE  STATUS 

MOVEM  DRVEXP  ;AND  STORE  IT 

MOVSI  (WRSTAT)         ;SET  UP  EXPECTED  SENSE  WORD  1  » 

XOR  SNSCl  ;ADD  CONSTANT  BITS  > 

MOVfcM  SNSEXl  :PUT  IN  EXPECTED  TABLE  > 

MOVSI  (EOT)     ;SET  UP  EXPECTED  SENSE  WORD  2  » 

XOR  SNSC2  ;ADD  CONSTANT  BITS  > 

MOVEM  SNSEX2  ;PUT  IN  EXPECTED  TABLE  > 

MOVEI  3B<TIER>  ;Set  track  in  error  sense  byte  to 

SKIPE  TRACK7  .•••3"  If  drive  is 

ORM  SNSEXl  ;7  Track 

SETOM  OPREPT  ;Set  operation  repeat  to  max  neg  value 

WTMF  .-Write  tape  marks 

GO  W5MIN  .-Wait  for  eot 

ERROR  TST  0  0  0  * 
TIMEOUT  WHILE  WAITING'fOR'wRITING  TAPE  MARKS  ON  ALL  TAPE..ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  STACHK  ;Go  check  status 

SKIPE  ERRFND  ;Skip  if  no  errors  found 

ERROR  TST  0  0  0  * 
WRITE  TAPE  MARKS  ON'aLL'tAPF  ERROR., ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

MOVEI  1  .-Set  operation  repeat  count  to  1 

MOVEM  OPREPT 

GO  SETUP  .-Put  dx20  into  idle  state 

SETSTA  0,DEVEND,B<WD.E0T      ;Set  expected  status 

SET2M  DXEREX  .-SET  DXERR  EXPECTED  STATUS  =  0> 

MOVEI  DEVEND  .-SETUP  EXPECTED  TAPE  DRIVE  STATUS 

MOVEM  DRVEXP  ;AND  STORE  IT 

MOVEI  BKWD      .-SET  UP  EXPECTED  SENSE  WORD  1  » 

XOR  SNSCl  .-ADD  CONSTANT  BITS  > 


DFDXD 
'-FDXDM 

3078 
3079 
3080 
3081 
3082 
3083 
•308A 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
5093 
509A 
5095 
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SEQ  0231 


03267A 
032675 
032676 
032677 
032700 
032701 
032702 
032703 
032704 

032705 
032706 
032707 
032710 

032711 
032712 
032713 


202  00 
205  00 
430  00 
202 
201 


00 
00 


332  00 
436  00 
004  00 
260  17 


0  00  126031 
0  00  100000 
0  00  126040 
0  00  126032 
0  00  030000 
0  00  065340 
0  00  126031 
0  00  400037 
0  00  037622 


036  00  0  00  054213 

035  00  0  00  032630 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054223 
035  00  0  00  032630 
002  00  0  00  032630 


;PUT  IN  EXPECTED  TABLE  > 
;SET  UP  EXPECTED  SENSE  WORD  2  » 

;ADD  CONSTANT  BITS  > 

;PUT  IN  EXPECTED  TABLE  > 

;Set  track  in  error  sense  byte  to 

;"3"  If  drive  is 

;7  Track 

;Do  a  backspace  file 

;Wait  for  command  completion 

A 

TIMEOUT  WHILE  WAITING'FOR'BACKSPACE  FILE  COMMAND  COMPLETION,, ERPNT 


MOVEM 

SNSEX1 

MOVSI 

(EOT) 

XOR 

SNSC2 

MOVEM 

SNSEX2 

MOVE  I 

3B<TIER> 

SKIPE 

TRACK7 

ORM 

SNSEX1 

BSFF 

GO 

W400MS 

ERROR 

TST, 0,0,0, 

ERLOOP  TST 

GO  STACHK 

SKIPE  ERRFND 

ERROR  TST  0  0  0  * 

UNIT  EXCEPTION  CLEAfilNG'EfiROR,,ERPNT 

Ef^LOOP  TST 

RcPEAT  TST 


;If  error,  loop  to  TST 

.•Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  TST 


DFDXD 
DFDXDM 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

31 OA 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

31U 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

31^3 

31 2A 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

31 3A 

3135 

3136 

3137 

3138 

3139 

3K0 

3U1 

3142 

3U3 

3UA 

3U5 

3U6 

3U7 

3U8 

3K9 

3150 
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SEQ  0232 


4&i^ 


«i 


032714  265  01  0  00  043410 

032715  201  10  0  00  100035 

032716  260  17  0  00  036657 


032717 
032720 
032721 
032722 
032723 
032724 
032725 
032726 
032727 
032730 
032731 
032732 
032733 
032734 
032735 
032736 
032737 
032740 

032741 
032742 
032743 
032744 

032745 
032746 
032747 

032750 
032751 
032752 
032753 
032754 
032755 
032756 
032757 
032760 
032761 


201  00 

202  00 

201  00 

202  00 
205  00 
430  00 
202  00 
205  00 
430  00 
202  00 
336  00 
254  00 
40?  00 
2u!  00 
202  00 
260  1^ 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 


00 
00 
00 


000600 
065243 
002400 
065242 
000020 
126037 
126031 
100000 
126040 
126032 
065342 
032736 
065243 
0C2000 
065242 
037716 
400043 
037616 


036  00  0  00  054246 

035  00  0  00  032715 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054254 
035  00  0  00  032715 
260  17  0  00  036657 


201  00 

202  00 

201  00 

202  00 
200  00 
430  00 
202  00 

200  00 
202  00 

201  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000600 
065243 
023000 
065242 
053431 
126037 
126031 
126040 
126032 
030000 


TEST    29, DATA  SECURITY  ERASE, 0,0,1 

;*  DFDXD  *  TEST  29  ♦    DATA  SECURITY  ERASE 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST29:  MOVEI   F,(BYTE  (1)  0,0,1,010  (14)  *D<29» 

GO     SETUP  .-SETUP  SUBSYSTEM> 

;*  Test  that  a  data  security  erase  will  move  the  tape  to  eot. 
;*  Then  check  that  tape  was  erased  by  doing  a  backspace  block  and 
;*  Checking  fot  bot  setting. 


D3E1 


SETSTA 

MOVEI 

MOVEM 

MOVEI 

MOVEM 

MOVSI 

XOR 

MOVEM 

MOVSI 

XOR 

MOVEM 

SKIPN 

JRST 

SET2M 

MOVEI 

MOVEM 

GO 

DSEF 

GO 

ERROR 


MPERR+EC1SB0,DEVEND+UNIEXP,WRSTAT,EOT 


MPERR+EC1SB0 

DXEREX 

DEVEND+UNIEXP 

DRVEXP 

(URSTAT) 

SNS  CI 


.SETUP  EXPECTED  DXERR  STATUS 

;AND  STOftE  IT> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 

;AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 

;ADD  CONSTANT  BITS  > 
SNSEX1  ;PUT  IN  EXPECTED  TABLE  > 

(EOT)     ;SET  UP  EXPECTED  SENSE  WORD  2  » 
SNSC2  ;ADD  CONSTANT  BITS  > 

SNSEX2  ;PUT  IN  EXPECTED  TABLE  > 

TX02  ;Skip  if  tx02,  no  unit  check  expected 

DSEl  ;Else,  txOl  gives  unit  check 

DXEREX  ;Set  no  dxerr  errors  expected 

DEVEND  ;Set  normal  drive  end  status 

DRVEXP 
REWIND  ;Rewind  the  tape 

;Data  security  erase  with  forced  sense 

;Wait  for  command  completion 


W5MIN 

TST,0,0,0,\ 

TIME  OUT  WHILE  WAITING  FOR  DATA  SECURITY  ERASE  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  STACHK  .-Check  status 

SKIPE  ERRFND  .-Skip  if  no  errors  found 

ERROR  TST, 0,0,0,* 
DSE  STATUS  ERROR,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  SETUP  ;Put  dx20  in  idle  state 

SETSTA  MPERR^EC1SB0,DEVEND*CUEND*UNICHK,BOTtBICWD,0 

MOVEI  MPERR+ECISBO  :SETUP  EXPECTED  DXERR  STATUS 

MOVEM  DXEREX  ;AND  STORE  IT> 

MOVEI  DEVEND^CUEND+UNICH<  ;SETU°  EXPECTED  TAPE  DRIVE  STATUS 

MOVEM  DRVEXP  ;AND  STORE  IT 

MOVE  CBOT+BKWD]  ;SET  UP  EXPECTED  SENSE  WORD  1  » 

XOR  SNSCl  ;ADD  CONSTANT  BITS  > 

MOVEM  SNSEXl  ;PUT  IN  EXPECTED  TABLE  > 

MOVE  SNSC2  .-INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 

MOVEM  SNSEX2  ;PUT  IN  EXPECTED  TABLE  > 

.  MOVEI  3B<TIER>  ;Set  track  in  error  sense  byte  to 


DFDXD 
DFOXDM 

3151 
3152 
3153 
31 5A 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
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SEQ  0233 


032762  332  00  0  00  0653A0 

032763  436  00  0  00  126031 

032764  004  00  0  00  400033 

032765  260  17  0  00  037616 

032766  036  00  0  00  054270 

032767  035  00  0  00  032715 

032770  260  17  0  00  037113 

032771  332  00  0  00  000007 

032772  036  00  0  00  054276 

032773  035  00  0  00  032715 

032774  002  00  0  00  032715 
032775 


;"3"  If  drive  is 

;7  Track 

.-Backspace  block  with  forced  sense 

;Wait  for  completion 


SKIPE  TRACK7 

ORM  SNSEX1 

BSBF 

GO  U5MIN 

ERROR  TST  0  0  0  * 

TIME  OUT  WHILE  WAITING  fOR  BACKSPACE  BLOCK  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  STACHK  .-Check  status 

SKIPE  ERRFND  .-Skip  if  no  errors  found 

ERROR  TST, 0,0,0,* 
BSB  STATUS  ERROR,, ERPNT 

ERLOOP  TST  .-If  error,  loop  to  TST 

REPEAT  TST 
NOEOT: 


DFDXD 
DFDXDM 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 
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SEQ   0234 


032775  265  01  0  00  043410 

032776  201  10  0  00  100^36 

032777  260  17  0  00  036t  ^ 


033000 
033001 
033002 
033003 
033004 

0330C ' 
033006 
033007 
033010 
03301 1 
033012 
033013 
033014 
03301 5 
033016 
033017 
033020 
033021 
033022 
033023 
033024 
033025 

033026 
033027 
033030 
033031 

033032 
033033 
033034 
033035 
033036 
033037 


201  00  0  00  021400 
336  00  0  00  065340 

201  00  0  00  026000 

202  00  0  00  065237 
260  17  0  00  037716 


402  CO 

201  00 

202  00 

200  00 
430  00 
202  00 
205  00 
4JJ  00 
202  00 

201  00 
332  00 
436  00 
400  16 
201  15 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 

006000 

065242 

053431 

126037 

126031 

010000 

1 26040 

126032 

030000 

065340 

126031 

000000 

000001 

036657 

400065 

037614 


036  00  0  00  05^320 

035  or  0  00  033023 
260  '/  0  00  037113 
332  00  0  00  000007 

036  no  0  00  054323 
035  00  0  00  033023 
305  15  0  00  000015 
344  ^5  0  00  033023 
305  16  0  00  000007 
344  16  0  00  033022 


SUBTTL  DATA  TRANSFER  COMMANDS  TESTS 

TEST    30AOGP  WRITE  TO  READ, 0,0,1 

••  DFDXD  *  TEST  30  *    LOOP  WRITE  TO  READ 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST30:  MOVEI   F,(8YTE  (1)  0,0,1,010  (14)  *D<30» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

;*  Do  loop  write  to  fead  xfers. 

;*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

;*  Industry  compatible  mode. 


MOVEI 

SKIPN 

MOVEI 

MOVEM 

GO 

SETSTA 

SET2M 

MOVEI 

MOVEM 

MOVE 

XOR 

MOVEM 

MOVSI 

XOR 

MOVEM 

MOVEI 

SKIPE 

ORM 

SETZ 

MOVEI 

LWRF 

GO 

ERROR 

TIME  OUT  WHILE 
ERLOOP 
GO 

SKIPE 
ERROR 

STATUS  ERROR,, 
ERLOOP 
CAIGE 
AOJA 
CAIGE 
AOJA 


LWRPEO: 
LWRPEl: 


iNDCMP*OT7800 

TRACK7 

INDCMP^T91600 

DMODE 

REWIND 

0,CHLEND+DEVEND 

DXEREX 

CMI.END^DEVEND 

i,...EXP 

CBKWD^BOT] 

SNSCl 

SNSEXl 

(LOOPWR> 

SNS.:<?  : 

SNSfX2 

3B<7IER> 

TRACK 7 

SN.SfXl 

RE''T1, 

REPT,1 

SETUP 

W800MS 

LWRPEl, 0,0,0,\ 
WAITING  FOR  LOOP 
LWRPEl 
STACHK 
ERRFND 

LWRPEl, 0,0,0,^^ 
ERPNT 
LWRPEl 
REPT,DATAX 
REPT, LWRPEl 
REPT1,SIZEX 
REPT1, LWRPEO 


; Setup  800  bpi  mode 

;Skip  if  7  track 

;Else,  setup  1600  bpi  mode 

.-Rewind  the  tape 
,BKWD+B0T,L00PWR 

;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
:AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 
;ADD  CONSTANT  BITS  > 
:PUT  IN  EXPECTED  TABLE  > 
;SET  UP  EXPECTED  SENSE  WORD  2  » 
ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
••3"  If  drive  is 
7  Track 

Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idU?  state 
Write  data  pattern 
Wait  for  command  completion 

WRITE  TO  READ  COMPLETION,, ERPNT 
;If  error,  loop  to  LWRPEl 
;Check  status 
;Skip  if  no  errors  found 


;If  error,  loop  to  LWRPEl 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


DFDXO 
DFDXDM 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

322A 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

323A 

3235 

3236 

3237 

3238 

3239 

32A0 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 
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SEQ  0235 


033040 
033041 
033042 
033043 

033044 
033045 
033046 
033047 
033050 
C'3051 
0  .052 
0:>3053 
033054 
033055 
033056 
033057 
033060 
033061 
033062 
033063 
033064 

033065 
033066 
033067 
033070 

033071 
033072 

033073 
033074 
033075 
033076 
033077 
033100 
033101 
033102 
0331C3 
033104 
033105 
033106 
033107 
053110 
05j111 
033112 
033113 


260  17  0  00  036657 

332  00  0  00  065340 

254  00  0  00  033127 

260  17  0  00  040005 


402  00  0 


201 
202 


00 
00 


205  00  0 
430  00  0 


202  00 

200  00 
202 
201 

336  00 
436  00 

201  00 


00 
00 


0 
0 
0 
0 
0 
0 
0 
332  00  0 

201  00  0 

202  00  0 


004 
260 


00  0 
17  0 


00  065243 
00  002000 
00  065242 
00  000020 
00  126037 
00  126031 
00  126040 
00  126032 
00  030000 
00  065341 
00  126031 
00  025400 
00  065341 
00  026400 
00  065237 
00  400027 
00  037614 


0:>-  00  0  00  054335 

035  00  0  00  033063 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054343 
035  00  0  00  033063 


402  00  0 


201  00 

202  00 
205  00 
430  00 
202  00 
205  00 
430  00 
202  00 
201  00 
336  00 
436  00 
400  16 
201  15 
260  U 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  065243 
00  006000 
00  065242 
00  000020 
00  126037 
00  126031 
00  010000 
00  126040 
00  126032 
00  030000 
00  065341 
00  126031 
00  000000 
00  000001 
00  036657 
00  400065 
00  037614 


;*  Write  tape  mark  to  move  from  bot. 

;*  Do  locD  write  to  read  xfers. 

;*  If  tu72,  set  gcr  mode,  if  tu70,  set  800  bpi  nrzi  mode. 

;*  Skip  if  7  trk. 


LWR1 : 


GO 

SKIPE 

JRST 

GO 

SETSTA 

SETZM 

MOVE  I 

MOVEM 

MOVSI 

XOR 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

SKIPN 

ORM 

MOVE  I 

jKlPE 

MOVE  I 

MOVEM 

WTMF 

GO 

ERROR 


SETUP 

TRACK7 

LUREND 

CLRD16 

0,DEVEND,WRSTAT,0 

DXEREX 

DEVEND 

DRVEXP 

(WRSTAT)         ;SET 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

3B<TIER> 

TU72 

SNSEX1 

INDCMP+T9800 

TU72 

INDCMP+T96250 

DMODE 


W800MS 

LWR1,0,0,0,'^ 

TIMEOUT  WHILE  WAITING  FOR  WTi"  COMPLETI 
ERLOOP  LWP1 
GO      STACHK 
SKIPE   ERRFND 
ERROR   LWR1,0,0,0,'^ 
WTM  STATUS  ERROR,, ERPNT 
ERLOOP  LWR1 

0,CHLEND+DEVEND, WRSTAT 

DXEREX 

CHLEND+DEVEND 


;Put  dx20  in  idle  state 

;Skip  if  9  track 

;Jump  around  if  7  track 

;Go  setup  d1600  and  nt1600  sense  bits 

SET  DXERR  EXPECTED  STATUS  =  0> 
SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 
UP  EXPECTED  SENSE  WORD  1  » 
ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  expected  track  in  error  sense  byte 
To  •T'^if  drive  is 
Tu70  or  tu71 
Set  9  track  nrzi  mode 
Skip  if  not  a  tu72  drive 
Else,  set  gcr  mode 
Store  modes 
Write  a  tape  mark 
Wait  for  completion 


SETSTA 

SETZM 

MOVE  I 

MOVEM 

MOVSI 

XOR 

MOVEM 

MOVSI 

XOR 

MOVEM 

MOVE  I 

SKIPN 

ORM 

SETZ 

LWRNGO:  MOVE  I 

LWRNGl:  GO 
LWRF 
GO 


DRVEXP 

(WRSTAT) 

SNSC1 

SNSEX1 

(LOOPW?) 

SNSC2 

SNSEX2 

3B<TIER> 

TU72 

SNSEX1 

REPT1, 

REPT.1 

SETUP 

W800MS 


;SET 


;SET 


ON,,ERPNT 

;If  error,  loop  to  LWR1 

; Check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  LWR1 
,LOOPWR 
;SET  DXERR  EXPECTED  STATUS  =  0> 

•SETUP  EXPECTED  TAPE  DRIVE  STATUS 
•AND  STORE  IT 
UP  EXPECTED  SENSE  WORD  1  » 
;ADD  COK'STANT  BITS  > 
•PUT  ^N  EXPECTED  TABLE  > 
UP  EXPEC  ED  SENSE  WORD  2  » 
ADD  CONSTANT  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  expected  track  in  error  sense  byte 
To  "3"^if  drive  is 
Tu70  or  tu71 
Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Write  data  pattern 
Wait  for  command  completion 


--L 


Ifimmmm 


mmmmmm 


n 


DFDXD 
DFDXDM 

3272 
3273 
327A 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
328A 
3285 
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0331 U 
033115 
033116 
033117 

033120 
033121 
033122 
033123 
033124 
033125 
033126 
033127 


036  00  0  00  054320 
035  00  0  00  033111 
260  17  0  00  037113 
332  00  0  00  000007 


036 
035 
305 
344 
305 
344 
002 


00 
00 
15 
15 
16 
16 
00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


054323 
033111 
00001 5 
033111 
000007 
033110 
032776 


ERROR  LWRNG1, 0,0,0/ 

TIME  OUT  WHILE  WAITING  FOR  LOOP  WRITE 

ERLOOP  LWRNG1 

60  STACHK 

SKIPE  ERRFND 

ERROR  LWRNG1 ,0,0,0,* 
STATUS  ERROR, ,ERPNT 

ERLOOP  LWRNG1 

CAI6E  REPT,DATAX 

AOJA  REPT-LWRNGI 

CAIGE  REPT1,SIZEX 

AOJA  REPT1,LWRNG0 

REPEAT  TST 
LWREND: 
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TO  READ  COMPLETION,, ERPNT 
If  error,  loop  to  LWRN61 
Check  status 
Skip  if  no  errors  found 


;If  error,  loop  to  LWRNG1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


SEQ  0236 
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SEQ  0237 


3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

329A 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

5315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

333/ 


033127  265  01  0  00  043410 

033130  201  10  0  00  100037 

033131  260  17  0  00  036657 


033132 
033133 
033134 
033135 

033136 
033137 
033140 
033141 
033142 
033143 
033144 
033145 
033146 
033147 
033150 
033151 
033152 
033153 
033154 
033155 

033156 
033157 
033160 
033161 

033162 
033163 
033164 
033165 
033166 
033167 
033170 


332  00  0  00  065340 
254  00  0  00  033170 
260  17  0  00  037716 
260  17  0  00  037777 


402 
201 
202 
205 
.'30 
102 
?00 
cd2 
201 
10? 
4uJ 
201 
260 
260 
004 
260 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
006000 
065242 
000020 
126037 
126031 
1 26040 
1 26032 
026000 
065237 
000000 
000001 
036657 
037713 
400061 
037616 


036  00  0  00  054361 

035  00  0  00  033152 
260  17  0  00  037113 
332  00  0  00  000007 

036  00  0  00  054364 
035  00  0  00  033152 
305  15  0  00  000015 
344  15  0  00  033152 
305  16  0  00  000007 
344  16  0  00  033151 


TEST    31,WRITE,0,0J 
•♦  •***♦♦♦•*•*•*♦**•♦**♦♦*♦*••*•****************#♦♦•***********♦****♦♦*♦♦ 

;*  DFDXD  *  TEST  31  *    WRITE 
XALL 

JSP     USETREP  ;SET  UP  REPEAT  LOOP 

TST31:  MOVEI   F,(BYTE  (1)  0,0J,0!O  (14)  *D<31» 

GO     SETUP  .-SETUP  SUBSYSTEM> 

;♦  Do  write  xfers  in  industry  compatible  mode. 
;*  Pe  mode  if  9  trk.  skip  if  7  trk. 


SKIPE 

JRST 

GO 

GO 

SETSTA 

SET2M 

MOVEI 

HOVEM 

MOVSI 

XOR 

KOVEM 

HOVE 

MOVEM 

MOVEI 

MOVEM 

SET2 

WRPEIO:  MOVEI 

WRPE:1:  GO 
GO 
WRTF 
GO 
ERROR 


TRACK7 
NWRTPE 
REWIND 
SETD16 
O.CHLEND^DEVEND.WRSTAT,0 


;Skip  if  9  track 

;Else.  can't  test  pe  mode 

.•Rewind  the  tape 

;Go  setup  dl600  and  nt1600  sense  bits 


DXEREX 

CHLEND+DEVEND 

DRVEXP 

(WRSTAT) 

SNSCl 

SNSEXl 

SNSC2 

SNSEX2 

INDCMP*T91600 

DMODE 

REPT1, 

REPT.1 

SETUP 

RWDCHK 

W5MIN 
WRPEI1. 0.0.0, 


;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
:AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 

ADD  CONSTANT  BITS  > 

PUT  IN  EXPECTED  FABLE  > 

INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

Set  data  and  drive  modes  to 

Core  dump  and  1600  bpi-pe 

Init  word  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Write  data  pattern 

Wait  for  r^mmand  completion 


TIME  OUT  WHILE  WAITING  FOR  wfilTE  COMPLETION.. ERPNT 

ERLOOP  WRPEI1  .If  error,  loop  to  WRPEII 

GO     STACHK  Check  status 

SrIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   WRPEII. O.O.O.* 

STATUS  ERROR.. ERPNT 


NWRTPE: 


ERLOO^  WRPEII 

CAIGE  REPT.DATAX 

AOJA  REPT, WRPEII 

CAIGE  REPT1.SIZEX 

AOJA  REPT1. WRPEIO 


If  error,  loop  to  WRPEII 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  word  counts 

Else,  test  next  word  count 
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3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 


033170 
033171 
033172 
033173 
033174 
033175 
033176 
033177 
033200 

033201 
033202 
033203 
033204 
033205 
033206 
033207 
033210 
033211 
033212 
033213 
033214 
033215 
033216 
033217 
033220 
033221 

033222 
033223 
033224 
033225 

033226 
033227 
033230 
033231 
033232 
033233 
033234 


201  00 
332  00 
201  00 
332  00 

201  00 

202  00 


0 
0 
0 
0 
0 
0 
336  00  0 
260  17  0 
260  17  0 


402  00 

201  00 

202  00 
205  00 
430  00 
202  00 

200  00 
202  00 

201  00 
336  00 
436  00 
400  16 
201  15 
260  17 
260  17 
0\j"  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  025400 
00  065341 
00  026400 
00  065340 
00  021400 
00-065?37 
00  065340 
00  040005 
00  037716 

00  065243 
00  006000 
00  065242 
00  000020 
00  126037 
00  126031 
00  126040 
00  126032 
00  030000 
00  065341 
00  126031 
00  000000 
00  000001 
00  036657 
00  037713 
00  400061 
00  037616 


036  00  0  00  054361 
035  00  0  00  033216 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
305  15 
344  15 
305  16 
344  16 
002  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


054364 
033216 
000015 
033216 
000007 
033215 
033130 


;*  Do  write  xfers  in  industry  comoatible  mode. 

;♦  If  tu72,  set  gcr  mode,  if  tu7D  or  tu71,  set  800  bpi  nrzi  mode. 


MOVE  I 
SKIPE 
MOVE  I 
SKIPE 
MOVE  I 
MOVEM 
SKIPN 
GO 
GO 

SETSTA 
SETZM 
MOVE  I 
MOVEM 
MOVSI 
XOR 
MOVEM 
MOVE 
MOVEM 
MOVE  I 
SKIPN 
ORM 
SETZ 
MOVE  I 
GO 
GO 
WRTF 
GO 

ERROR 
OUT  WHILE 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR,, 
ERLOOP 
CAI6E 
AOJA 
CAI6E 
AOJA 
REPEAT 


URNRIO: 
WRNRIl: 


TIME 


INDCMP+T9800 

TU72 

INDCMP*T96250 

TRACK7 

INDCMP^OT7800 

DMODE 

TRACK7 

CLRD16 

REWIND 

0,CHLEND*DEVEND, 

DXEREX 

CHLEND+DEVEND 

DRVEXP 

(WRSTAT) 

SNSCl 

SNSEX1 

SNSC2 

SNSEX2 

3B<TIER> 

TU72 

SNSEX1 

REPTl, 

REPTJ 

SETUP 

RWDCHK 

W5MIN 

WRNRIl, 0,0,0/ 
WAITING  FOR  WRITE 
WRNRIl 
STACHK 
ERRFND 

WRNRIl, 0,0,0,* 
ERFNT 
WRNRIl 

rept,datax 

rept.wrnrh 

rept1,sizex 

REPT1,WRNRI0 
TST 


bits 


;Set  9  track  nrzi,  800  bpi 
;SkiD  if  not  tu72  dri\/e 
.-Else,  set  gcr  mode 
;Skip  if  9  track 
;Else,  set  7  track  nrzi 

;Skip  if  7  track 

;Go  setup  d1600  and  nt1600  sense 
;Put  tape  at  bot  to  set  mode 
WRSTAT, 0 

;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
•AND  STORE  IT 
;SET  UP  EXPECTED  SENSE  WORD  1  » 

ADD  CONSTANT  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 

PUT  IN  EXPECTED  TABLE  > 

Set  expected  track  in  error  sense  byte 

To  "Z'^if   drive  is 

Tu70  or  tu71 

Init  word  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Write  data  pattern 

Wait  for  command  completion 


COMPLETION,, ERPNT 

If  error,  loop 
Check  status 
Skip  if  no  errors 


to  WRNRIl 
found 


;If  error,  loop  to  WRNRIl 
.-Skip  if  tested  all  data  patterns 
.-Else,  test  next  patterns 
.-Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 
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SEQ  0239 


3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

339A 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3477 

3428 

3429 

3430 

3431 

3432 

3433 

3434 


033235  265  01  0  00  043410 

033236  201  10  0  00  100040 

033237  260  17  0  00  036657 


033240 
033241 
033242 
033243 

033244 
033245 
033246 
033247 
033250 
033251 
033252 
033253 
033254 
033255 
033256 
033257 
033260 
033261 
033262 


033263 
033264 
033265 
033266 


033267 
033270 
033271 
033272 
033273 

033274 
033275 
033276 


332  00  0  00  065340 

254  00  0  00  033533 

260  17  0  00  037777 

260  17  0  00  037716 


402  00 

201  00 

202  00 
200  00 
202  00 

200  00 
202  00 

201  00 
20?  00 
4uJ  16 
201  15 
260  17 
260  17 
004  00 
260  17 


0  00  065243 
0  00  006000 
0  00  065242 
0  00  126037 
0  00  126031 
0  00  126040 
0  00  126032 
0  00  016000 
0  00  065237 
0  00  000000 
0  00  000001 
0  00  036657 
0  00  037713 
0  00  000061 
0  00  037616 


036  00  0  00  054400 
035  00  0  00  033257 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054411 

035  00  0  00  033257 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054414 
035  00  0  00  033257 
260  17  0  00  037323 


033277  036  00  0  00  054427 


TEST    32, READ  FORWARD  IN  PE  MODE,0,0J 

;*  DFDXD  *  TEST  32  ♦    READ  FORWARD  IN  PE  MODE 

•*  ********************************************************************** 

XALL 

JSP  USETREP  ;SET  UP  REPEAT  LOOP 

TST32:     MOVEI       F,(BYTE   (1)   0,0,1,0!0   (14)   *D<32» 

GO  SETUP  .-SETUP  SUBSYSTEM> 

;  ********************************************************************** 

;*  Do  writes  and  read  forward  xfers  in  pe  mode. 

;*  Skip  this  test  if  7  trk. 

;*  Core  dump  mode 

•  *••*♦**♦*♦♦•**•••****•♦•••***♦•**♦************************************ 


MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
MOVEM 
SETZ 
RFPECO:  MOVEI 
RFPEC1:  GO 
GO 
WRT 
GO 
ERROR 


SfCiPE       TRACK7 

JRST    RFWDPE 

GO     SETD16 

GO     REWIND 

SETSTA  O.DEVEND+CHLEND,0,0 

SETZM   DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

S.>JSEX1 

SNSC2 

SNSEX2 

CDUMP+T91600 

DMODE 

REPT1, 

REPTJ 

SETUP 

RWDCHK 


;Skip  if  9-track 

;Else.  can't  do  pe  mode  tests 

;Go  setup  d1600  and  nt1600  sense  bits 

.'Rewind  the  tape 

;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  data  and  drive  modes  to 
Core  dump  and  1600  bpi-pe 
Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


W5MIN 

RFPEC1.0.0.0.\ 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION. \ 
CORE  DUMP  MODE.ERPNT 

ERLOOP  RFPEC1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPEC1.0.0,0.\ 
STATUS  ERROR  ON  WRITE  OPERATIOlQ.* 
CORE  DUMP  MODE.ERPNT 

ERLOOP  RFPEC1 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFPECI  0  0  0^ 
TIME  OUT  WHILE  WAITING'fOR'BACI^SPACE  BLOCK  COMPLETION.  .ZRPNT 

ERLOOP  RFPECI  ;If  error,  loop  to  RFPEC1 

GO     DXSVCK  .-Check  dxJO  status 

ERROR   RFPEC1  0  0  0^ 
COMPOSITE  ERROR  ON  BACKSPACE 'SEOCK  OPERATION. .ERPNT 


;If  error,  loop  to  RFPECI 

;Go  check  status 

.-Skip  if  any  errors  found 


;If  error,  loop  to  RFPECI 
;Go  clear  cmd  done 
.'Backspace  block 
.-Wait  for  command  completion 


DFDXD 
DFDXDM 

3435 
3436 
3A37 
3A38 
3A39 
3A40 
3AA1 
3AA2 
3AA3 
3AAA 
3AA5 
3AA6 
3AA7 
3AA8 
3AA9 
3A50 
3A51 
3A52 
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033300  035  00  0  00  033257 

033301  260  17  0  00  037771 

033302  OOA  00  0  00  A00071 

033303  260  17  0  00  037616 


03330A  036  00  0  00  05AAA3 

033305  035  00  0  00  033257 

033306  260  17  0  00  037113 

033307  332  00  0  00  000007 


033310  036  00  0  00  05AA5A 

033311  035  00  0  00  033257 

033312  305  15  0  00  000015 

033313  3AA  15  0  00  033257 
03331 A  305  16  0  00  000007 
033315  3AA  16  0  00  033256 


ERLOOP  RFPEC1 

GO     CLRATA 

RDFWF 

GO     U5MIN 

ERROR   RFPEC1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD 
CORE  DUMP  MODE,ERPNT 

ERLOOP  RFPEC1 

GO     STACHK 

SKIPE   ERRFND 

ERROH   RFPEC1,0,0,0,'^ 
STATUS  ERROR  ON  READ  OPERATION,* 
CORE  DUMP  MODE,ERPNT 

ERLOOP  RFPEC1 

CAIGE   REPT,DATAX 

AOJA    REPT.RFPECI 

CAIGE   REPTl,SIZEX 

AOJA    REPT1,RFPEC0 
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;If  error,  loop  to  RFPEC1 

;Go  clear  atten 

;Read  forward 

;Wait  for  command  completion 

COMPLETION,*. 

;If  error,  loop  to  RFPEC1 

; Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RFPEC1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


SEQ  02A0 
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SEQ  0241 


3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 


033316 
033317 
033320 
033321 
033322 
033323 
033324 
033325 


033326 
033327 
033330 
033331 


033332 
033333 
033334 
033335 
033336 

033337 
033340 
033341 

033342 
033343 
033344 
033345 
033346 


033347 
033350 
033351 
033352 


033353 
033354 
0333:: 
033356 
033357 
033360 


201  00  0 

202  00  0 
400  16  0 


201  15 
260  17 
260  17 
004  00 
260  17 


00  020000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  054464 
035  00  0  00  033322 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054467 

035  00  0  00  033322 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054414 
035  00  0  00  033322 
260  17  0  00  037323 

0^2  00  0  00  054427 
035  00  0  00  033322 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054472 
035  00  0  00  033322 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054475 
035  00  0  00  033322 
305  15  0  00  000015 
344  15  0  00  033322 
305  16  0  00  000007 
344  16  0  00  033321 


*•••♦*••**••*•**•*♦*••••*•**•****•**•••••**•**•••••**•***••*•*•*•*•*** 


;*  Industry  compatible  mode 


•  *♦♦♦*•***••**•••*•*♦••♦•'*•••***•***•••*••••**•***••*•♦••*****••••*•♦•• 


MOVE I  INDCMP 

MOVEM  DMODE 

SET2  REPT1, 

RFPEIO:  M0VE»  REPTJ 

RFPEI1:  GO  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


U5MIN 

RFPEI1,0,0,0,\ 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
INDUSTRY  COMPATIBLE  MODE^ERPNT 

ERLOOP  RFPEI1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPEI1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RFPEI1 
CLRDON 


;Set  data  and  drive  modes 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Wait  for  command  completion 


;If  error,  loop  to  RFPEII 

;Go  check  status 

;Skip  if  any  errors  found 


GO 
BSB 
GO 
ERROR 


W5MIN 

RFPEII, 0,0,0,* 


;If  error,  loop  to  RFPEII 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  COMPLETION,, ERPNT 

ERLOOP  RFPEII  ;If  error,  loop  to  RFPEII 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPEII  0  0  0  * 

COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 

ERLOOP  RFPEII  ;If  error,  loop  to  RFPEII 

GO     CLRATA  ;6o  clear  atten 

RDFWF  .-Read  forward 

GO     W5MIN  ;Wait  for  command  completion 

ERROR   RFPEII  0  0  0  * 

TIME  OUT  WHILE  WAITING' FOR' READ  FORWARD  COMPLETION,* 

INDUSTRY  COMPATIBLE  MODE, ERPNT 


ERLOOP  RFPEII 

GO  STACHK 

SKIPE  ERRFND 

ERROR  RFPEII, 0,0,0,* 

STATUS  ERROR  ON  READ  OPERATION.* 
INDUSTRY  COMPATIBLE  MODE, ERPNT  " 

ERLOOP  RFPEII 

CAIGE  REPT,DATAX 

AOJA  REPT, RFPEII 

CAIGE  REPTl,SIZEX 

AOJA  REPT1, RFPEIO 


If  error,  loop  to  RFPEII 

Check  status 

Skip  if  no  errors  found 


If  error,  loop  to  RFPEII 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  word  counts 

Else,  test  next  word  count 
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3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 


033361 
033362 
033363 
033364 
033365 
033366 
033367 
033370 


033371 
033372 
033373 
033374 


033375 
033376 
033377 
033400 
033401 

033402 
033403 
033404 

033405 
033406 
033407 
033410 
033411 


033412 
033413 
033414 
033415 


033416 
033417 
033420 
033421 
033422 
033423 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


030000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  054503 
035  00  0  00  033365 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054506 

035  00  0  00  033365 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054414 
035  00  0  00  033365 
260  17  0  00  037323 

Oic  00  0  00  054427 
035  00  0  00  033365 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  05451 1 
035  00  0  00  033365 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054514 
035  00  0  00  033365 
305  15  0  00  000015 
344  15  0  00  033365 
505  16  0  00  000007 
344  16  0  00  033364 


*  Six  bit 


MOVEI  SIXBT 

MOVEM  DMODE 

SETZ  REPTl, 

RFPESO:  MOVEI  REPTJ 

RFPES1:  GO  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


;Set  data  and  drive  modes 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Wait  for  command  completion 


U5MIN 

RFPES1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFPESl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPESl, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFPESl 

GO     CLRDON 

636 

GO     W5MIN 

ERROR   RFPESl  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'bACKSPACE  BLOCK  COMPLETION, ,ERPNT 

ERLOOP  RFPESl  ;If  error,  loop  to  RFPESl 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPESl  0  0  0  * 
COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 


;If  error,  loop  to  RFPESl 

;6o  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFPESl 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


ERLOOP  RFPESl 

GO     CLRATA 

RDFWF 

GO     W5MIN 

ERROR   RFPESl  0  0  0  * 
TIME  OUT  WHILE  WAITING' FOR ' READ  FORWARD  COMPLETION,* 
SIX  BIT  MODE, ERPNT 

ERLOOP  RFPESl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPESl, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION!* 
SIX  BIT  MODE, ERPNT 

ERLOOP  RFPESl 

CAIGE   REPT,DATAX 

AOJA    REPT, RFPESl 

CAIGE   REPT1,SI2EX 

AOJA    REPT1, RFPESO 


If  error,  loop  to  RFPESl 

Go  clear  atten 

Read  forward 

Wait  for  command  completion 


If  error,  loop  to  RFPESl 

Check  status 

Skip  if  no  errors  found 


If  error,  loop  to  RFPESl 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  word  counts 

Else,  test  next  word  count 


DFDXD 
DFDXDM 

3551 

3552 

3553 

355A 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

356A 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

357A 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

358A 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3504 

3595 
3596 
3597 
3598 
3599 
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SEQ  0243 


033424 
033425 
033426 
033427 
033430 
033431 
033432 
033433 


033434 
033435 
033436 
033437 


033440 
033441 
033442 
033443 
033444 

033445 
033446 
033447 

033450 
033451 
033452 
033453 
033454 


033455 
033456 
033457 
033460 


033461 
033462 
033463 
033464 
033465 
033466 


201  00  0 

202  00  0 
400  16  0 
201  15  0 
260  17  0 
260  17  0 
004  00  0 
260  17  0 


00  040000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  054522 
035  00  0  00  033430 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054525 

035  00  0  00  033430 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054414 
035  00  0  00  033430 
260  17  0  00  037323 

0:>-  00  0  00  054427 
035  00  0  00  033430 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054530 
035  00  0  00  033430 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054533 
035  00  0  00  033430 
305  15  0  00  000015 
344  15  0  00  033430 
305  16  0  00  000007 
344  16  0  00  033427 


;*  7-Bit  ascii 


MOVEI  ASCII7 

MOVEM  DMODE 

SETZ  REPT1, 

RFPEAO:  MOVEI  REPTJ 

RFPEA1:  60  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


;Set  data  and  drive  modes 

;Im*t  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Wait  for  command  completion 


W5MIN 

RFPEA1  0  0  0  * 
TIME  OUT'WHILE  WAITING'fOR'wRITE  COMPLETION,* 
7-BIT  ASCII  MODE^ERPNT 

ERLOOP  RFPEA1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPEA1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RFPEAl 

GO     CLRDON 
peg 

GO     U5MIN 

ERROR   RFPEAl  0  0  0  * 

TIME  OUT  WHILE  WAITING'fOR'BACRSPACE  BLOCK  COMPLETION, ,ERPNT 

ERLOOP  RFPEAl  ;If  error,  loop  to  RFPEAl 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPEAl  0  0  0  * 

COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 

ERLOOP  RFPEAl  ;If  error,  loop  to  RFPEAl 

GO     CLRATA  ;Go  clear  atten 

RDFWF  .-Read  forward 

GO     WSMIN  ;Wait  for  command  completion 

ERROR   RFPEAl  0  0  0  * 

TIME  OUT  WHILE  WAITING'fOR'READ  FORWARD  COMPLETION,* 

7-BIT  ASCII  MODE, ERPNT 


;If  error,  loop  to  RFPEAl 

;Go  check  status 

.-Skip  if  any  errors  found 


;If  error,  loop  to  RFPEAl 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


ERLOOP  RFPEAl 

GO    <;tachk 

SKIPE  L^RFND 

ERROR  R'  EA1, 0-0,0,* 

STATUS  ERROR  ON  READ  OPERATION:* 

7-BIT  ASCII  MODE, ERPNT 

ERLOOP  RFPEAl 

CAIGE  REPT,DATAX 

AOJA  REPT, RFPEAl 

CAIGE  REPT1,SIZEX 

AOJA  REPTl, RFPEAO 


If  error,  loop  to  RFPEAl 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RFPEAl 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 
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SEQ  02^^ 


3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

36i2 

3613 

36U 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

?<42 

;3 

3644 
3645 
3646 
3647 
3648 
3649 
3650 


033467 
033470 
033471 
033472 
033473 
033474 
033475 
033476 


033477 
035500 
033501 
033502 


033503 
033504 
033505 
033506 
033507 

033510 
033511 
033512 

033513 
0335U 
033515 
033516 
033517 


033520 
0335?1 
0335^2 
033523 


033524 
033525 
033526 
033527 
033530 
033531 
033532 
033533 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


050000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  054541 
035  00  0  00  033473 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054544 

035  00  0  00  033473 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054414 
035  00  0  00  033473 
260  17  0  00  037323 

Oaz  00  0  00  054427 
035  00  0  00  033473 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054547 
035  00  0  00  033473 
260  17  0  00  037113 
332  00  0  00  000007 


036 
035 
305 
344 
305 
344 
002 


00 
00 
15 
15 
16 
16 
00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


054552 
033473 
00001 5 
033473 
000007 
033472 
033236 


;*  High  density  mode 

.  »♦♦•»♦*♦*•*•****♦•*•*♦••♦•*****************♦♦********♦***********»-*♦♦ 


MOVE  I 
MOVEM 
SETZ 
RFPEHO:  MOVEI 
RFPEH1:  GvO 
GO 
URT 
GO 
ERROR 


HIDEN 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 


;Set  data  and  drive  modes 

;Im*t  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
;Wait  for  command  completion 


W5MIN 

RFPEHl  0  0  0^ 
TIME  OUT'WHILE  UAITING'fOR'wRITE  COMPLETION. \ 
HIGH  DENSITY  MODE.ERPNT 

ERLOOP  RFPEHl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPEHl  .0.0.0.-" 
STATUS  ERROR  ON  WRITE  OPERATION.* 
HIGH  DENSITY  MODE.ERPNT 

ERLOOP  RFPEHl 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFPEHl  0  0  0  * 
TIME  OUT  WHILE  WAITING' FOR 'BACI^SPACE  BLOCK  COMPLETION..ERPNT 

ERLOOP  RFPEHl  ;If  error,  loop  to  RFPEHl 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPEHl  0  0  0  * 
COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION. .ERPNT 

ERLOOP  RFPEHl  ;If  error,  loop  to  RFPEHl 

GO     CLRATA  ;Go  clear  atten 

RDFWF  .-Read  forward 

GO     W5MIN  .-Wait  for  command  completion 

ERROR   RFPEHl  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'READ  FORWARD  COMPLETION.* 
HIGH  DENSITY  MODE.ERPNT 


;If  error,  loop  to  RFPEHl 

.-Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFPEHl 
;Go  clear  cmd  done 
.'Backspace  block 
.-Wait  for  commard  completion 


ERLOOP  RFPEHl 

GO  STACHK 

SKIPE  ERRFND 

ERROR  RFPEHl. O.O.O.* 

STATUS  ERROR  ON  READ  OPERATION.* 

HIGH  DENSITY  MODE -ERPNT 

ERLOOP  RFPEHl 

CAIGE  REPT.DATAX 

AOJA  REPT, RFPEHl 

CAIGE  REPTl.SIZEX 

AOJA  REPT1. RFPEHO 

REPEAT  TST 

RFWDPE: 


If  error,  loop  to  RFPEHl 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RFPEHl 
.-Skip  if  tested  all  data  patterns 
.-Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
.-Else,  test  next  word  count 


265  01  0  00  043410 
201  10  0  00  100041 
260  17  0  00  036657 


332  00  0  00  042723 
254  00  0  00  034012 
332  00  0  00  065340 
254  00  0  00  034012 
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3651 
3652 
3653 
3654 
3655 
3656 

3657  033533 

3658  033534 

3659  033535 
3660 

3661 
3662 
3663 
3664 
3665 
3666 

3667  033536 

3668  033537 

3669  033540 

3670  033541 
3671 

3672  033542 

3673  033543 

3674  033544 

3675  033545 

3676  033546 

3677  033547 

3678  033550 

3679  033551 

3680  033552 

3681  033553 

3682  0^^554 

3683  0   55 

3684  0:   36 

3685  03^)^57 

3686  033560 

3687  033561 

3688  033562 
3689 

3690 

3691  033563 

3692  033564 

3693  033565 

3694  033566 
3695 

3696 

3697  033567 

3698  033570 

3699  033571 

3700  033572 
37C1  033573 

3702  033574 

3703  033575 

3704  033576 
3705 
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SEQ  0245 


402  00 

201  00 

202  00 
200  00 
202  00 


200  00  0 
202  00  0 


201  00 
20?  00 
4uJ 
201 


16 
15 


260  17 
260  17 


0 
0 
0 
0 
0 
0 


200  00  0 
202  00  0 
004  00  0 
260  17  0 


00  065243 
00  006000 
00  065242 
00  126037 
00  126031 
00  126040 
00  126032 
00  016000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  126037 
00  126031 
00  000061 
00  037616 


036  00  0  00  054563 
035  00  0  00  033555 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
200  00 
435  00 
202  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 


00  054566 
00  033555 
00  037766 
00  126037 
00  000040 
00  126031 
00  400077 
00  037616 


TEST    33, READ  REVERSE  IN  PE  MODE, 0,0,1 
;*  DFDXD  *  TEST  33  ♦    READ  REVERSE  IN  PE  MODE 
XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST33:  MOVEI   F,(BYTE  (1)  0,0,1,0!0  (14)  ^D<33» 

GO     SEIUP  ; SETUP  SUBSYSTEM> 

;♦  Do  writes  and  read  reverse  xfers  in  pe  mode. 
;*  Skip  this  test  if  7  trk. 
;*  Core  dump  mode 


SKIPE 
JRST 
SKIPE 
JRST 
SETSTA 
SETZM 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
MOVEM 
SETZ 
RBPECO:  MOVEI 
RBPEC1:  GO 
GO 
MOVE 
MOVEM 
URT 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
GO 
MOVE 
lORI 
MOVEM 
RDRVF 
GO 
ERROR 


V701FG 

TST34-1 

TRACK7 

RBUDPE 

0,DEVEND^CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

CDUMP^T91600 

DMODE 

REPT1, 

REPT,1 

SETUP 

RUDCHK 

SNSC1 

SNSEX1 


U5MIN 

RBPEC1  0  0  0  * 

waiting'for'write  completion,* 

ERPNT 

RBPEC1 

STACHK 

ERRFND 

RBPEC1, 0,0,0,* 

WRITE  OPERATION,* 
ERPNT 

RBPEC1 

CLRDON 

SNSC1 

6KWD 

SNSEX1 


7.01  Monitor  cannot  do  read  reverses 

Do  next  test 

Skip  if  9-track 

Else,  can't  dp  pe  mode  tests 

SET  DXERR  EXPECTED  STATUS  =  0> 

.-SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  FABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  data  and  drive  modes  to 
Core  dump  and  1600  bpi-pe 
Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Make  constant  sense  data 
The  expected  sense  data 
Write  data  pattern 
Wait  for  command  completion 


If  error,  loop  to  RBPEC1 

Go  check  status 

Skip  if  any  errors  found 


W5MIN 

R8PEC1, 0,0,0,*. 


;If  error,  loop  to  RB^ECI 

;Go  clear  cmd  done 

;Get  constant  sense  word  1 

;Set  backward  bit 

;Store  as  expected  sense  word  1 

.-Read  reverse 

;Wait  for  command  completion 


DFDXD 

DX20-V 

DFDXDM 

MAC 

3706 

3707 

033577 

3708 

033600 

3709 

033601 

3710 

033602 

3711 

3712 

3713 

033603 

37U 

033604 

3715 

033605 

3716 

033606 

3717 

033607 

3718 

033610 

)  MAGNETIC  TAPE 
6-Apr-85  18:38 
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VERSION  0.5 
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SEQ  0246 


036  00  0  00  054602 
035  00  0  00  033555 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054605 
035  00  0  00  033555 
305  15  0  00  000015 
344  15  0  00  033555 
305  16  0  00  000007 
344  16  0  00  033554 


TIME  OUT  WHILE  WAITING  FOR  READ  REVERSE  COMPLETION,". 


CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
CAIGE 
AOJA 
CAIGE 
AOJA 


ERPNT 

RBPEC1 

STACHK 

ERRFND 

RBPEC1,0,0,0,* 

READ  OPERATION,' 
ERPNT 

RBPEC1 

REPT,DATAX 

REPT,RBPEC1 

REPT1,SIZEX 

REPT1,RBPEC0 


;If  error,  loop 
;Check  status 
;Skip  if  no  errors 


to  RBPEC1 
found 


;If  error,  loop  to  RBPEC1 
;Skip  if  tested  all  data  patterns 
.-Else,  test  next  patterns 
;Skip  It  tested  all  word  counts 
;Else,  test  next  word  count 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
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SEQ  02^7 


3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3743 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 


03361 1 
033612 
033613 
033614 
03361 5 
033616 
03361 7 
033620 
033621 
033622 


033623 
033624 
033625 
033626 


033627 
033630 
033631 
033632 
033633 
033634 
033635 
033636 


033637 
033640 
033641 
033642 


033643 
033644 
033645 
033646 
033647 
033650 


201  00 

202  00 
400  16 
201  15 
260  17 
260  17 


0 
0 
0 
0 
0 
0 


200  00  0 
202  00  0 
004  00  0 
260  17  0 


00  020000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  126037 
00  126031 
00  000061 
00  037616 


036  00  0  00  054610 
035  00  0  00  033615 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
200  00 
435  00 
202  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


054613 
033615 
037766 
126037 
000040 
126031 
400077 
037616 


036  00  0  00  054616 
035  00  0  00  033615 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054621 
035  00  0  00  033615 
305  15  0  00  000015 
344  15  0  00  033615 
305  16  0  00  000007 
344  16  0  00  033614 


;*  Industry  compatible  mode 


INDCMP 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 

SNSC1 

SNSEX1 

U5MIN 
RBPEI1,0,0,0,r 


MOVE  I 

MOVEM 

SET2 
RBPEIO:  MOVE I 
RBPEI1:  60 

60 

MOVE 

MOVEM 

URT 

GO 

ERROR 
TIME  OUT  WHILE  WAItIng' FOR 'WRITE  COMPLETION,-* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBPEI1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBPEI1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION, 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  R6PEI1 


;Set  data  and  drive  modes 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Make  constant  sense  data 
;The  expected  sense  data 
;Write  data  pattern 
;Wait  for  command  completion 


If  error,  loop  to  RBPEI1 

Go  check  status 

Skip  if  any  errors  found 


GO 

MOVE 

lORI 

MOVEM 

RDRVF 

GO 

ERROR 


CLRDON 
SNSC1 
BKWD 
SNSEX1 


W5MIN 

RBPEI1  0  0  0  * 
TIME  OUT'WHILE  WAITING' FOR 'rEAD  REVERSE  COMPLETION, \ 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBPEI1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBPEI1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBPEI1 


;If  error,  loop  to  RBPEI1 

;Go  clear  cmd  done 

;Get  constant  sense  word  1 

;Set  backward  bit 

;Store  as  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


;If  error,  loop  to  RBPEI1 

;Check  status 

;Skip  if  no  errors  found 


CAIGE  REPT,DATAX 

AOJA  REPT.RBPEII 

CAIGE  REPT1,SIZEX 

AOJA  REPT1, RBPEIO 


;!f  error,  loop  to  RBPEI1 
;Skio  if  tested  all  data  patterns 
;Elst,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


DFDXD 
DFDXDM 

3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 

3775 

Z776 

1777 

3778 

3779 

3780 

3781 

3782 

3783 

378A 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

379A 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

380A 

3805 

3806 
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SEQ  0248 


033651 
033652 
033653 
033654 
033655 
033656 
0336')7 
033660 
033661 
033662 


033663 
033664 
033665 
033666 


033667 
033670 
033671 
033672 
033673 
033674 
033675 
033676 


033677 
033700 
033701 
033702 


033703 
033704 
033705 
033706 
033707 
033710 


201  00  0 

202  00  0 
400  16  0 

201  15  0 
260  17  0 
260  17  0 
200  00  0 

202  00  0 
004  00  0 
260  17  0 


00  030000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  126037 
00  126031 
00  000061 
00  037616 


036  00  0  00  054624 
035  00  0  00  033655 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
200  00 
435  00 
202  00 
004  00 
260  17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


054627 
033655 
037766 
126037 
000040 
126031 
400077 
037616 


036  00  0  00  054632 

035  00  0  00  033655 

260  17  0  00  037113 

332  00  0  00  000007 


036  00  0  00  054635 
035  00  0  00  033655 
305  15  0  00  000015 
344  15  0  00  033655 
305  16  0  00  000007 
344  16  0  00  033654 


;*  Six  bit 


SIXBT 

DMODE 

REPT1, 

REPTJ 

SETUP 

RWDCHK 

SNSC1 

SNSEX1 


MOVE  I 

MOVEM 

SET2 
RBPESO:  MOVEI 
RBPES1:  60 

60 

MOVE 

MOVEM 

WRT 

60 

ERROR 
TIME  OUT  WHILE  WAITIN6 
SIX  BIT  MODE.ERPNT 

ERLOOP  RBPES1 

60     STACHK 

SKIPE   ERRFND 

ERROR   RBPES1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATIOFJ,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBPES1 


W5MIN 

RBPES1, 0,0,0,* 

FOR  WRITE  COMPLETION,* 


;Set  data  and  drive  modes 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;6o  rewind  if  needed 
;Make  constant  sense  data 
;The  expected  sense  data 
;Write  data  pattern 
;Wait  for  command  completion 


60 

MOVE 

lORI 

MOVEM 

RDRVF 

60 

ERROR 
TIME  OUT  WHILE 
SIX  BIT  MODE,ERPNT 

ERLOOP 

60 

SKIPE 

ERROR 
STATUS  ERROR  ON 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBPES1 

CAIGE   REPT,DATAX 

AOJA    REPT.RBPESI 

CAIGE   REPT1,SIZEX 

AOJA    REPT1, RBPESO 


CLRDON 
SNSC1 
BKWD 
SNSEX1 

W5MIN 

RBPES1, 0,0,0,* 
WAITING  FOR  READ  REVERSE 


RBPES1 

STACHK 

ERRFND 

R8PES1, 0,0,0,* 

READ  operation:* 


;If  error,  loop  to  RBPES1 

;6o  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBPES1 

;6o  clear  cmd  done 

;6et  constant  sense  word  1 

;Set  backward  bit 

;Store  as  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 

COMPLETION,*. 

;If  error,  loop  to  RBPES1 

;Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBPES1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


*"   ^.Jfc^W—i  -HM»- 


■  '^■iitin»wg'i»^i|-»Oi  .'»mSM 
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SEQ  0249 


3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 


03371 1 

03371 2 

03371 3 
033714 
03371 5 
033716 
03371 7 
033720 
033721 
033722 


033723 
033724 
033725 
033726 


033727 
033730 
033731 
033732 
033733 
033734 
033735 
033736 


033737 
033740 
033741 
033742 


033743 
033744 
033745 
033746 
033747 
033750 


201 
202 
400 
201 
260 
260 
200 
202 
004 
260 


00 
00 
16 
15 
17 
17 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


040000 
065237 
000000 
000001 
036657 
037713 
126037 
126031 
000061 
037616 


036  00  0  00  054640 
035  00  0  00  033715 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
200  00 
435  00 
202  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


054643 
033715 
037766 
126037 
000040 
126031 
400077 
037616 


036  00  0  00  054646 
035  00  0  00  033715 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054651 
035  00  0  00  033715 
305  15  0  00  000015 
344  15  0  00  033715 
305  16  0  00  000007 
344  16  0  00  033714 


•  ♦♦♦♦♦♦♦♦*•*•♦♦••*♦*••*♦♦*•***♦♦**•******•**♦•♦♦**♦*•***♦*•**♦♦♦*♦•<!:*♦♦ 


;♦  7-Bit  ascii 


•  ♦********••••♦*•*••**♦•♦*♦********♦****♦*♦***•****♦♦*♦********♦♦****♦* 


MOVEI   ASCII7 

MOVEM   DMODE 

SETZ  REPT1, 
RBPEAO:  MOVEI  REPTJ 
RBPEA1:  GO     SETUP 

GO     RUDCHK 

MOVE    SNSC1 

MOVEM   SNSEX1 

URT 

GO 

ERROR 
TIME  OUT  WHILE  WAITING 
7-BIT  ASCII  MODE.ERPNT 

ERLOOP 

GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 


W5MIN 

RBPEA1, 0,0,0.* 

FOR  WRITE  COMPLETION,* 


;Set  data  and  dri\fe  modes 

;Im*t  word  cnt  index 
;Im't  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Make  constant  sense  data 
;THe  expected  sense  data 
;W'  te  data  pattern 
;Wait  for  command  completion 


7-BIT  ASCII  M0DE,ERPNT 
ERLOOP  RBPEA1 
GO     CLRDON 
MOVE    SNSC1 
I OR I    BKWD 
MOVEM   SNSEX1 
RDRVF 
GO 
ERROR 

TIME  OUT  WHILE  WAITING 

7-BIT  ASCII  MODE,ERPNT 
ERLOOP 
GO 

SKIPE 
ERROR 

STATUS  ERROR  ON 


RBPEA1 

STACHK 

ERRFND 

RBPEA1, 0,0,0,* 

WRITE  OPERATION,* 


W5MIN 

RBPEA1,0,0,C,* 
FOR  READ 


;If  error,  loop  to  RBPEAl 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBPEAl 

;Go  clear  cmd  done 

;Get  constant  sense  word  1 

:Set  backward  bit 

; Store  as  expected  sense  word 

;Read  reverse 

;Wait  for  command  completion 


REVERSE  COMPLETION,*. 


7-BIT  ASCII  MODE,ERPNT 


RBPEAl 

STACHK 

ERRFND 

RBP:A1, 0,0,0,*. 

READ  OPERATION,-* 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBPEAl 

rept,datax 
rept,r:':m 
rept1,sizex 
rept1, rbpeao 


If  error,  loop  to  RBPEAl 

Check  status 

Skip  if  no  errors  found 


If  error,  loop  to  RBPEAl 

Skip  if  tested  all  data  patterns 

Else,  test  r.ext  patterns 

Skip  if  tested  all  word  counts 

Else,  ♦•est  next  word  count 


OFDXD 
DFDXOM 

3851 

3852 

3853 

385A 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

386A 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

388A 

3885 

3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
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SEQ  0250 


033751 
033752 
033753 
033754 
033755 
033756 
033757 
033760 
033761 
033762 


033763 
033764 
033765 
033766 


033767 
033770 
033771 
033772 
033773 
033774 
033775 
033776 


033777 
034000 
034001 
034002 


034003 
034004 
034005 
034006 
034007 
034010 


201 
202 
400 
201 
260 
260 
200 
202 
004 
260 


00 
00 
15 
15 
17 
17 
00 
00 
00 
17 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


050000 
065237 
000000 
000001 
036657 
03771 3 
126037 
126031 
000061 
037616 


036  00  0  00  054654 
035  00  0  00  033755 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0 
035  00  0 


260  17 
200  00 


0 
0 
0 
0 

004  00  0 
260  17  0 


435  00 
202  00 


00  054657 
00  033755 
00  037766 
00  126037 
00  000040 
00  126031 
00  400077 
00  037616 


036  00  0  00  054662 
035  00  0  00  033755 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054665 
035  00  0  00  033755 
305  15  0  00  000015 
344  15  0  00  033755 
305  16  0  00  000007 
344  16  0  00  033754 


034011  002  00  0  00  033534 
034012 


;   ♦•♦♦♦♦♦•♦♦•*♦♦♦♦♦♦♦*♦♦%♦♦*♦♦*♦♦>*♦♦♦♦♦♦*♦♦♦♦♦♦♦♦**♦♦♦♦♦♦♦♦♦♦♦**♦♦♦♦♦♦♦ 

;♦  High  density  mode 


MOVE  I 
MOVEM 
SET2 
RBPEHO:  MOVE I 
RBPEH1:  GO 
GO 

MOVE 
MOVEM 
yRT 
GO 
ERROR 


HIDEN 

DMODE 

rtEPT, 

REPTJ 

SETUP 

RUDCHK 

SNSC1 

SNSEX1 


U5MIN 

RBPEHI  0  0  0  * 
TIME  OUT'yHILE  WAITING'fOR'uRITE  COMPLETION,-* 
HIGH  DENSITY  MODE.ERPNT 
ERLOOP  RBPEHI 
GO     STACHK 
SKIPE   ERRFND 
ERROR   RBPEHI, 0,0,0,-" 
STATUS  ERROR  ON  WRITE  OPERATION,* 
HIGH  DENSITY  MODE,ERPNT 
ERLOOP  RBPEHI 
CLRDON 
SNSC1 
BKUD 
SNSEX1 


;Set  data  and  drive  modes 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.'Make  constant  sense  data 
;The  expected  sense  date 
;Write  data  pattern 
.-Wait  for  command  completion 


;If  error,  loop  to  RBPEHI 

;Go  check  status 

;Skip  if  any  errors  found 


GO 

MOVE 

lORI 

MOVEM 

RDRVF 

GO 

ERROR 


U5MIN 

RBPEHI  0  0  0^ 
TIME  OUT'WHILE  WAITING'fOR'REAO  REVERSE 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBPEHI 

GO      STACHK 

SKIPE   ERi.FND 

ERROR   RBPEHI -0,0.0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
HIGH  DENSITY  MODE.ERPNT 

ERLOOP  RBPEHI 

CAIGE   REPT,DATAX 

AOJA    REPT, RBPEHI 

CAIGE   REPT1,SI2EX 

AOJA    REPT1, RBPEHO 


;If  error,  loop  to  RBPEHI 

;Go  clear  cmd  done 

;Get  constant  sense  word  1 

;Set  backward  bit 

.•Store  as  expected  sense  word  1 

;Read  reverse 

.-Wait  for  command  completion 


COMPLETION,*. 

;If  error,  loop  :o  RBPEHI 

.•Check  statu 

;Skip  if  no   "ors  found 


If  error,  loop  to  RBPEHI 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  word  counts 

Else,  test  next  word  count 


RBWDPE : 


REPEAT  TST 


OFDXD 
DFDXDM 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

39U 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

392A 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

393A 

3935 

3936 

3937 

3938 

3939 

39A0 

3941 

3942 

3943 

3944 

3945 

1946 

[947 

1948 

1949 

1950 

[951 

i952 
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SEQ  0251 


034012  265  01  0  00  043410 

034013  201  10  0  00  100042 

034014  260  17  0  00  036657 


03401 5 
034016 
03401 7 
034020 
034021 
034022 
034023 
034024 
034025 

034026 
034027 
034030 
034031 
034032 
034033 
034034 
034035 
034036 
034037 
034040 
034041 
034042 
034043 
034044 
034045 


034046 
034047 
034050 
034051 


034052 
034053 
034054 
034055 
034056 


201  00 
332  00 
201  00 
332  00 

201  00 

202  00 
336  00 
260  17 
260  17 

402  00 

201  00 

202  00 
200  00 
lyjl   00 

200  00 
202  00 

201  00 
336  00 
436  00 
400  16 
201  15 
260  17 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  015400 
00  065341 
00  016400 
00  065340 
00  011400 
00  065237 
00  065340 
00  040005 
00  037716 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
006000 
065242 
126037 
126031 
126040 
126032 
030000 
065341 
126031 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  054700 
035  00  0  00  034042 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054703 
035  00  0  00  034042 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 


TEST    34, READ  FORWARD  IN  NR2I  OR  6CR  MODE, 0,0,1 

!•♦  DFDXD  ♦  TEST  34  *    READ  FORWARD  IN  NRZI  OR  6CR  MODE 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST34:  MOVEI   F,(BYTE  (1)  0,0,1,010  (14)  •D<34» 

GO     SETUP  ; SETUP  SUBSySTEM> 

;♦  Do  writes  and  read  forward  xfers. 

;*  If  tu72,  set  jcr  mode,  if  tu70  or  tu71,  set  800  bpi  nrzi  mode. 

;*  Core  dump  mode 


MOVEI 
SKIPE 
MOVEI 
SKIPE 
MOVEI 
MOVEM 
SKIPN 
GO 
GO 

SETSTA 
SET2M 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
SKIPN 
ORM 
SETZ 
RFNGCO:  MOVEI 
RFNGC1:  GO 
GO 
WRT 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
GO 
BSB 
60 


T9800^CDUMP 

TU72 

T96250+CDUMP 

TRACK7 

OT7800+CDUMP 

DMODE 

TRACK7 

CLRD16 

REWIND 

0,DEVEND+CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

3B<TIER> 

TU72 

SNSEX1 

REPT1, 

REPT.1 

SETUP 

RWDCHK 


W5MIN 

RFNGC1, 0,0,0,* 
WAITING  FOR  WRITE  COMPLETION,* 
ERPNT 

RFNGC1 

STACHK 

ERRFND 

RFNGC1, 0,0,0/ 

WRITE  OPERATION,* 
ERPNT 

RFNGC1 

CLRDON 


Set  for  9  track  nrzi 

Skip  if  not  a  tu72  drive 

Set  for  gcr  mode 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  both  modes 

Skip  if  7  track 

Go  setup  d1600  and  nt1600  sense  bits 

Rewind  the  tape 

;SET  DXERR  EXPECTED  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  expected  track  in  error  sense  byte 
To  'T'^if  drive  is 
Tu70  or  tu71 
Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


;If  error,  loop  to  RFN6C1 

;Go  check  status 

;Skip  if  any  errors  fDund 


W5MIN 


;If  error,  loop  to  RFNGC1 
;Go  clear  cmd  done 
.•Backspace  block 
;Wait  f'^r  command  completion 


J  rir  giiiljljilii  1 1 


i  DFOXD 
DFDXOM 

3953 

395A 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

396A 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 
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SEQ  0252 


034057  036  00  0  00  054706 

034060  035  00  0  00  034042 

034061  260  17  0  00  037323 

034062  036  00  0  00  054711 

034063  035  00  0  00  034042 

034064  260  17  0  00  037771 

034065  004  00  0  00  400071 

034066  260  17  0  00  037616 


034067  036  00  0  00  054714 

034070  035  00  0  00  034042 

034071  260  17  0  00  037113 

034072  332  00  0  00  000007 


034073  036  00  0  00  054/17 

034074  035  00  0  00  034042 

034075  305  15  0  00  000015 

034076  344  15  0  00  034042 

034077  305  16  0  00  000007 
034100  344  16  0  00  034041 


ERROR   RFNGC1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  C0MPLETI0N,,ERPNT 

ERLOOP  RFN6C1  ;If  error,  loop  to  RFN6C1 

GO     DXSTCK  ;Check  dxJO  status 

ERROR   RFNGC1, 0,0,0,* 
COMPOSITE  ERROR  ON  BACKSPACE  BCOCK  OPERATION, ,ERPNT 

ERLOOP  RFNGC1  ;If  error,  loop  to  RFN6C1 

CLRATA  ;6o  clear  atten 

;Read  forward 
W5MIN  ;Wait  for  command  completion 

RFNGC1, 0,0,0,* 

FOR  READ  FORWARD  COMPLETION,* 


GO 

RDFWF 

GO 

ERROR 
TIME  OUT  WHILE  WAITING 
CORE  DUMP  MODE,ERPNT 

ERLOOP  RFNGC1 

GO     STACHK 

5<IPE   ERRFND 

Er.ROR   RFNGC1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
CORE  DUMP  MODE,ERPNT 

P.^LOOP  RFNGC1 

CAIGE   REPT,DATAX 

AOJA    REPT-RFNGCI 

CAIGE   REPT1,SIZEX 

AOJA    REPT1,RFNGC0 


;If  error,  loop  to  RFNGC1 

.•Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RFNGC1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 
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SEQ  0253 


3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 


•   *••♦•*•••**•*******••♦*♦•**••*••••••***•**•••**••*•*•*••***♦***••♦**•* 


034101 
034102 
034103 
034104 
034105 
034106 
034107 
034110 


034111 
034112 
034113 
034114 


034115 
034116 
034117 
034120 
034121 

034122 
034123 
034124 

034125 
034126 
034127 
034130 
034131 


034132 
034133 
034134 
034135 


034136 
034137 

034140 
034141 
034142 
034143 


201  00  0 

202  00  0 
400  16  0 
201  15  0 
260  17  0 
260  17  0 
004  00  0 
260  17  0 


00  020000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  054722 
035  00  0  00  034105 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054725 

035  00  0  00  034105 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054706 
035  00  0  00  034105 
260  17  0  00  037323 

03c  00  0  00  054711 
035  00  0  00  034105 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054730 
035  00  0  00  034105 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054733 
035  00  0  00  034105 
305  15  0  00  000015 
344  15  0  00  034105 
305  16  0  00  000007 
344  16  0  00  034104 


;*  Industry  compatible  mode 


;  ***♦*♦***•••*♦•••*••*♦♦♦♦*••*******•♦*******••*•••**•**•**••••••****** 


MOVE I  INDCMP 

MOVEM  DMODE 

SETZ  REPT1, 

RFNGIO:  MOVEI  REPTJ 

RFNGI1:  GO  SETUP 

GO  RUDCHK 

WRT 

GO 

ERROR 


U5MIN 

RFNGI1,0,0,0,'" 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,^. 
INDUSTRY  COMPATIBLE  MODE^ERPNT 

ERLOOP  RFNGI1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGI1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RFNGI1 
CLRDON 


;Add  data  mode 

;Im*t  word  cnt  index 
;Im't  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
.-Wait  for  command  completion 


If  error,  loop  to  RFN6I1 

Go  check  status 

Skip  if  any  errors  found 


GO 
BSB 
GO 
ERROR 


W5MIN 

RFNGI1, 0,0,0,* 


;If  error,  loop  to  RFNGI1 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  COMPLETION,,ERPNT 

ERLOOP  RFNGI1  ;If  error,  loop  to  RFNGI1 

DXSTCK  .-Check  dx20  status 

RFNGI1, 0,0,0,* 
ON  BACKSPACE  BCOCK  OPERATION, ,ERPNT 


GO 

ERROR 
COMPOSITE  ERROR 
ERLOOP 
GO 

RDFWF 
GO 
ERROR 


RFNGI1 
CLRATA 


W5MIN 

RFNGI1, 0,0,0,*. 

TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RFNGI1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGI1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
INDUSTRY  COMPATIBLE  MODE,ERPNT  ' 

ERLOOP  RFN6I1 

CAiGE  kep:,datax 

AOJA  REPT.RFNGII 
CAIGE  REPTl,SIZEX 
AOJA    REPT1, RFNGIO 


;If  error,  loop  to  RFNGI1 

;Go  clear  atten 

.-Read  forward 

.-Wait  for  command  completion 


If  error,  loop  to  RFNGI1 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RFNGI1 
;Skip  if  tested  all  data  patterns 
.-Else,  test  next  patterns 
.-Skip  if  tested  all  word  counts 
.-Else,  test  next  word  count 
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SEQ  025A 


4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 


034144 
034145 
034146 
034147 
034150 
034151 
034152 
034153 


034154 
034155 
034156 
034157 


034160 
034161 
034162 
034163 
034164 

034165 
034166 
034167 

034170 
034171 
034172 
034173 
034174 


034175 
034176 
034177 
034200 


034201 
034202 
034203 
034204 
034205 
034206 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


0  00 
0  00 


030000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  054736 
035  00  0  00  034150 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054741 

035  00  0  00  034150 
?60  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054706 
035  00  0  00  034150 
260  17  0  00  037323 

Oir  00  0  00  054711 
035  00  0  00  034150 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054744 
035  00  0  00  034150 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054747 
035  00  0  00  034150 
305  15  0  00  000015 
344  15  0  00  034150 
305  16  0  00  000007 
344  16  0  00  034147 


;*  Six  bit 


MOVEI  SIXST 

MOVEM  DMODE 

SETZ  REPT1, 

RFNGSO:  MOVEI  REPTJ 

RFNGS1:  GO  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


;Add  data  mode 

;Init  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Uait  for  command  completion 


U5MIN 

RFNGS1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,-* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFNGS1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGS1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFNGS1 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFNGS1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  COMPLETION,, ERPNT 

ERLOOP  RFNGS1  ;If  error,  loop  to  RFNGS1 

GO     DXSTCK  ; Check  dx20  status 

ERROR   RFNGS1, 0,0,0,* 
COMPOSITE  ERROR  ON  BACKSPACE  BCOCK  OPERATION,, ERPNT 

ERLOOP  RFNGS1  ;If  error,  loop  to  RFNGS1 

GO     CLRATA  ;Go  clear  atten 

RDFWF  ;Read  forward 

GO     W5MIN  ;Wait  for  command  completion 

ERROR   RFNGS1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION,* 
SIX  BIT  MODE, ERPNT 


;If  error,  loop  to  RFNGS1 

;6o  check  status 

.-Skip  if  any  errors  found 


;If  error,  loop  to  RFNGS1 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


ERLOOP  RFNGS1 
GO  STACHK 
SKIPE  ERRFND 
ERROR   RFNGS1, 0,0,0,* 

STATUS  ERROR  ON  READ  OPERATION,* 

SIX  BIT  MODE, ERPNT 

ERLOOP  RFNGS1 
CAIGE   REPT,DATAX 
AOJA    REPT.RFNGSI 
CAIGE   REPT1,SIZEX 
AOJA    REPT1, RFNGSO 


;If  error,  loop  to  RFNGS1 

.-Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RFNGS1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  wDrd  counts 
;Else,  test  next  word  count 
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SEQ  0255 


A075 

4076 

A077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 


034207 
034210 
03421 1 
034212 
034213 
034214 
034215 
034216 


034217 
034220 
034221 
034222 


034223 
034224 
034225 
034226 
0342^7 

034230 
034231 
034232 

034233 
034234 
034235 
034236 
034237 


034240 
034241 
034242 
034243 


034244 
034245 
034246 
034247 
034250 
034251 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


040000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  054752 
035  00  0  00  034213 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054755 

035  00  0  00  034213 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054706 
035  00  0  00  034213 
260  17  0  00  037323 

032  00  0  00  054711 
035  00  0  00  034213 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  054760 
035  00  0  00  034213 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054763 
035  00  0  00  034213 
305  15  0  00  000015 
344  15  0  00  034213 
305  16  0  00  000007 
344  16  0  00  034212 


;*  7-Bit  ascn' 


MOVE  I 
MOVEM 
SETZ 
RFNGAO:  MOVEI 
RFNGA1:  GO 


ASCII7 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 


U5MIN 

RFN6A1, 0,0,0,-* 

FOR  WRITE  COMPLETION, •* 


GO 

URT 

GO 

ERROR 
TIME  OUT  WHILE  WAITING 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RFNGA1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGA1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RFNGA1 


;Add  data  mode 

;Im*t  word  cnt  index 
;Im't  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Wait  for  command  completion 


GO 

BSB 

GO 

ERROR 
TIME  OUT  WHILE 

ERLOOP 

GO 

ERROR 
COMPOSITE  ERROR 


CLRDON 


;If  error,  loop  to  RFN6A1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFNGA1 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


W5MIN 

RFNGA1, 0,0,0,* 
WAITING  FOR  BACl^SPACE  BLOCK  COMPLETION,, ERPNT 
RFNGA1  ;If  error,  loop  to  RFN6A1 

DXSTCK  .-Check  dx20  status 

RFNGA1, 0,0,0,* 
ON  BACKSPACE  BCOCK  OPERATION,, ERPNT 


U5MIN 

RFNGA1, 0,0,0,* 
WAITING  FOR  READ 


ERLOOP  RFNGA1 

GO     CLRATA 

RDFWF 

GO 

ERROR 
TIME  OUT  WHILE 
7-BIT  ASCII  MODE, ERPNT 

ERLOOP  RFNGA1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGAI.0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
7-BIT  ASCII  MODE, ERPNT 

ERLOOP  RFNGA1 

CAIGE   REPT,DATAX 

AOJA    REPT.RFNGAI 

CAIGE   REPT1,SIZEX 

AOJA    REPTI.RFNGAO 


;If  error,  loop  to  RFNGA1 

;Go  clear  atten 

.'Read  forward 

.'Wait  for  command  completion 


FORWARD  COMPLETION,*. 


.'If  error,  loop  to  RFNGA1 

.'Check  status 

.'Skip  if  no  errors  found 


If  error,  loop  to  RFNGA1 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  wDrd  counts 

Else,  test  next  word  count 


r 


DFDXD 
DFOXDM 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 
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SEQ  0256 


034252 
034253 
034254 
034255 
034256 
034257 
034260 
034261 


034262 
034263 
034264 
034265 


034266 
034267 
034270 
034271 
034272 

034273 
034274 
034275 

034276 
034277 
034300 
034301 
034302 


034303 
034304 
034305 
034306 


034307 
034310 
034311 
034312 
034313 
034314 


201  00 

202  00 
400  16 
201  15 


0 
0 
0 
0 

260  17  0 
260  17  0 
004  00  0 
260  17  0 


00  050000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  054766 
035  00  0  00  034256 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054771 

035  00  0  00  034256 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  054706 
035  00  0  00  034256 
260  17  0  00  037323 

0:>-  00  0  00  054711 

035  00  0  00  034256 

260  17  0  00  037771 

004  00  0  00  400071 

260  17  0  00  037616 


036  00  0  00  054774 
035  00  0  00  034256 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  054777 
035  00  0  00  034256 
305  15  0  00  000015 
344  15  0  00  034256 
305  16  0  00  000007 
344  16  0  00  034255 


;   ♦»»♦♦•••♦♦♦•**••*•♦•♦***♦•**•»♦****♦♦**♦*♦♦♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*# 

;*  High  density  mode 


MOVEI  HIDEN 

MOVEM  DMODE 

SETZ  REPTl, 

RFNGHO:  MOVEI  REPTJ 

RFNGHl:  60  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


U5MIN 

RFNGHl, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RFNGHl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFNGHl, 0,0,0  * 
STATUS  ERROR  ON  WRITE  OPERAT.oFj,'^ 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RFNGHl 


;Add  data  mode 

;Im*t  word  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
;Wait  for  command  completion 


;If  error,  loop  to  RFNGHl 

;Go  check  status 

;Skip  if  any  errors  found 


CLRDON 


GO 

BSB 

GO 

ERROR 
TIME  OUT  WHILE 

ERLOOP 

GO 

ERROR 
COMPOSITE  ERROR 

ERLOOP 

GO 

RDFWF 

GO 

ERROR 
TIME  OUT  WHILE 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RFNGHl 

GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 
HIGH  DENSITY  MOD*= 


;If  error,  loop  to  RFNGHl 
;Go  clear  cmd  done 
.'Backspace  block 
.-Wait  for  command  completion 


W5MIN 

RFNGHl, 0,0,0,* 
WAITING  FOR  BACKSPACE  BLOCK  COMPLETION. ,ERPNT 
RFNGHl  ;If  error,  loop  to  RFNGHl 

DXSTCK  .-Check  dx20  status 

RFNGHl. 0.0,0,* 
ON  BACKSPACE  BCOCK  OPERATION,, ERPNT 


RFNGHl 
CLRATA 

W5MIN 

RFNGHl, 0,0.0.*. 
WAITING  FOR  READ 


;If  error,  loop  to  RFNGHl 

;Go  clear  atten 

.-Read  forward 

.-Wait  for  command  completion 


FORWARD  COMPLETION.*. 


STACHK 
ERRFND 

RFNGHl. 0,0,0.* 
READ  operation:* 
"  ERPNT 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RFNGHl 
REPT,DATAX 
REPT-RFNGHI 
REPTl.SIZEX 
REPT1. RFNGHO 


;If  error,  loop  to  RFNGHl 

.'Check  status 

.-Skip  if  no  errors  found 


;If  error,  loop  to  RFNGHl 
;Skip  if  tested  all  data  patterns 
.'Else,  test  next  patterns 
;Skip  if  tested  all  wDrd  counts 
;Else,  test  next  word  count 


034315  002  00  0  00  034013 


REPEAT  TST 


r 


DFDXD 
DFDXDM 

A175 

A176 

A177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 
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SEQ  0257 


034316 
034317 
034320 


265  01  0  00  043410 
201  10  0  00  100043 
260  17  0  00  036657 


034321 
034322 
034323 
034324 
034325 
034326 
034327 
034330 
034331 
034332 

034333 
034334 
034335 
034336 
034337 
034340 
034341 
034342 
034343 
034344 
034345 
034346 
034347 
034350 
034351 
034352 
034353 
034354 


034355 
034356 
034357 
034360 


034361 
034362 


332  00 
254  00 
201  00 
332  00 
201  00 
332  00 

201  00 

202  00 
336  00 
260  17 


402  00 

201  00 
20?  00 
2kj:  00 

202  00 

200  00 
202  00 

201  00 
336  00 
436  00 
400  16 
201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


042723 
034577 
015400 
065341 
016400 
065340 
011400 
065237 
065340 
040005 

065243 
006000 
065242 
126037 
126031 
126040 
1 26032 
030000 
065341 
126031 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  05501? 
035  00  0  00  034347 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055015 
035  00  0  00  034347 


TEST    35, READ  REVERSE  IN  NRZI  OR  GCR  MODE, 0,0,1 

i*  DFDXD  *  TEST  35  ♦    READ  REVERSE  IN  NRZI  OR  GCR  MODE 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST35:  MOVEI   F,(BYTE  (1)  0,0,1,010  (14)  "D<35» 

GO      SETUP  .-SETUP  SUBSVSTEM> 

;*  Do  writes  and  read  reverse  xfers. 

;*  If  tu72,  set  gcr  mode,  if  tu70  or  tu71,  set  800  bpi  nrzi   mode. 

;*  Core  dump  mode 


SKIPE 
JRST 
MOVEI 
SKIPE 
MOVEI 
SKIPE 
MOVEI 
MOVEM 
SKIPN 
GO 

SETSTA 
SET2M 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
SKIPN 
ORM 
SETZ 
MOVEI 
GO 
GO 
MOVEI 
AND CAM 
URT 
GO 

ERROR 
TIME  OUT  yniLE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 


RBNGCO: 
RBNGCl: 


V701FG 

TST36-1 

T9800^CDUMP 

TU72 

T96250*CDUMP 

TRACK7 

0T7800+CDUMP 

DMODE 

TRACK 7 

CLRD16 

0,DEVEND*CHLEND,0,0 

DXEREX 

DEVEND+CHLEND 

DRVEXP 

SNSCl 

SNSEXl 

SNSC2 

SNSEX2 

3B<TIER> 

TU72 

SNSEXl 

REPT1, 

REPT,1 

SETUP 

RWDCHK 

6KUD 

SNSEXl 


U5MIN 

RBNGCl, 0,0,0,* 
WAITING  FOR  WRITE  COMPLETION,* 
ERPNT 

RBNGCl 

STACHK 

ERRFND 

RBNGCl, 0,0, 0* 

WRITE   OPERATIOFl,* 
ERPNT 

RBNGCl 


7.01  Monitor  cannot  do  read  reverses 

Do  next  test 

Set  for  9  track  nrzi 

Skip  if  not  a  tu72  drive 

Set  for  gcr  mode 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  both  modes 

Skip  if  7  track 

Go  setup  dl600  and  nt1600  sense  bits 

;SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  expected  track  in  error  sense  byte 
To  •T'^if  drive  is 
Tu70  or  tu71 
Init  word  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Set  mask  of  backward  bit 
Clear  that  bit  in  expected  sense  word  1 
Write  data  pattern 
Wait  for  command  completion 


If  error,  loop  to  RBNGCl 

Go  check  status 

Skip  if  any  errors  found 


;If  error,  loop  to  RBNGCl 


DFDXD 
DFDXDM 

4230 
A231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 

4248 


DX20-V100 
MAC      6 


MAGNE  T I 
-Apr-85 


C  TAP 
18:3 
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034363  260  17  0  00  037766 

034364  201  00  0  00  000040 

034365  436  00  0  00  126031 

034366  004  00  0  00  400077 

034367  260  17  0  00  037616 


034370  036  00  0  00  055020 

034371  035  00  0  00  034347 

034372  260  17  0  00  037113 

034373  332  00  0  00  000007 


034374  036  00  0  00  055023 

034375  035  00  0  00  034347 

034376  305  15  0  00  000015 

034377  344  15  0  00  034347 

034400  305  16  0  00  000007 

034401  344  16  0  00  034346 


GO     CLRDON 

nOVEI   BKUD 

lORM    SNSEX1 

RDRVF 

GO 

ERROR 
TIME  OUT  WHILE  WAITING 
CORE  DUMP  M0DE,ERPNT 

ERLOOP 

GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 


W5MIN 

RBNGC1, 0,0,0/ 

"    FOR  READ  REVERSE 
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;Go  cLear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  conimand  completion 


SEO  0258 


CORE  DUMP  MQDE,EKr>NT 


RBNGC1 

STACHK 

ERRFND 

RBNGC1, 0,0,0/ 

READ  operation:'^ 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBNGC1 

REPT,DATAX 

REPT.RBNGCI 

REPT1,SIZEX 

REPT1,RBNGC0 


COMPLETION, \ 


If  error,  loop  to  RBNGC1 

Check  status 

Skip  if  no  errors  found 


If  error,  loop  to  RBNGC1 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  word  counts 

Else,  test  next  word  count 


DFDXD 

DX20-V1 

00  MAGNETIC  TAPE  SUf 

DFDXDM 

MAC 

6-Apr-85  18:38 

A249 

A250 

A251 

A252 

4253 

034402 

201  00  0  00  020000 

425A 

034403 

202  00  0  00  065237 

4255 

034404 

400  16  0  00  000000 

4256 

034405 

201  15  0  00  000001 

4257 

034406 

260  17  0  00  036657 

4258 

034407 

260  17  0  00  037713 

4259 

034410 

201  00  0  00  000040 

4260 

034411 

412  00  0  00  126031 

4261 

03^412 

004  00  0  00  000061 

4262 

034413 

260  17  0  00  037616 

4263 

4264 

4265 

034414 

036  00  0  00  055026 

4266 

034415 

035  00  0  00  034406 

4267 

034416 

260  17  0  00  037113 

4268 

034417 

332  00  0  00  000007 

4269 

4270 

4271 

034420 

036  00  0  00  055031 

4272 

034421 

035  00  0  00  034406 

4273 

034422 

260  17  0  00  037766 

4274 

034423 

201  00  0  00  000040 

4275 

034424 

436  00  0  00  126031 

4?76 

034425 

004  00  0  00  400077 

4277 

034426 

260  17  0  00  037616 

4278 

4279 

4280 

034427 

036  00  0  00  055034 

4281 

034430 

035  00  0  00  034406 

4282 

034431 

260  17  0  00  037113 

4283 

034432 

332  00  0  00  000007 

4284 

4285 

4286 

034433 

036  00  0  00  055037 

4287 

034434 

035  00  0  00  034406 

4288 

034435 

305  15  0  00  000015 

4289 

034436 

344  15  0  00  034406 

4290 

034437 

305  16  0  00  000007 

4291 

034440 

344  16  0  00  034405 

DATA  TRANSFER  COMMANDS 


VERSION  0.5 
TESTS 
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SEQ  0259 


;*  Industry  compatible  mode 


INDCMP 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 

BKUD 

SNSEX1 

U5MIN 
R8N6I1,0,0,0,'^ 


MOVE  I 

MOVEM 

SET2 
RBNGIO:  MOVE I 
R6NGI1:  GO 

GO 

MOVE  I 

AND CAM 

URT 

GO 

ERROR 
TIME  OUT  WHILE  WAITING'FOR'yRlTE  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBNGI1 

GO      STACHK 

SKIPE   ERRFND 

ERROR   RBNGI1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION, 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBNGI1 


;Add  data  mode 


Im't  word  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Set  mask  of  backward  bit 

Clear  that  bit  ir  expected  sense  word  1 

Write  data  pattern 

Wait  fcr  command  completion 


;If  error,  loop  tc  RBNGI1 

;6o  check  status 

;Skip  if  any  errors  found 


GO 

MOVE  I 

lORM 

RDRVF 

GO 

ERROR 


CLRDON 

BKWD 

SNSEX1 

W5MIN 

RBNGI1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  READ 
INDUSTRY  COMPATIBLE  M0DE,ERPNT 
ERLOOP  RBNGIl 
GO      STACHK 
SKIPE   ERRFND 
ERROR   RBNGIl, 0.0.0,* 
STATUS  ERROR  ON  READ  OPERATION,' 
INDUSTRY  COMPATIBLE  MODE,ERPNT 
ERLOOP  RBNGIl 
CAIGE   REPT,DATAX 
AOJA    REPT -RBNGIl 
CAIGE   REPT1,SIZEX 
AOJA    REPT1, RBNGIO 


;If  error,  loop  to  RBNGIl 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


REVERSE  COMPLETION,*. 


If  error,  loop  to  RBNGIl 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RBNGIl 
.-Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
.-Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 
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SEQ  0260 


4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 


034441 
034442 
034443 
034444 
034445 
034446 
03444? 
034450 
034451 
034452 


034453 
034454 
034455 
034456 


034457 
034460 
034461 
034462 
03 '.463 
034464 
034465 


034466 
034467 
034470 
034471 


034472 
034473 
034474 
034475 
034476 
034477 


201 
202 
400 
201 
260 
260 
201 
412 
004 
260 


00 
00 
16 
15 
17 
17 
00 
00 
00 
17 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


030000 
065237 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  055042 
035  00  0  00  034445 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

on 

00 
00 


055045 
034445 
037766 
000040 
126031 
400077 
037616 


036  00  0  00  055050 
035  00  0  00  034445 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055053 
035  00  0  00  034445 
305  15  0  00  000015 
344  15  0  00  03^445 
305  16  0  00  000007 
344  16  0  00  034444 


•  ♦*♦*♦*♦♦*•♦***•»*•>••♦♦♦♦♦♦♦****•*♦♦***♦***♦*****♦♦**♦**♦♦*****•*•**** 


;♦  Six  bit 


•  ************ ^*****»** »••♦♦****•**»♦**•**♦****•♦*♦***»♦*♦••*♦*♦♦*••♦•♦• 


MOVEI  SIX8T 

MOVEM  DMODE 

SETZ  REPT1, 

RBNGSO:  MOVEI  REPTJ 

RBNGS1:  GO  SETUP 

GO  RUDCHK 

MOVEI  BKUD 

ANDCAM  SNSEX1 
URT 
GO 
ERROR 


U5MIN 

RBNGS1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBNGS1 

GO     STACHK 

SKIPE   "RRFND 

ERROR   kBNGSI. 0,0,0,* 
STATUS  ERROR  ON  WRITE  0PERATI0F3,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBNGS1 


Add  data  mode 

Init  word  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Set  mask  of  backward  bit 

Clear  that  bit  in  expected  sense  word  1 

Wr'te  data  pattern 

Wait  for  command  completion 


;If  error,  loop  to  RBNGS1 

;Go  check  status 

;Skip  if  any  errors  found 


GO 

CLRDON 

MOVEI 

BKWD 

lORM 

SNSEX1 

RDRVF 

GO 

W5MIN 

ERROR 

RBNGS1, 0,0,0,* 

;If  error,  loop  to  RBNGS1 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completirn 


TIME  OUT  WHILE  WAITING  FOR  READ 

SIX  BIT  MODE,ERPNT 

ERLOOP  RBNGS1 
GO  STACHK 
SKIPE  ERRFND 
cR^OR   RBNGS1, 0-0,0,* 

STATUS  ERRl^R  ON  READ  OPERATION,' 

SIX  BIT  MODE,ERPNT 

ERLOOP  RBNGS1 
CAIGE   REPT,DATAX 
AOJA    REPT.RBNGSI 
CAIGE   REPT1,SIZEX 
AOJA    REPT  , RBNGSO 


REVERSE  COMPLETION,*. 


;If  er'-or,  loop  to  RBNGS1 

;Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBNGS1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patcerns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  count 


8 


DFDXD 
DFDXDM 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 
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SEQ  0261 


034500 
034501 
034502 
034503 
034504 
034505 
034506 
034507 
034510 
034511 


034512 
034513 
034514 
034515 


034516 
034517 
034520 
034521 
034522 
034523 
034524 


034525 
034526 
034527 
034530 


034531 
034532 
034533 
034534 
034535 
034536 


201 
202 
400 
201 
260 
260 
201 
412 
004 
260 


00 
00 
16 
15 
17 
17 
00 
00 
00 
17 


0  00 
0  00 
0  00 
0  00 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 
0  00 


040000 
065237 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  055056 
035  00  0  00  034504 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0 
035  00  0 
260  17  0 
201  00  0 
436  00  0 
004  00  0 
260  17  0 


00  055061 
00  034504 
00  037766 
00  000040 
00  126031 
00  400077 
00  037616 


036  00  0  00  055064 
035  00  0  00  034504 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055067 
035  00  0  00  034504 
305  15  0  00  000015 
344  15  0  00  034504 
305  16  0  00  000007 
344  16  0  00  034503 


;*  7-Bit  ascii 


MOVE  I 

MOVEM 

SET2 
RBNGAO:  MOVE I 
RBN6A1:  GO 

GO 

MOVE  I 

AND CAM 

WRT 

GO 

ERROR 
TIME  OUT  WHILE  WAITING 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP 

GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 


7-BIT  ASCII  MODE,ERPNT 
ERLOOP  RBNGA1 
GO     CLRDON 
MOVE I   BKWD 
lORM    SNSEX1 
RDRVF 
GO 
ERROR 

TIME  OUT  WHILE 

7-BIT  ASCII  MODE,ERPNT 
ERLOOP 
GO 

SKIPE 
ERROR 

STATUS  ERROR  ON 


ASCII7 

DMCi)E 

REPT1, 

REPTJ 

SETUP 

RWDCHK 

BKWD 

SNSEX1 

W5MIN 

RBNGA1, 0,0,0,* 
"    FOR  WRITE 

R6NGA1 

STACHK 

ERRFND 

RBNGA1, 0,0,0,* 

WRITE  OPERATIOFJ,' 


;Add  data  mode 

;Im*t  word  cnt  index 

;Im't  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word 

;Write  data  pattern 

;Wait  for  command  completion 


COMPLETION,*. 


7-BIT  ASCII  MODE,ERPNT 


W5MIN 

RBNGA1, 0,0,0,* 
WAITING  FOR  READ 


RBNGA1 

STACHK 

ERRFND 

RBNGA1, 0,0,0,* 

READ  OPERATION? 


;If  error,  loop  to  RBNGA1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBNGA1 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


REVERSE  COMPLETION,*. 

;If  error,  loop 
;Check  status 
.-Skip  if  no  errors 


to  RBNGA1 
found 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBNGA1 
REPT,DATAX 
REPT.RBNGAI 
REPT1,SIZEX 
REPT1, RBNGAO 


;If  error,  loop  to  RBNGA1 
;Skip  if  tested  all  data  patterns 
.'Else,  test  next  patterns 
;Skip  if  tested  all  word  counts 
;Else,  test  next  word  coijnt 


.J'^ 


mtm't  i»i>wa»iiw*>wM*w 
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SEQ  0262 


^578 

A379 

A380 

A381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4413 

4419 

4420 

4421 

4422 


034537 
034540 
034541 
034542 
034543 
034544 
034545 
034546 
034547 
034550 


034551 
034552 
034553 
034554 


034555 
034556 
034557 
034560 
034561 
034562 
034563 


034564 
034565 
034566 
034567 


034570 
034571 
034572 
034573 
034574 
034575 


201  00  0 

202  00  0 
400  16  0 
201  15  0 
260  17  0 
260  17  0 
201  00  0 
412  00  0 
004  00  0 
260  17  0 


00  050000 
00  065237 
00  OOOOCO 
00  000001 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 


036  00  0  00  055072 
035  00  0  00  034543 
260  17  0  00  037113 
332  00  0  00  000007 


036 
035 
260 
201 
436 
004 
260 


00 
00 
17 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


055075 
034543 
037766 
000040 
126031 
400077 
037616 


036  00  0  00  055100 
035  00  0  00  034543 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
305  15 
344  15 
305  16 
544  16 


0  00  055103 
0  00  034543 
0  00  000015 
0  00  034543 
0  00  000007 
0  00  034542 


034376  002  00  0  00  034317 


;*  High  density  mode 


MOVEI  HIDEN 

MOVEM  DMODE 

SET2  REPT1, 

RBNGHO:  MOVEI  REPT.l 

RBNGHl:  GO  SETUP 

GO  RUDCHK 

MOVEI  BKUD 

ANDCAM  SNSEX1 
URT 
GO 
ERROR 


U5MIN 

RBNGHl, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
HIGH  DENSITY  MODE,ERPNT 
ERLOOP  RBNGHl 
GO     STACHK 
SKIPE   ERRFND 
ERROR   RBNGHl, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
HIGH  DENSITY  MODE,ERPNT 
ERLOOP  RBNGHl 
CLRDON 
BKWD 
SNSEX1 


;Add  data  mode 

;Init  word  cnt  index 

;Init  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

;Write  data  pattern 

;Wait  for  command  completion 


If  error,  loop  to  RBNGHl 

Go  check  status 

Skip  if  any  errors  found 


GO 

MOVEI 

lORM 

RDRVF 

GO 

ERROR 


W5MIN 

RBNGHl, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  READ  REVERSE 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBNGHl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBNGHl. 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
HIGH  DENSITY  MODE-ERPNT 

ERLOOP  RBNGHl 

CAI6E   REPT,DATAX 

AOJA    REPT, RBNGHl 

CAKE       REPT1,SIZEX 

AOJA    REPT1, RBNGHO 

REPEAT  TST 


;If  error,  loop  to  RBNGHl 

;Gc  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

.Read  reverse 

.-Wait  for  command  completion 


COMPLETION,*. 


If  error,  loop 
Check  status 
Skip  if  no  errors 


to  RBNGHl 
found 


If  error,  loop  to  RBNGHl 

Skip  if  tested  ^11  data  patterns 

Else,  test  next  patterns 

Skip  if  t lasted  r\[   wo"d  counts 

Else,  test  next  word  count 
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SEQ  0263 


AA23 

AA2A 

AA25 

AA26 

4A27 

AA28 

AA29 

AA30 

AA31 

AA32 

AA33 

AA3A 

AA35 

AA36 

AA37 

AA38 

AA39 

AAAO 

AAA1 

AAA2 

AAA3 

AAAA 

AAA5 

AAA6 

AAA7 

AAA8 

AAA9 

AA50 

AA51 

AA52 

AA53 

AA5A 

AA55 

AA56 

AA57 

A  A  58 

AA59 

AA60 

AA61 

AA62 

AA63 

AA6A 

AA65 

AA66 

AA67 

AA68 

AA69 

AA70 

AA71 

A  A  72 

AA73 

AA7A 

AA75 

A  A  76 

AA77 


03A577  265  01  0  00  0A3A10 
03A600  201  10  0  00  1000AA 
03A601  260  17  0  00  036657 


03A602 
03A603 
03A60A 
03A605 
03A606 
03A607 
03A610 
03A61 1 

03A612 
03A61 3 
03A61A 
03A61 5 
03A61O 
03A617 
03A620 
03A621 
03A622 
03A623 
03A62A 
03A625 
03A626 
03A627 
03A630 
C5A631 


03A632 
03A633 
03A63A 
03A635 


03A636 
03A637 
03A6A0 
03A6A1 
03A6A2 


A76  00 
201  00 
332  00 

201  00 

202  00 
336  00 
2^0  17 
260  17 


AO?  00  0 

201  00  0 

202  00  0 
200  00  0 


20? 
2uJ 
202 
201 


00 
00 
00 
00 


332  00 
A36  00 
AOO  16 
201  15 
260 
260 


17 
17 
OOA  00 
260  17 


0  00  065307 
0  00  016000 
0  00  0653A0 
0  00  Oil AOO 
0  00  065237 
0  00  0653A0 
0  00  037777 
0  00  037716 

00  0652A3 
00  006000 
00  0652A2 
00  126037 
0  00  126031 
0  00  1260A0 
0  00  126C32 
0  00  030000 
0  00  0653A0 
0  00  126031 
0  00  000000 
0  00  000001 
C  ^0  036657 
0  vO  037713 
0  00  000061 
0  00  037616 


036  00  0  00  055116 
035  00  0  00  03A626 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055121 
035  00  0  00  03A626 
260  17  0  00  037766 
OOA  00  0  00  000033 
260  17  0  00   037616 


TEST    36, READ  FORWARD  PARTIAL  WORD  TRANSFERS, 0,0,1 

;*  DFDXD  *  TEST  36  ♦    READ  FORWARD  PARTIAL  WORD  TRANSFERS 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST36:  MOVEI   F,(BYTE  (1)  0,0,1,0!0  (1A)  *D<36» 

GO     SETUP  .-SETUP  SUBSYSTEM> 


Do  writes  and  read  forward  xfers  which  do  not  fall  on  word  boundaries. 
If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
Core  dump  mode 


SETOM 
MOVEI 
SK I  PE 
MOVEI 
MOVEM 
SKIPN 
GO 
GO 

SETSTA 
SETZM 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
SKIPE 
ORM 
SETZ 
RFPWCO:  MOVEI 
RFPWC1:  GO 
GO 
WRT 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
GO 
8S6 
GO 
ERROR 


PWDXFR 

T91600*CDUMP 

TRACK7 

OT7800^CDUMP 

DMODE 

TRACK7 

SETD16 

REWIND 

0,DEVEND*CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

3e<TIER> 

TRACK7 

SNSEX1 

REPT1, 

REPT-1 

SETUP 

RWDCHK 


-■  :d- 


3,0 


W5MIN 

WAlTirMv 

ERPNT 
RFPWfi 

ST^h^ 
ERRr  Ni 

RFPWCKO,0,Oj\ 
WRITE  OPERATION,* 
ERPNT 
RFPWC1 
CLRDON 

W5MIN 
RFPWC1,0,0,0,\ 


yfe»-  request 
pe  mode 


Set  partial  wrd 

Set  for  9  track 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  both  modes 

Skip  if  7  track 

Go  setup  d1600  and  nt1600  sense  bits 

Rewind  the  tape 

SET  DXERR  EXPECTED  STATUS  =  0> 

•SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  e^'ror  sense  byte  to 
•3"  If  drive  is 
7  Track 

Init  byte  cnt  index 
Init  data  pattern  code 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


jklJE   COMPLETION,''. 


;If  error,  loop  to  RFPWC1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFPWC1 
;6o  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


DFDXD 

DX20-V 

DFDXDM 

MAC 

4A78 

034^ .3 

AA79 

03^644 

A480 

034645 

4A81 

A482 

034646 

4A83 

034647 

4484 

034650 

4485 

034651 

4486 

034652 

4487 

4488 

4489 

034653 

4490 

034654 

4491 

034655 

4492 

034656 

44931 

4494 

4495 

034657 

4496 

034660 

4497 

034661 

4498 

034662 

4499 

034663 

4500 

034664 

I  MAGNETIC 
6-Apr-85 
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SEQ  0264 


036  00  0  00  055124 

035  00  0  00  034626 
260  17  0  00  037323 

036  00  0  00  055127 
035  00  0  00  034626 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055132 
035  00  0  00  034626 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055135 
035  00  0  00  034626 
305  15  0  00  000015 
344  15  0  00  034626 
305  16  0  00  000013 
344  16  0  00  034625 


TIME  OUT  WHILE 
ERLOOP 
GO 

ERROR 
COMPOSITE  ERROR 
ERLOOP 
GO 

RDFUF 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SK I PE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
CAIGE 
AOJA 
CAIGE 
AOJA 


WAITING  FOR  BACKSPACE  BLOCK  COMPLETION, ,ERPNT 
RFPWC1  ;If  error,  loop  to  RFPWCI 

DXSTCK  .-Check  dx20  status 

RFPWCI  0  0  0  * 

ON  backs^ace'bHock  operation,, erpnt 

RFPWCI  ;If  error,  loop  to  RFPWCI 

CLRATA  ;Go  clear  atten 

;Read  forward 
W5MIN  ;Wait  for  command  completion 

RFPWCI  0  0  0  * 

waiting'for'read  forward  completion,* 

ERPNT 

If  error,  loop  to  RFPWCI 

Check  status 

Skip  if  no  errors  found 


RFPWCI 
STACHK 
ERRFND 

RFPWCI, 0,0,0,* 
READ  OPERATION,* 
ERPNT 
RFPWCI 
REPT,DATAX 
REPT, RFPWCI 
REPT1,PSIZEX 
REPT1,RFPWC0 


;If  error,  loop  to  RFPWCI 
;Skip  if  tested  all  data  patterns 
.'Else,  test  next  pattern., 
;Skip  if  tested  all  byte  counts 
.'Else,  test  next  byte  count 
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SEQ  0265 


A501 

A502 

4503 

A50A 

A505 

A506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 


034665 
034666 
034667 
034670 
034671 
034672 
034673 
034674 


034675 
034676 
034677 
034700 


034701 
034702 
034703 
034704 
034705 

034706 
034707 
034710 

034711 
034712 
034713 
034714 
034715 


034716 
034717 
034720 
034721 


034722 
034723 
034724 
034725 
034726 
034727 


201  00 

202  00 
400  16 
201  15 
260  17 
260  17 
004  00 
260  17 


0  00  020000 
0  00  065237 
0  00  000000 
0  00  000001 
0  00  036657 
0  00  037713 
0  00  000061 
0  00  037616 


036  00  0  00  055140 
035  00  0  00  034671 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055143 

035  00  0  00  034671 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055124 
035  00  0  00  034671 
260  17  0  00  037323 

Ob2  00  0  00  055127 
035  00  0  00  034671 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055146 
035  00  0  00  034671 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055151 
035  00  0  00  034671 
305  15  0  00  000015 
344  15  0  00  034671 
305  16  0  00  000013 
344  16  0  00  034670 


;♦  Industry  compatible  mode 


MOVE  I 
MOVEM 
SETZ 
RFPWIO:  MOVEI 


RFPUI1 


60 

GO 

URT 

GO 

ERROR 


INDCMP 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 


U5MIN 

RFPUI1  0  0  0  * 
TIME  OUT^WHILE  WAITING'fOR'wRITE  COMPLETION,^ 
INDUSTRY  COMPATIBLE  MODE,ERPNT 
ERLOOP  RFPWI1 

STACHK 

ERRFND 

RFPWI1, 0,0,0,* 

WRITE  OPERATION,* 


;Add  data  mode 

;Im't  byte  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Uait  for  command  completion 


GO 

SKIPE 

ERROR 

STATUS  ERROR  ON ,, 

INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RFPWI1 


If  error,  loop  to  RFPWI1 

Go  check  status 

Skip  if  any  errors  found 


GO 
BS6 
GO 
ERROR 


CLRDON 

U5MIN 

RFPWI1, 0,0,0,* 


;It  error,  loop  to  RFPWI1 
;6o  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  BACl^SPACE  BLOCK  COMPLETION,  ,ERPNT 

ERLOOP  RFPWn  ;If  error,  loop  to  RFPWI1 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPWI1. 0,0,0.* 

COMPOSITE  ERROR  ON  BACKSPACE  BCOCK  OPERATION,, ERPNT 

ERLOOP  RFPWI1  ;If  error,  loop  to  RFPWI1 

GO     CLRATA  ;Go  clear  at ten 

RDFWF  .'Read  forward 

GO     W5MIN  .'Wait  for  command  completion 

ERROR   RFPWI1  0  0  0  * 

TIME  OUT  WHILE  WAITING'fOR'R^ AD  FORWARD  COMPLETION,* 

INDUSTRY  COMPATIBLE  MODE, ERPNT 


ERLOOP  RFPWI1 
GO     STACHK 
SKIPE   ERRFND 
ERROR   RFPWI1, 0,0,0.* 
STATUS  ERROR  ON  READ  OPERATION;* 
INDUSTRY  COMPATIBLE  MODE, ERPNT  " 
ERLOOP  RFPWI1 
CAIGE   REPT,DATAX 
AOJA    REPT.RFPWn 
CAIGE   REPT1,PSIZEX 
AOJA    REPT1, RFPWIO 


;If  error,  loop  to  RFPWI1 

.'Check  status 

.'Skip  if  no  errors  found 


;If  error,  loop  to  RFPWI1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
.'Skip  if  tested  all  b/te  counts 
.-Else,  test  next  byte  count 


5 


DFDXD 
DFDXDM 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 
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SEQ  0266 


034730 
034731 
034732 
034733 
034734 
034735 
034736 
034737 


034740 
034741 
034742 
034743 


034744 
034745 
034746 
034747 
034750 

034751 
034752 
034753 

034754 
034755 
034756 
034757 
034760 


034761 
034762 
034763 
034764 


034765 
034766 
034767 
034 77C 
034771 
034772 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


030000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  055154 
035  00  0  00  034734 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055157 

035  00  0  00  034734 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055124 
035  00  0  00  034734 
260  17  0  00  037323 

G3r  00  0  00  055127 
035  00  0  00  034734 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055162 
035  00  0  00  034/^34 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055165 
035  00  0  00  034734 
305  15  0  00  000015 
344  15  0  00  034734 
305  16  0  00  000013 
344  16  0  00  034733 


;*  Six  bit 


MOVEI  SIXBT 

MOVEM  DMODE 

SETZ  REPT1, 

RFPUSO:  MOVEI  REPTJ 

RFPWS1:  GO  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


W5MIN 

RFPWSl  0  0  0  * 
TIME  OUT'WHILE  WAITING'fOR'wRITE  COMPLETION,* 
SIX  BIT  MODE^ERPNT 

ERLOOP  RFPWSl 
GO     STACHK 
SKIPE   ERRFND 
ERROR   RFPWSl, 0,0,0,^^ 
STATUS  ERROR  ON  WRITE  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFPWSl 
CLRDON 


:Add  data  mode 

;Init  byte  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
;Wait  for  command  completion 


;If  error,  loop  to  RFPWSl 

;6o  check  status 

;Skip  if  any  errors  found 


GO 
BSB 
GO 
ERROR 


;If  error,  loop  to  RFPWSl 
;Go  clear  cmd  clone 
.'Backspace  block 
;Wait  for  command  completion 


W5MIN 

RFPWSl  0  0  0  * 

TIME  OUT  WHILE  WAITING'fOR'BACRSPACE  BLOCK  COMPLETION, ,ERPNT 

ERLOOP  RFPWSl  ;If  error,  loop  to  RFPWSl 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPWSl  0  0  0  * 

COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 

ERLOOP  RFPWSl  ;If  error,  loop  to  RFPWSl 

GO     CLRATA  .-Go  clear  at  ten 

RDFWF  .-Read  forward 

GO     W5MIN  .-Wait  for  command  completion 

ERROR   RFPWSl  0  0  0  * 

TIME  OUT  WHILE  WAITING'f6r'r^AD  FORWARD  COMPLETION,* 

SIX  BIT  MODE, ERPNT 


ERLOOP  RFPWSl 
GO  STACHK 
SKIPE  ERRFND 
ERROR   RFPWSl, 0,0,0,* 

STATUS  ERROR  ON  READ  OPERATION.* 

SIX  BIT  MODE. ERPNT 

ERLOOP  RFPWSl 
CAIGE   REPT,DATAX 
AOJA    REPT, RFPWSl 
CAIGE   REPT1,PSIZEX 
AOJA    REPT1,RFPWS0 


;If  error,  loop  to  RFPWSl 

.-Check  status 

.-Skip  if  no  errors  found 


If  error  loop  to  RFPWSl 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  b/te  counts 

Else,  test  next  byte  count 
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SEQ  0267 


A599 

A600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4410 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 


034773 
034774 
034775 
034776 
034777 
035000 
035001 
035002 


035003 
035004 
035005 
035006 


035007 
035010 
035011 
035012 
035013 

035014 
035015 
035016 

035017 
035020 
035021 
035022 
035023 


035024 
035025 
035026 
035027 


035030 
035031 
035032 
035033 
035034 
035035 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


040000 
065237 
000000 
000001 
036657 
037713 
000061 
03761 6 


036  00  0  00  055170 
035  00  0  00  034777 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055173 

035  00  0  00  034777 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055124 
035  00  0  00  034777 
260  17  0  00  037323 

032  00  0  00  055127 
035  00  0  00  034777 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  0551/^6 
035  00  0  00  034777 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055201 
035  00  0  00  034777 
305  15  0  00  000015 
344  15  0  00  034777 
305  16  0  00  000013 
344  16  0  00  034776 


;*  7-Bit  ascii 


MOVE  I 
MOVEM 
SETZ 
RFPUAO:  MOVEI 
RFPWA1:  GO 
GO 
WRT 
GO 
ERROR 


ASCII7 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 


;Add  data  mode 

;Im't  byte  cnt  index 
;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
;Wait  for  command  completion 


U5MIN 

RFPUAl  0  0  0^ 
TIME  OUT'WHILE  WAITING'fOR'wRITE  COMPLETION.-* 
7-BIT  ASCII  MODE.ERPNT 

ERLOOP  RFPWAI 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFPWAI. O.O.O.*^ 
STATUS  ERROR  ON  WRITE  OPERATION.^ 
7-BIT  ASCII  MODE.ERPNT 

ERLOOP  RFPWAI 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFPWAI  0  0  0^ 
TIME  OUT  WHILE  WAITING'fOR'bACRSPACE  BLOCK  COMPLETION.. ERPNT 

ERLOOP  RFPWAI  ;If  error,  loop  to  RFPWAI 

GO     DXSTCK  .-Check  dx20  status 

ERROR   RFPWAI  0  0  0^ 
COMPOSITE  ERROR  ON  BAdcSPACE'BCOCK  OPERATION., ERPNT 

ERLOOP  RFPWAI  ;If  error,  loop  to  RFPWAI 

GO     CLRATA  ;Go  clear  atten 

RDFWF  .-Read  forward 

GO     W5MIN  .-Wait  for  command  completion 

ERROR   RFPWAI  0  0  0^ 
TIME  OUT  WHILE  WAITING'fOR'R^ AD  FORWARD  COMPLETION.* 
7-BIT  ASCII  MODE.ERPNT 


;If  error,  loop  to  RFPWAI 

.-Go  check  status 

.-Skip  if  any  errors  found 


;If  error,  loop  to  RFPWAI 
.-Go  clear  cmd  done 
.-Backspace  block 
.-Wait  for  command  completion 


ERLOOP  AfPWAI 
GO  STACHK 
SKIPE  ERRFND 
ERROR   RFPWAI. 0.0,0.* 

STATUS  ERROR  ON  READ  OPERATION.* 

7-BIT  ASCII  MODE.ERPNT 
ERLOOP  RFPWAI 
CAI6E   REPT.DATAX 
AOJA    REPT, RFPWAI 
CAIGE   REPT1.PSIZEX 
AOJA    REPT1.RFPWA0 


If  error,  loop  to  RFPWAI 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RFPWAI 
.-Skip  if  tested  all  data  patterns 
;Else.  test  next  patterns 
;Skip  if  tested  all  b/te  counts 
.'Else,  test  next  byte  count 


DFDXD 
DFDXDM 

46A8 

46A9 

A650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 
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SEQ  0268 


035036 
035037 
035040 
035041 
035042 
035043 
035044 
035045 


035046 
035047 
035050 
035051 


035052 
035053 
035054 
035055 
035056 

03^057 
C  060 
035061 

035062 
035063 
035064 
035065 
035066 


035067 
035070 
035071 
035072 


035073 
035074 
035075 
035076 
035077 
035100 


201 
202 
400 
201 
260 
260 
004 
260 


00 
00 
16 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


050000 
065237 
000000 
000001 
036657 
037713 
000061 
037616 


036  00  0  00  055204 
035  00  0  00  035042 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055207 

035  00  0  00  035042 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055124 
035  00  0  00  035042 
260  17  0  00  037323 

Ojjr  00  0  00  055127 
035  00  0  00  035042 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055212 
035  00  0  00  035042 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
305  15 
344  15 
305  16 
344  16 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


055215 
035042 
00001 5 
035042 
000013 
035041 


;*  High  density  mode 


MOVEI  HIDEN 

MOVEM  DMODE 

SETZ  REPTl, 

RFPWHO:  MOVEI  REPTJ 

RFPWH1:  GO  SETUP 

GO  RUDCHK 

URT 

GO 

ERROR 


U5MIN 

RFPWHl, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,'' 
HIGH  DENSITY  MODE,ERPNT 
ERLOOP  RFPWH1 
STACHK 
ERRFND 

RFPWH1, 0,0,0,* 
WRITE  OPERATION,* 


;Add  data  mode 

;Im*t  oyte  cnt  index 
;Im*t  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
.-Wait  for  command  completion 


GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RFPWHl 

GO 

BSB 

GO 

ERROR 
TIME 


;If  error,  loop  to  RFPWHl 

;Go  check  status 

;Skip  if  any  errors  found 


CLRDON 

W5MIN 

RFPWHl, 0,0,0,*. 


;If  error,  loop  to  RFPWHl 
;6o  clear  cmd  done 
.'Backspace  block 
.-Wait  for  command  completion 


OUT  WHILE  WAITING  FOR  BACl^SPACE  BLOCK  COMPLETION.  .ERPNT 
ERLOOP  RFPWHl  ;If  error,  loop  to  RFPWHl 

DXSTCK  .-Check  dx20  status 

RFPWHl  0  0  0  * 
ON  BACKSPACE'bCOCK  operation.. ERPNT 


RFPWHl 
CLRATA 

W5MIN 

RFPWHl. 0,0.0.* 
READ 


035101  002  00   0  00  034600 


GO 

ERROR 
COMPOSITE  ERROR 

ERLOOP 

GO 

RDFWF 

GO 

ERROR 
TIME  OUT  WHILE  WAITING  FOR 
HIGH  DENSITY  MODE, ERPNT 

ERLOOP  RFPWHl 

GO      STACHK 

SKIPE   ERRFND 

ERROR   RFPWHl. 0,0,0.* 
STATUS  ERROR  ON  READ  OPERATION?* 
HIGH  DENSITY  MODE. ERPNT 

ERLOOP  RFPWHl 

CAIGE   REPT.DATAX 

AOJA    REPT, RFPWHl 

CAIGE   REPTl.PSIZEX 

AOJA    REPTl, RFPWHO 

REPEAT  TST 


;If  error,  loop  to  RFPWHl 

;Go  clear  atten 

.-Read  forward 

.-Wait  for  command  completion 


FORWARD  COMPLETION.*. 


If  error,  loop  to  RFPWHl 

Check  r-tatus 

Skip  it  no  errors  found 


If  error,  loop  to  RFPWHl 

Skip  if  tested  all  data  patterns 

Else,  test  next  patterns 

Skip  if  tested  all  b/te  counts 

Else,  test  next  byte  count 
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SEQ  0269 


A699 

A700 

4701 

A702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 


035102  265  01  0  00  043410 

035103  201  10  0  00  100045 

035104  260  17  0  00  036657 


035105 
035106 

035107 
035110 
035111 
035112 
035113 
035114 
035115 
035116 
035117 
035120 
035121 
035122 
035123 
035124 
035125 
035126 
035127 
035130 
035131 
035132 


035133 
035134 
035135 
035136 


035137 
035140 
035141 
035142 
035143 
035144 
035145 


332  00  0  00  042723 
254  00  0  00  035356 


402  00  0 

201  00  0 

202  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 


201  00 
332  00 
436  00 
201  00 


0 
0 
0 
0 
20?  00  0 
0 
0 
0 
0 
0 
412  00  0 
004  00  0 
260  17  0 


16 
15 


4uJ 
201 
260  17 
260  17 
201  00 


00  065243 
00  006000 
00  065242 
00  126037 
00  126031 
00  126040 
00  126032 
00  030000 
00  065340 
00  126031 
00  010000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 


036  00  0  00  055230 
035  00  0  00  035125 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0  00  055233 
0  00  035125 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  400077 
0  00  037616 


TEST    37, READ  REVERSE  PARTIAL  WORD  TRANSFERS, 0,0,1 

;♦  DFDXD  *  TEST  37  ♦    READ  REVERSE  PARTIAL  WORD  TRANSFERS 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST37:  MOVE]   F,(8VTE  (1)  0,0,1,010  (U)  •D<37» 

60     SETUP  .-SETUP  SUBSVSTEM> 

;*  Do  writes  and  read  reverse  xters  which  do  not  fall  on  word  boundaries. 
;*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
;*  Core  dump  mode 


SKIPE 

JRST 

SETSTA 

SETZM 

MOVE  I 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

SKIPE 

ORM 

MOVE  I 

MOVEM 

SETZ 

RBPWCO:  MOVE I 

RBPWCl:  GO 
GO 

MOVE  I 
AND CAM 
WRT 
GO 
ERROR 

TIME  OUT  WHILE 

CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 

STATUS  ERROR  ON 

CORE  DUMP  MODE 
ERLOOP 
GO 

MOVE  I 
I  ORM 
RDRVF 
GO 
ERROR 

TIME  OUT  WHILE 


V701FG 

TST38-1 

0,DEVEND*CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSCl 

SNSEX1 

SNSC2 

SNSEX2 

38<TIER> 

TRACK7 

SNSEXl 

CDUMP 

DMODE 

REPT1, 

REPT,1 

SETUP 

RWDCHK 

BKWD 

SNSEXl 


W5MIN 

RBPWCl, 0,0,0,* 
WAITING  FOR  WRITE  COMPLETION," 
ERPNT 

RBPWCl 

STACHK 

ERRFND 

RBPWCl, 0,0,0,* 

WRITE  OPERATION,* 
ERPNT 

RBPWCl 

CLRDON 

BKWD 

SNSEXl 


;7.01  Monitor  cannot  do  read  reverses 
;Do  next  test 

.-SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  COKSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
'3"  If  drive  is 
7  Track 
Set  data  mode 


Init  byte  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Set  mask  of  backward  bit 

Clear  that  bit  in  expected  sense  word  1 

Write  data  pattern 

Wait  for  command  completion 


If  error,  loop  to  RBPWCl 

Go  check  status 

Skip  if  any  errors  found 


W5MIN 

RBPWCl, 0. 0,0  • 
WAITING  FOR  REAH  REVERSE  COMPLETION,* 


If  error,  loop  to  RB'=*WC1 

Go  clear  cmd  done 

Set  mask  of  backward  bit 

Set  that  bit  ii  expected  sense  word  1 

Read  reverse 

Wait  for  command  completion 


DFDXD 
DFOXDM 

475A 
A755 
A756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
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035146  036  00  0  00  055236 

035147  035  00  0  00  035125 

035150  260  17  0  00  037113 

035151  332  00  0  00  000007 


035152  036  00  0  00  055241 

035153  035  00  0  00  035125 

035154  305  15  0  00  000015 

035155  344  15  0  00  035125 

035156  305  16  0  00  000013 

035157  344  16  0  00  035124 


CORE  DUMP  M0DE,ERPNT 


STATUS 


ERLOOP 
GO 

SKIPE 
ERROR 
ERROR  ON 


CORE  DUMP  MODE,ERPNT 


RBPUC1 

STACHK 

ERRFND 

RBPWCKO,0,0,* 

READ  OPERATION? 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBPUC1 

REPT,DATAX 

REPT.RBPyCI 

REPT1,PSIZEX 

REPThRBPyCO 
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;If  error,  loop  to  RBPWCI 

.-Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBPWCI 
;Skip  if  tested  alt  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  byte  counts 
;Else,  test  next  b/ie  count 


SEQ  0270 


DFDXD 
OFDXDM 

A766 
A767 
A768 
A769 
A770 
4771 
A772 

^77^ 

4775 

(,776 

1,777 

1,77% 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

t,7%7 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

^796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 
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SEQ  0271 


035160 
035161 
035162 
035163 
035164 
035165 
035166 
035167 
035170 
035171 


035172 
035173 
035174 
035175 


035176 
035177 
035200 
035201 
035202 
035203 
035204 


035205 
035206 
035207 
035210 


035211 
035212 
035213 
035214 
035215 
035216 


201 
202 
400 
201 
260 
260 
201 
412 
004 
260 


00 
00 
16 
15 
17 
17 
00 
00 
00 
17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


020000 
065237 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  055244 
035  00  0  00  035164 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0  00  055247 
0  00  035164 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  400077 
0  00  037616 


036  00  0  00  055252 
035  00  0  00  035164 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055255 
035  00  0  00  035164 
305  15  0  00  000015 
344  15  0  00  035164 
305  16  0  00  000013 
344  16  0  00  035163 


;♦  Industry  compatible  mode 


MOVE I  INDCMP 

MOVEM  DMODE 

SETZ  REpTI, 

RBPWIO:  MOVE  I  REPTJ 

RBPWI1:  GO  SETUP 

GO  RUDCHK 

MOVE I  6KWD 

ANDCAM  SNSEX1 
URT 
GO 
ERROR 


U5MIN 

RBPyJI, 0,0,0," 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
INDUSTRY  COMPATIBLE  MODE ,ERPNT 


;Add  data  mode 

;Init  byte  cnt  index 

;Im't  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

:Set  mask  of  backward  bit 

.•Clear  that  bit  in  expected  sense  word  1 

.-Write  data  pattern 

.-Wait  for  command  completion 


ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 


R6PWI 1 

STACHK 

ERRFND 

RBPWI1,0,0,0,'^ 

WRITE  OPERATION, '^ 


INDUSTRY  COMPATIBLE  MODE,ERPNT 


ERLOOP 

GO 

MOVE  I 

lORM 

RDRVF 

GO 

ERROR 


RBPWI 1 
CLRDON 
BKWD 
SNSEX1 


W5MIN 

RBPWI 1  0  0  0" 
TIME  OUT'whIlE  WAITING'fOR'READ  REVERSE  COMPLETION,". 
INDUSTRY  COMPATIBLE  MODE,ERPNT 


;If  error,  loop  to  RBPWI 1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBPWI 1 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

.-Wait  for  command  completion 


ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 


RBPWI 1 
STACHK 
ERRFND 

RBPWI1, 0,0,0," 
READ  OPERATION? 


INDUSTRY  COMPATIBLE  MODE,ERPNT 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBPWI 1 
REPT,DATAX 
REPT.RBPWII 
REPTl,PSI2EX 
REPT1, RBPWIO 


If  error,  loop  to  RBPWI1 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RBPWI 1 
.-Skip  if  tested  all  data  patterns 
;Else,  test  p.ext  patterns 
;Skip  if  tested  all  byte  counts 
;Else,  test  next  byte  count 


DFDXD 
DFDXDM 

A809 

A810 

A811 

481 2 

4813 

481 A 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
MAC      6-Apr-85  18:38        DATA  TRANSFER  COMMANDS  TESTS 


MACRO  Z53A(1152)  18:38  6-Apr-85  Page  65 


SEQ  ^212 


035217 
035220 
035221 
035222 
035223 
035224 
035225 
035226 
035227 
035230 


035231 
035232 
035233 
035234 


035235 
035236 
035237 
035240 
035241 
035242 
035243 


035244 
035245 
035246 
035247 


035250 
035251 
035252 
035253 
035254 
035255 


201 
202 
400 
201 
260 
260 
201 
412 
004 
260 


00 
00 
16 
15 
17 
17 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030000 
065237 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  055260 
035  00  0  00  035223 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


055263 
035223 
037766 
000040 
12603; 
400077 
037616 


036  00  0  00  055266 
035  00  0  00  035223 
260  (7  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055271 
035  00  0  00  035223 
305  15  0  00  000015 
344  15  0  00  035223 
305  16  0  00  000013 
344  16  0  00  035222 


;*  Six  bit 


HOVE  I 
MOVEM 
SET2 

RBPUSO:  MOVE I 

RBPUS1:  GO 
GO 

MOVE  I 
AND CAM 
URT 
GO 
ERROR 


SIXBT 

DMODE 

REPTl, 

REPTJ 

SETUP 

RUDCHK 

BKUD 

SNSEX1 

U5MIN 
RBPWS1, 0,0,0/ 


:Add  data  mode 

Im't  byte  cnt  index 

Init  data  pattern  code 

Put  dx20  in  idle  state 

Go  rewind  if  needed 

Set  mask  of  backward  bit 

Clear  that  bit  in  expected  sense  word  1 

Write  data  pattern 

Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBPWS1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBPWS1,0,0,0,'* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBPWS1 


;If  error,  loop  to  RBPWS1 

:Go  check  status 

;Skip  if  any  errors  found 


GO 

CLRDON 

MOVE  I 

BKWD 

lORM 

SNSEX1 

RDRVr 

GO 

W5MIN 

ERROR 

RBPWS1, 0,0,0,* 

;If  error,  loop  to  RBPWS1 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  READ 

SIX  BIT  M0DE,ERPNT 

ERLOOP  RBPWS1 
GO  STACHK 
SKIPE  ERRFND 
ERROR   RBPWS1,0-0,0,* 

STATUS  ERROR  ON  READ  OPERATION? 

SIX  BIT  MODE,ERPNT 

ERLOOP  RBPWS1 
CAIGE   REPT,DATAX 
AOJA    REPT.RBPWSI 
CAIGE   REPT1,PSIZEX 
AOJA    REPT1,RBPWS0 


REVERSE  COMPLETION,*. 


;If  error,  loop  to  RBPWS1 

.-Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBPWS1 
.-Skip  if  testeo  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  byte  counts 
;Else,  test  next  byte  count 
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SEQ  0273 


4852 
4853 
A85A 
4855 
4856 
48S7 

4(358 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

<»894 


035256 
035257 
035260 
035261 
035262 
035263 
035264 
035265 
035266 
035267 


035770 
035271 
035272 
035273 


035274 
035275 
035276 
035277 
035300 
035301 
035302 


035303 
035304 
035305 
035306 


035307 
035310 
035311 
035312 
035313 
035314 


201  00 

202  00 
400  16 
201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


0 
0 
0 
0 
C 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


040000 
065237 
000000 
000001 
036657 
037713 
000040 
126031 
000061 
037616 


036  00  0  00  055274 
035  00  0  00  035262 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


055277 
035262 
037766 
000040 
126031 
400077 
037616 


036  00  0  00  055302 
035  00  0  00  035262 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055305 
035  00  0  00  035262 
305  15  0  00  000015 
344  15  0  00  035262 
305  16  0  00  000013 
344  16  0  00  035261 


*»******»»»***t*****ti  ♦♦*♦*♦♦*♦***♦**♦*♦♦♦***•*•****♦♦♦♦*♦*****♦**♦♦* 


;♦  7-Bit  ascil 


•  ♦»♦»♦♦*♦*»•**♦*»*••*♦♦*•♦****»*»*******♦♦*»**♦*♦*****♦***♦♦*♦♦♦♦♦*♦♦** 


MOVE  I 
MOVEM 
SETZ 

RBPWAO:  MOVE I 

RBPUA1:  60 
GO 

MOVE  I 
AND CAM 
URT 
GO 
ERROR 


ASCII7 

DMODE 

REPT1, 

REPTJ 

SETUP 

RUDCHK 

BfCUD 

SNSEX1 

U5MIN 
RBPWAUO,0,0, 


;Add  data  mode 

;Im't  byte  cnt  index 

;Im't  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mr:k  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

;Urite  data  pattern 

;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  KOR  WRITE  COMPLETION,*. 
7-BIT  ASCII  MODE,ERPNT 


ERLOOP 
60 

SKIPE 

ERROR 

STATUS  ERROR  ON 


7-BIT  ASCII  MODE,ERPNT 


R6PWA1 

STACHK 

ERRFND 

RBPWAUO,0,0,* 

WRITE  OPERATION, 


ERLOOP 

GO 

MOVE  I 

lORM 

RDRVF 

60 

ERROR 


R6PWA1 
CLRDON 
BKWD 
SNSEX1 

W5MIN 
RBPWAnO,0,0, 


;If  error,  loop  to  RBPWA1 

;Go  check  status 

;Skip  if  any  errors  found 


;li   error,  loop  to  RBPWA1 

;Go  clear  cmd  done 

;Set  mask  of  backwa  J  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

.Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  READ 
7-BIT  ASCII  MODE,ERPNT 


REVERSE  COMPLETION, \ 


ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 


7-BIT  ASCII  MODE,ERPNT 


RBPWA1 
STACHK 
ERRFND 

.^BPWAK  0-0,0,* 
READ  OPERATION,' 


ERLOOP 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBPWA1 
REPT,DATAX 
REPT,RBPWA1 
REPT1,PSIZEX 
REPT1, RBPWAO 


If  error,  loop  to  RBPWA1 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RBPWA1 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
;Skip  if  tested  all  byte  counts 
;Else,  te^t  next  byte  count 


DFDXD 
DFDXDM 

^895 

A896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 
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SEQ  0274 


035315 
035316 
035317 
035320 
035321 
035322 
035323 
035324 
035325 
035326 


035327 
035330 
035331 
035332 


035333 
035334 
035335 
035336 
035337 
035340 
035341 


035342 
035343 
035344 
035345 


035346 
035347 
035350 
035351 
035352 
035353 

035354 
035355 


201  00  0 

202  00  0 
400  16  0 
201  15  0 
260  17  0 
260  17  0 
201  00  0 
412  00  0 
004  00  0 
260  17  0 


00  050000 
00  065237 
00  000000 
00  000001 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 


036  00  0  00  055310 

035  00  0  00  035321 

260  17  0  00  037113 

332  00  0  00  000007 


036  00  0 
035  00  0 


260 
201 


17  0 
00  0 


436  00  0 
004  00  0 
260  V  0 


00  055313 
00  035321 
00  037766 
00  000040 
00  126031 
00  400077 
00  037616 


036  00  0  00  055316 

035  00  0  00  035321 

260  17  0  00  037113 

332  00  0  00  000007 


036  00  0  00  055321 

035  00  0  00  035321 

305  15  0  00  000015 

344  15  0  00  035321 

305  16  0  00  000013 

344  16  0  00  035320 

002  00  0  00  035103 

402  00  0  00  065307 


;*  High  density  mode 


HIDEN 

DMODE 

REPT1, 

REPTJ 

SETUP 

RWDCHK 

BKWD 

SNSEX1 

W5MIN 

RBPWH1, 0,0,0,* 


MOVE  I 

MOVEM 

SETZ 
RBPWHO:  MOVE  I 
RBPWH1:  GO 

GO 

MOVEI 

AND CAM 

WRT 

GO 

ERROR    _ 
TIME  OUT  WHILE  WAITING'FOR'WRITE  COMPLETION,* 
HIGH  DENSITY  M0DE,ERPNT 


;Add  data  mode 

;Im*t  byte  cnt  index 

;Init  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

;Write  data  pattern 

;Wait  for  command  completion 


ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 


HIGH  DENSITY  MODE,ERPNT 


RBPWH1 

STACHK 

ERRFND 

RBPWH1, 0,0,0,* 

WRITE  OPERATION, 


ERLOOP 

GO 

MOVEI 

lORM 

RDRVF 

GO 

ERROR 


RBPWH1 
CLRDON 
BKWD 
SNSEX1 

W5MIN 

RBPWH1, 0,0,0,* 
READ 


;If  error,  loop  to  RBPWHI 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBPWHI 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING' FOR 
HIGH  DENSITY  MODE,ERPNT 


ERLOOP 

GO 

SKIPE 

ERROR 
STATUS  ERROR  ON 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBPWHI 

CAIGE 

AOJA 

CAIGE 

AOJA 


RBPWHI 
STACHK 
ERRFND 

RBPWHI, 0.0,0,* 
READ  OPERATION? 


REPT,DATAX 
REPT, RBPWHI 
REPTl,PSIZEX 
REPT1, RBPWHO 


REVERSE  COMPLETION,*. 

;If  error,  loop 
; Check  status 
;Skip  if  no  errors 


to  RBPWHI 
found 


REPEAT 
SET2M 


TST 
PWDXFR 


;If  error,  loop  to  RBPWHI 
;Skip  if  tested  all  data  patterns 
;Else,  test  next  patterns 
.-Skip  if  tested  all  byte  counts 
;Else,  test  next  byte  count 


;Clear  partial  wrd  xfer  request 
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SEQ  0275 


A9A1 

A942 

49A3 

49A4 

A9A5 

49A6 

A9A7 

A9A8 

A9A9 

A950 

495 1 

4952 

4953 

495A 

A955 

A956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

A966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

A977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 


035356  265  01  0  00  0A3A10 

035357  201  10  0  00  1000A6 
035360  260  17  0  00  036657 


035361 
035362 
035363 
035364 
035365 
035366 
035367 

035370 
035371 
035372 
035373 
035374 
035375 
035376 
035377 
035A00 
035A01 
035A02 
035A03 
035A04 
035405 
035406 
035A07 


035A10 
035A11 
035A12 
035A13 


035A1A 
035A15 
035A16 
035A17 


201  00 
332  00 

201  00 

202  00 
336  00 
260  17 
260  17 


0 
0 
0 
0 
0 
0 
0 


A02  00  0 

201  00  0 
20?  00  0 
2uJ  00  0 

202  00  0 

200  00  0 
202  00  0 

201  00  0 
332  00  0 
A36  00  0 
201  16  0 
201  15  0 
260  17  0 
260  17  0 
OOA  00  0 
260  17  0 


00  026000 
00  0653A0 
00  021400 
00  065237 
00  065340 
00  037777 
00  037716 

00  0652A3 
00  006000 
00  0652A2 
00  126037 
00  126031 
00  1260A0 
00  126032 
00  030000 
00  065340 
00  126031 
00  000006 
00  000012 
OC  036657 
00  037713 
00  000061 
00  037616 


03o  00  0  00  05533A 
035  00  0  00  035357 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055337 
035  00  0  00  035357 
260  17  0  00  037766 
OOA  00   0  00  000033 


TEST    38, SHORT  RECORD  READ  FORWARD  TRANSFER, 0,0,1 
•»  *♦»♦•♦♦•••♦•»*♦•♦♦••♦♦♦•*♦♦♦*♦*****♦*♦♦♦♦♦»♦♦♦♦♦*♦*•*♦♦♦**♦♦♦♦*♦*♦♦♦♦♦ 

;*  DFDXD  *  TEST  38  »    SHORT  RECORD  READ  FORWARD  TRANSFER 
XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST38:  MOVEI   F,(ByTE  (1)  0,0,1,010  (1A)  *D<38» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

***************** **t*t******************t************ ***************** 

*  Write  a  record. 

*  Read  the  record  (forward)  but  set  the  dx20  byte  count  to  one  more  than 

*  The  actual  size  of  the  record. 

*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

*  Check  that  an  error  is  detected  with  ec  =  2. 

*  Industry  compatible  mode 
********************************************************************** 


MOVEI 

SKIPE 

MOVEI 

MOVEM 

SKIPN 

60 

GO 

SETSTA 

SETZM 

MOVEI 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVEI 

SKIPE 

ORM 

MOVEI 

MOVEI 

GO 

GO 

WRT 

GO 

ERRUR 


T91600*INDCMP 

^RACK7 

OirdOO+INDCMP 

DMODE 

TRACK7 

SETD16 

REWIND 

0,DEVENDKHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

3B<TiER> 

TRACK7 

SNSEX1 

REPT1,6 

REPT,*D10 

SETUP 

RWDCHK 


W5MIN 

TST, 0.0,0,* 

TIME  OUT  WHILE  WAITING  FOR  ORITE  '"OMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO      STACHK 

SKIPE   ERRFND 

ERROR   TST,0,0.0.* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT   ' 

ERLOOP  TST 

GO     CLRDON 

BS6 


Set  for  9  trk  1600  bpi 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  modes 

Skip  if  7  track 

Go  setup  dl600  and  ntl600  sense  bits 

Rewind  the  tape 

SET  DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
••3"  If  drive  is 
7  Track 

Set  mor6   cnt  index 
Set  data  pattern  index 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pal  tern 
Wait  fur  comfr.and  c3mpletion 


If  error,  loop  to  TST 

Go  check  status 

Skip  if  any  errors  found 


;If  error,  loop  to  TST 
;6o  clear  cmd  done 
.'Backspace  block 


DFDXO 
DFDXDM 

A996 

4997 

A998 

4999 

5000 

5001 

5002 

5003 

500A 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

501 H 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 
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035420  260  17  0  00  037616 


035421 
035422 
035423 

035424 
035425 
035426 
035427 

035430 
035431 
035432 
035433 
035434 
035435 


035436 
035437 
035440 
035441 
035442 


035443 
035444 
035445 


036  00  0  00  055342 

035  00  0  00  035357 
260  17  0  00  037323 

036  00  0  00  055345 
035  00  0  00  035357 
260  17  0  00  037771 
476  00  0  00  065326 


201  00 

202  00 

201  00 

202  00 
004  00 
260  17 


0  00  001200 
0  00  065243 
0  00  006000 
0  00  065242 
0  00  400071 
0  00  037616 


036  00  0  00  055350 
035  00  0  00  035357 
260  17  0  00  037113 
A02  00  0  00  065326 
332  00  0  00  000007 


036  00  0  00  055353 
035  00  0  00  035357 
002  00  0  00  C5«?357 


GO     y5MIN 
ERROR   TST  0  0  0  * 
TIME  OUT  WHILE  WAITING  foft  BACKSPACE  BLOCK  C0MPLETI0N,,ERPNT 
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;Wait  for  command  completion 


SEQ  0276 


ERLOOP 
GO 

ERROR 
COMPOSITE  ERROR 
ERLOOP 
GO 

SETOM 
SETSTA 
ROVE  I 
MOVEM 
HOVE  I 
MOVEM 
RDFWF 
GO 
ERROR 


TST 

DXSTCK 

TST, 0,0,0,* 

ON  BACKSPACE  BLOCK 

TST 

CLRATA 

SHTREC 

MPERR*EC2,DEVEND*CHLEND 

MPERR^EC2 

DXEREX 

DEVEND^CHLEND 

DRVEXP 


If  error^  loop  to 
; Check  6xd0   status 


TST 


W5MIN 

TST, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 


OPERATION,, ERPNT 

;If  error,  loop  to  TST 
;Go  clear  atten 
.'Request  short  record 

:SETUP  EXPECTED  DXERR  STATUS 
;AND  STORE  IT> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
.'Read  forward 
.'Wait  for  command  completion 


ERLOOP  TST 

GO  STACHK 

SETZM  SHTREC 

SKIPE  ERRFND 

ERROR  TST, 0,0,0,*^ 

STATUS  ERROR  ON  READ  OPERATION.* 
INDUSTRY  COMPATIBLE  MODE. ERPNT  ' 

ERLOOP  TST 

REPEAT  TST 


;If  error,  loop  to  TST 
.'Check  status 

.'Clear  short  record  request 
;kip  if  no  errors  found 


SI 


If  error,  loop  to  TST 
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SEO  ^211 


5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5  '8 

50j9 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 


035446 
035447 
035450 


265  01  0  00  043410 
201  10  0  00  100047 
260  17  0  00  036657 


035451 
035452 

035453 
035454 
035455 
035456 
035457 

035460 
035461 
035462 
035463 
035464 
035465 
035466 
035467 
035470 
035^71 
035472 


035473 
035474 
035475 
035476 


035477 
035500 
035501 
035502 

035503 
035504 
035505 
035506 


332  00  0  00  042723 
254  00  0  00  035523 


402  00  0 

201  00  0 

202  00  0 
200  00  0 
202  00  0 


200  00 
202  00 


20^ 
3iJ 


00 
00 


436  00 

201  16 


201 
260 
260 


15 
17 
17 


004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  065243 
00  006000 
00  065242 
00  126037 
00  126031 
00  126040 
00  126032 
00  030000 
00  065340 
00  126031 
00  000006 
00  000012 
00  036657 
go  037713 
00  000061 
00  037616 


036  00  0  00  055366 
035  00  0  00  035447 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055371 
035  00  0  00  035447 
260  17  0  00  037766 
-.76  00  0  00  065326 


101  00  0  00  001 

!02  00  0  00  065 

101  00  0  00  006000 

?02  00  0  00  065242 


2^ 


TEST    39, SHORT  RECORD   AD  REVERSE  TRANSFER, 0,0,1 
t  »♦•♦♦»••♦♦***♦»»♦»♦♦♦♦♦♦#♦♦••  .♦•♦*•♦♦♦♦»♦»»•♦♦♦♦••♦••♦♦•*♦•*♦♦♦♦♦♦♦•» 

•  DFDXD  ♦  TEST  39  ♦    SHORT  RECORD  READ  REVERSE  TRANSFER 
XALL 

JSP     1,SETREP  :SET  UP  REPEAT  LOOP 

TST39:  HOVEI   F,(ByTE  (1)  0,0,1,010  (li)  *D<39>) 

GO     SETUP  .-SETUP  SUBSySTEM> 

♦  Write  a  record. 

*  Read  the  record  (reverse)  but  set  the  dx20  byte  count  to  one  more  than 

•  The  actual  size  of  the  record. 

♦  It  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

*  Check  that  an  error  is  detected  with  ec  =  2. 

•  Check  that  'exception'  is  set  in  rh20  coni  status. 


SKIPE 

JRST 

SETSTA 

SETZM 

MOVE  I 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

SKIPE 

ORM 

MO^EI 

MOVE  I 

GO 

GO 

yRT 

GO 

ERROR 


V701FG 

TST40-1 

0,DEVEND*CHLEND,0,0 

DXEREX 

DE VEND ^CHL END 

DRVEXP 

SNSCl 

SNSEX1 

SNSC2 

SNSEX2 

38<T]ER> 

TRACK7 

SNSEX1 

REPT1,6 

REPT.^DIO 

SETUP 

RWDCHK 


W5MIN 

..,wo   TST. 0,0,0.* 
TIME  OUT  WHILE  WAITING  FOR  BRITE  COMPLE 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO     STACHK 

SKIPE   ERRFND 

ERROR   TST.0,0,0-* 
STATUS  ERROR  ON  WRITE  OPERATION, * 
INDUSTRY  COMPATIBLE  MODE,ERPNT   " 

ERLOOP  TST 

GO     CLRDON 

SETOM   SHTPEC 

SETSTA  MPERR*EC2,DEVENDKHLEND 

MOVEI   MPERR*EC2 

MOVEM   DXEREX 

MOVEI   DEVENDKHLEND 

MOVEM   DRVEXP 


;7.01  Monitor  cannot  do  read  reverses 
;Do  next  test 

;SET  DXERR  EXPECTED  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
•T'  If  drive  is 
7  Track 

Set  word  cnt  index 
Set  data  pattern  index 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 

TION,*. 

If  error,  loop  to  TST 

Go  check  status 

Skip  if  any  errors  found 


;If  er  '"Or,  loop  to  TST 
;Go  clea'"  cmd  done 
.Request  ihort  record 

:SETUP  EXPECTED  DXERR  STATUS 
;AND  STORE  IT> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STOftE  IT 


DFDXD 
DFDXDM 

5080 
5081 
5082 
5085 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
509A 
5095 
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035507  201  00  0  00  OOOOAO 

035510  436  00  0  00  126031 

035511  004  00  0  00  400077 

035512  260  17  0  00  037616 


035513  036  00  0  00  055374 

035514  035  00  0  00  035447 

035515  260  17  0  00  03^1 i3 

035516  402  00  0  00  065326 

035517  332  00  0  00  000007 


035520  036  00  0  00  055377 

035521  035  00  0  00  035447 

035522  002  00  0  00  035447 


MOVE  I 

lORM 

RDRVF 

60 

ERROR 


BKUD 
SNSEX1 

U5MIN 

TST, 0,0,0/. 
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;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Uait  for  command  completion 


SEQ  027S 


TIME  OUT  WHILE  WAITING  FOR  READ 
INDUSTRY  COMPATIBLE  M0DE,ERPNT 


REVERSE  COMPLETION, \ 


ERLOOP 
60 

SET2M 
SKIPE 
ERROR 
STATUS  ERROR  ON 


TST 

STACHK 

SHTREC 

ERRFND 

TST,0,0,0,\ 

READ  OPERATION,* 


INDUSTRY  COMPATIBLE  MODE,ERPNT 
ERLOOP  TST 
REPEAT  TST 


;If  error,  loop  to  TST 
.•Check  status 

.•Clear  short  record  request 
;Skip  if  no  errors  found 


;If  error,  loop  to  TST 


035523  265  01  0  00  043A10 

035524  201  10  0  00  100050 

035525  260  17  0  00  036657 


035526 
035527 
035530 
035531 
035532 
035533 
035534 

035535 
035536 
035537 
035540 
035541 
035542 
035543 
035544 
035545 
035546 
035547 
035550 
035551 
035552 
035553 
035554 


035555 
035556 
035557 
035560 


035561 
035562 
035563 
035564 


201  00 
332  00 

201  00 

202  00 
336  00 


0 
0 
0 
0 
0 


DFDXD   DX20-V100  MAGNETIC  TAPE 
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5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 
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SEQ  0279 


260  17  0 
260  17  0 


402  00 
201  00 
20?  00 
2uJ  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
260  17  0 
260  17  0 
004  00  0 
260  17  0 


202  00 

200  00 
202  00 

201  00 
332  00 
436  00 
201 
201 


16 
15 


00  026000 
00  065340 
00  021400 
00  065237 
00  065340 
00  037777 
00  037716 

00  065243 
00  006000 
00  065242 
00  126037 
00  126031 
00  126040 
00  126032 
00  030000 
00  065340 
00  126031 
00  000006 
00  000012 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  055412 
035  00  0  00  035524 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055415 
035  00  0  00  035524 
260  17  0  00  037766 
004  00  0   00  000033 


TEST    40, LONG  RECORD  READ  FORWARD  TRANSFER, 0,0,1 

;*  DFDXD  *  TEST  40  *    LONG  RECORD  READ  FORWARD  TRANSFER 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST40:  MOVEI   F,(8YTE  (1)  0,0,1,010  (14)  '^D<40» 

60     SETUP  ; SETUP  SUBSYSTEM> 

;*  Write  ■">   record. 

;♦  Read  the  record  (forward)  but  set  the  dx20  byte  count  to  one  less  than 

;*  The  actual  size  of  the  record. 

;*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

;*  Check  that  an  error  is  detected  with  ec  =  3. 

;♦  Industry  compatible  mode 

.  ********************************************************************** 


MOVEI   T91600+INDCMP 

SKIPE   TRACK7 

MOVEI   OT7800+INDCMP 

MOVEM   DMODE 

SKIPN   TRACK7 

GO     SETD16 

GO     REWIND 

SETSTA  0,DEVEND*CHLtND,0,0 

SETZM   DXEREX 

DEVEND+CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

3B<TIER> 

TRACK7 

SNSEX1 

REPT1,6 

REPT,*D10 

SETUP 

RWDCHK 


MOVEI 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVEI 

SKIPE 

ORM 

MOVEI 

MOVEI 

60 

60 

WRT 

GO 

ERROr 


W5MIN 

cr„w,.   TST,0,0,0.\ 
TIME  OUT  WHILE  WAITING  FOR  ORITE  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO     STACHK 

SKIPE   ERRFND 

ERROR   TST.0,0.0.* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO     CLRDON 

BSB 


Set  for  9  trk  1600  bpi 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  modes 

Skip  if  7  track 

Go  setup  d1600  and  nt1600  sense  bits 

Rewind  the  tape 

SET  DXERR  EXPECTED  STATUS  =  0> 

; SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
"3"  If  drive  is 
7  Track 

Set  word  cnt  index 
Set  data  pattern  index 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
;Wait  for  command  completion 


;If  error,  loop  to  TST 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  TST 
;Go  clear  cmd  done 
.'Backspace  block 


DFDXD 
DFDXDM 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

51 6A 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

51 7A 

5175 

5176 

5177 

5178 

5179 
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035565  260  17  0  00  037616 


035566 
035567 
035570 

035571 
035572 
035573 
03557A 

035575 
035576 
035577 
035600 
035601 
035602 


035603 
035604 
035605 
035606 
035607 


035610 
035611 
035612 


036  00  0  00  055420 

035  00  0  00  035524 
260  17  0  00  037323 

036  00  0  00  055423 
035  00  0  00  035524 
260  17  0  00  037771 
476  00  0  00  065265 


201  00 

202  00 

201  00 

202  00 
004  00 
260  17 


0  00  001600 
0  0'  065243 
0  OC  006000 
0  00  D65242 
0  00  400071 
0  00  037616 


036  00  0  00  055426 
035  00  0  00  035524 
260  17  0  00  037113 
402  00  0  00  065265 
332  00  0  00  000007 


036  00  0  00  055431 
035  00  0  00  035524 
002  00  0  00  035524 
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;Wait  for  command  completion 


SEQ  02S0 


GO  U5MIN 

ERROR  TST  0  0  0  * 

TIME  OUT  WHILE  WAITInG  FOR  BACKSPACE  BLOCK  COMPLETION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  DXSTCK  ;Check  dxJO  status 

ERROR  TST  0  0  0  * 

COMPOSITE  ERROR  ON  BACKSPACE  BLOCK  OPERATION,, ERPNT 

ERLOOP  TST  ;If  error,  loop  to  TST 

GO  CLRATA  ;Go  clear  at ten 

SETOM  LNGREC  .-Request  long  record 

SETSTA  MPERR^EC3,DEVEND'^CHLEND 


MOVE  I 

MOVEM 

MOVE  I 

MOVEM 

RDFUF 

GO 

ERROR 


MPERR+EC3 
DXEREX 

DEVEND^CHLEND 
DRVEXP 


U5MIN 
un^v^n   TST,0,0,0,\ 
TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 


; SETUP  EXPECTED  DXERR  STATUS 
;AND  STORE  IT> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
;AND  STORE  IT 
.-Read  forward 
.-Wait  for  command  completion 


ERLOOP 
GO 

SETZM 

SKIPE 

ERROR 

STATUS  ERROR  ON 


TST 

STACHK 

LNGREC 

ERRFND 

TST,0,0,0.\ 

READ  OPERATION,* 


.-If  error,  loop  to  TST 
.-Check  status 
; Clear  long  record 
.-Skip  if  no  errors 


request 
found 


INDUSTRY  COMPATIBLE  MODE,ERPNT 
ERLOOP  TST 
REPEAT  TST 


;If  error,  loop  to  TST 


DFDXD 
DFDXDM 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 
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SEQ  0281 


035613  265  01  0  00  043410 

035614  201  10  0  00  100051 

035615  260  17  0  00  036657 


035616 
035617 

035620 
035621 
035622 
035623 
035624 
035625 
035626 
035627 
035630 
035631 
035632 
035633 
035634 
035635 
035636 
035637 


035o40 
035641 
035642 
035643 


035644 
035645 
035646 
035647 

035650 
035651 
035652 


332  00  0  00  042723 
254  00  0  00  035674 


402  00 

201  00 

202  00 
200  00 
202  00 
200  00 
20?  00 
2u'  00 
332  00 
436  00 
201 
201 
260 
260 
004  00 
260  17 


16 
15 
17 
17 


0  00  065243 
0  00  006000 
0  00  065242 
0  00  126037 
0  00  126031 
0  00  126040 
0  00  126032 
0  00  030000 
0  00  065340 
0  00  126031 
0  00  000006 
0  00  000012 
0  00  036657 
0  00  037713 
0  00  000061 
0  00  037616 


036  00  0  00  055444 
035  00  0  00  035614 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055447 
035  00  0  00  035614 
260  17  0  00  037766 
476  00  0  00  065265 

201  00  0  00  001600 

202  00  0  00  065243 
201  00  0  00  006000 


TEST    41, LONG  RECORD  READ  REVERSE  TRANSFER, 0,0 J 

*  DFDXD  *  TEST  41  *    LONG  RECORD  READ  REVERSE  TRANSFER 

*  t •*****♦**♦*♦**♦****♦♦*♦***♦** ********************************** ****** 

XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST41:  MOVEI   F,(8YTE  (1)  ^,0,1,010  (14)  *D<41» 

GO     SETUP  .-SETUP  SUBSYSTEM> 

*  Write  a  record. 

*  Read  the  record  (reverse)  but  set  the  dx20  byte  count  to  one  less  than 

*  The  actual  size  of  the  record. 

*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

*  Check  that  an  error  is  detected  with  ec  =  3. 

*  Check  that  'exception'  is  set  in  rh20  coni  status. 

*  Industry  compatible  mode. 


SKIPE  V701FG 

JRST  TST42-1 

SETSTA  0,DEVEND+CHLEND,0 

SETZM  DXEREX 

MOVEI  DEVEND+CHLEND 

MOVEM  DRVEXP 

MOVE  SNSCl 

MOVEM  SNSEXl 

MOVE  SNSC2 

MOVEM  SNSEX2 

MOVEI  3B<TIER> 

SKIPE  TRACK7 

ORM  SNSEXl 

MOVEI  REPT1,6 

MOVEI  REPT/DIO 

GO  SETUP 

60  RUDCHK 

WRT 

GO  U5MIN 

ERROR  TST, 0,0,0,* 


,0 


7.01  Monitor  cannot  do 
Do  next  test 


read  reverses 


SET  DXERR  EXPECTED  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
•3"  If  drive  is 
7  Track 

Set  word  cnt  index 
Set  data  pattern  index 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


TIME  OUT  WHILE  WAITInGFOR  ORITE  COMPLETION,* 
INDUSTRY  COMPATIBLE  MOOE,ERPNT 


ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 


TST 

STACHK 

ERRFND 

TST.O,0,0,\ 

WRITE  OPERATION, 


TST 


INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO  CLRDON 

SETOM  LNGREC 

SETSTA  MPERR*EC3,DEVEND^CHLEND 

MOVEI  MPERR>EC3 

MOVEM  DXEREX 

MOVEI  DEVENDKHLEND 


If  error,  loop  to 

Go  check  status 

Skip  if  any  errors  found 


If  error,  loop  to  TST 
Go  clear  cmd  done 
Request  long  record 


;SETUP 

;AND  STORE  IT> 

.•SETUP 


EXPECTED  DXERR  STATUS 
EXPECTED  TAPE  DRIVE  STATUS 


__ . — 

DFDXD 

0X20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 

DFDXDM 

MAC 

6-Apr-85  18:38 

DATA  TRANSFER  COMMANDS  TESTS 

5235 

035653 

202  00  0  00  065242 

MOVEM   DRVEXP 

5236 

035654 

201  00  0  00  000040 

MOVE I   BKUD 

5237 

035655 

436  00  0  00  126031 

lORM    SNSEX1 

5238 

035656 

004  00  0  00  400077 

RDRVF 

5239 

035657 

260  17  0  00  037616 

GO     U5MIN 

5240 

ERROR   TST, 0,0,0,* 

5241 

TIME  OUT  WHILE  WAITING  FOR  READ  REVERSE 

5242 

035660 

036  00  0  00  055452 

INDUSTRY  COMPATIBLE  MOi>E,ERPNT 

5243 

035661 

035  00  0  00  035614 

ERLOOP  TST 

5244 

035662 

260  17  0  00  037113 

GO     STACHK 

5245 

035663 

402  00  0  00  065265 

SETZM   LNGREC 

5246 

035664 

332  00  0  00  000007 

SKIPE   ERRFND 

5247 

ERROR   TST, 0,0,0,* 

5248 

STATUS  ERROR  ON  READ  OPERATION,* 

5249 

035665 

036  00  0  00  055455 

INDUSTRY  COMPATIBLE  MODE,ERPNT  " 

5250 

035666 

035  00  0  00  035614 

ERLOOP  TST 

5251 

035667 

002  00  0  00  035614 

REPEAT  TST 

5252 

;      Skipn   user 

JRST    T41END 

5253 

035670 

254  00  0  00  035674 

5254 

035671 

336  00  0  00  030047 

SKIPN   PASCNT 

5255 

PNTMSF   [ASCIZ/ 

5256 

THE  LONG  WORD  COUNT  TESTS  ARE  NOT  DONE 

5257 

035672 

037  01  0  00  055460 

/] 

5258 

035673 

254  00  0  00  036371 

JRST    TST44-1 

5259 

035674 

T41END: 
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;AND  STORE  IT 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 

COMPLETION,*. 

;If  error,  loop  to  TST 
.-Check  status 

.•Clear  long  record  request 
.'Skip  if  no  errors  found 


;If  error,  loop  to  TST 


SEQ  02S2 


IN  USER  MODE  DUE  TO  MONITOR  CONSTRAINTS! 
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SEQ  0283 


5260 
5261 
5262 
5263 
526A 
5265 
5266 
5267 

5268 
5269 
3270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
528A 
5285 
5286 
5287 

5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 


035674  265  01  0  00  043410 

035675  201  10  0  00  100052 

035676  260  17  0  00  036657 


035677 
035700 
035701 
035702 
035703 
035704 
035705 
035706 

03570^ 
035710 
035711 

035712 
035713 
035714 
035715 
035716 
035717 
035720 
035721 
035722 
035723 
035724 
035725 


035726 
035727 
035730 
035731 


035732 
035733 
035734 
035735 
035736 


476  00 
201  00 
332  00 

201  00 

202  00 
336  00 
260  17 
260  17 

402  00 

201  00 

202  00 

200  00 
20?  00 
Im)  00 
202  00 

201  00 
332  00 
436  00 
201  15 
260  17 
260  17 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  065267 
00  016000 
00  065340 
00  011400 
00  065237 
00  065340 
00  037777 
00  037716 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065243 
006000 
06:242 
126037 
1260:i 
126040 
126032 
030000 
065340 
126031 
000012 
036657 

037713 
000061 
037616 


036  00  0  00  055510 
035  00  0  00  035722 
260  M  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
004  00 
260  M 


00  055513 
00  035722 
00  037766 


00 
00 


0QQ03 
037616 


035737  036  00  0  00  055516 


TEST    42. READ  FORyARD  LARGE  TRANSFER, 0,0,1 
;•  DFDXD  ♦  TEST  42  •    READ  FORyARD  LARGE  TRANSFER 
XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOP 

TST42:  NOVEI   F.CBYTE  (D  0,0,1,010  (14)  '^D<42» 

€0         SETUP  .-SETUP  suesysTE«> 

;•  yrite  and  read  forward  the  largest  possible  xfer,  M7777   bytes. 
;♦  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzf  mode. 
:«  Core  dump  mode 


SET0« 
MOVE  I 
SKIPE 
MOVE! 
MOVEM 
SKIPN 


ig 


RFLGCl 


SETSTA 
SETZM 
MOVE  I 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVE  I 
SKIPE 
ORM 
MOVE  I 
GO 
GO 
yRT 
GO 

ERROR 
OUT  yHiLt 
DUMP  MODE, 
ERLOOP 
GO 

SICIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
GO 

Bse 

GO 
ERROR 

TIME  OUT  yniLE 


LRGXFR 

T91600^CDUMP 

TRACK7 

OT7800^CDUMP 

DMODE 

TRACK7 

SETD16 

REyiND 

0,DEVEND*CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSCl 

SNSEXI 

SNSC2 

SHSU2 

38<TIER> 

TRACK7 

SNSEXI 

REPT,^D10 

SETU^ 

RyDCHK 


TIME 
CORE 


y5MIN 

RFLGCl, 0,0,0,\ 
yAITING  FOR  WRITE  COMPLETION,* 
ERPNT 

RFLGCl 

STACHK 

ERRFND 

RFLGCl, 0, 0,0, \ 

yRITE  OPERATIOPI,* 
ERPNT 

RFLGCl 

CLRDON 


Set  large  xfer  request  flag 

Set  for  9  track  pe  mode 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  both  modes 

Skip  if  7  track 

Go  setup  d1600  and  nt1600  sense  bits 

Rewind  the  tape 

SET  DXERR  EXPECTtD  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  yORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
•T*  If  drive  is 
7  Track 

Set  data  pattern  index 
Put  dx20  in  idle  state 
Go  rewind  if  needed 
yrite  data  pattern 
yait  for  command  completion 


If  error,  loop  to  RFLGCl 

Go  check  status 

Skip  if  any  errors  found 


;If  error,  loop  to  RFLGCl 

;Go  c I ear  cmd  djne 

; Back  space  block 

.•yait   for  command  completion 


ySMIN 

RFLGC1, 0.0,0,* 
yAITING  FOR  BACl^SPACE  BLOCK  COMPLETION.  .ERPNT 


DFDXD 

0X2O-V 

DFDXDH 

MAC 

5315 

0357A0 

5316 

035741 

5317 

5318 

0357A2 

5319 

035743 

5320 

035744 

5321 

035745 

5322 

035746 

5323 

5  32  A 

5325 

035747 

5326 

035750 

5327 

035751 

5328 

035752 

5329 

5330 

5331 

035753 

5332 

035754 

5333 

10  MAGNETIC   TAP 
6-Apr-85  18:3 

035  00  Q  00  o; 

260  17  0  00  0. 
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SEQ  0284 


157; 
173; 


036  00  0  Oj  055521 
035  00  0  00  035722 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055524 
035  00  0  00  035722 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055527 
035  00  0  00  035722 


ERLOOP 
GO 

ERROR 
COMPOSITE  ERROR 
ERLOOP 
60 

RDFyF 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 


RFLGC1 

DXSTCK 

RFLGC1, 0,0,0,* 

ON  BACKSPACE  BCOCK  OPERATION, ,ERPNT 


;If  error,  loop  to  RFLGC1 
.•Check  dx20  status 


RFLGC1 
CLRATA 


if  error,  toop  to  RFLGC1 

Go  clear  atten 

Read  forward 

yait  for  command  completion 


U5MIN 

RFLGC1,0,0,0,* 
WAITING  FOR  REAP  FORWARD  COMPLETION, "* 
ERPNT 

RFLGC1  ;If  error,  loop  to  RFLGC1 

STACHK  .-Check  status 

ERRFND  ;Skip  if  no  errors  found 

RFLGC1, 0,0,0,* 

READ  operation:* 
ERPNT 

RFLGC1  ;If  error,  loop  to  RFLGC1 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXOM  MAC     6-Apr-85  18:38        DATA  TRANSFER  COMMANDS 


VERSION  0 
TFSTS 


MACRO  Z53A(n52)  18:38  6-Apr-85  Page  73 


5EQ  0285 


533A 

5335 

5336 

5337 

5338 

5339 

53A0 

53A1 

5342 

53A3 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 


035755 
035756 
035757 
035760 
035761 
035762 
035763 


035764 
035765 
035766 
035767 


035770 
035771 
035772 
035773 
035774 

03577S 
035776 
035777 

036000 
036001 
036002 
036003 
036004 


036005 
036006 
036007 

036010 


036011 
036012 


201 
202 
201 
260 
260 
004 
260 


00 
00 
15 
17 
17 
00 
17 


0  00 
0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


020000 
065237 
000012 
036657 
037713 
000061 
037616 


036  00  0  00  055532 
035  00  0  00  035760 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055535 

035  00  0  00  035760 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055516 

035  00  0  00  035760 
260  17  0  00  037323 

036  00  0  00  055521 
G:>.-  CO  0  00  035760 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055540 
035  00  0  00  035760 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055543 
035  00  0  00  035760 


;*  Industry  compatible  mode 


RFLGI1 


MOVE  I 

MOVEM 

MOVE  I 

60 

GO 

URT 

60 

ERROR 


INDCMP 

DMODE 

REPT,*D10 

SETUP 

RWDCHK 


;Add  data  mode 

;Im't  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
.-Write  data  pattern 
;Wait  for  command  completion 


;If  error,  loop  to  RFLGI1 

;6o  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFLGI1 
;6o  clear  cmd  done 
.'Backspace  block 
;Uait  for  command  completion 


U5MIN 

RFL611, 0,0,0,* 

TIME  OUT  WHILE  WAITIN6  FOR  WRITE  COMPLETION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RFL6I1 

60     STAC?:»( 

SKIPE   ERRFND 

ERROR   RFL6I1. 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT   " 

ERLOOP  RFL6I1 

60     CLRDON 

BSB 

60     W5MIN 

ERROR   RFL6I1. 0,0,0,* 
TIME  OUT  WHILE  WAITIN6  FOR  BACKSPACE  BLOCK  COMPLETION,,ERPNT 

ERLOOP  RFL6I1  ;If  error,  loop  to  RFLGI1 

GO     DXSTCK  .-Check  dx^O  status 

ERROR   RFLGI1. 0,0,0,* 
COMPOSITE  ERROR  ON  BACKSPACE  BEOCK  OPERATION,, ERPNT 

ERLOOP  RFL6I1  .If  error,  loop  to  RFLGI1 

GO     CLRATA  ;Go  clear  atten 

RDFWF  :Read  forward 

60     J5MIN  ;Wait  for  command  completion 

ERROR   RFL6I1. 0,0,0,*, 
TIME  OUT  WHILE  WAITIN6  FOR  READ  FORWARD  COMPLETION,*. 
INDUSTRY  COMPATIBLE  MODE, ERPNT 

ERLOOP  RFL6I1  ;If  error,  loop  to  RFLGI1 

GO     STACHK  .-Check  status 

SKIPE   ERRFND  .'Skip  if  no  errors  found 

ERROR   RFL6I1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE, ERPNT 

ERLOOP  RFLGI1  ;If  error,  loop  to  RFLGI1 


r 


DFDXD 
DFDXDM 

5379 

5380 

5381 

5382 

5383 

538A 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

539A 

5395 

5396 

5397 

5398 

5399 

5A00 

5A01 

5A02 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 


DX20-V1 
MAC 
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SEQ  0286 


036013 
036014 
03601 5 
036016 
03601 7 
036020 
036021 


036022 
036023 
036024 
036025 


036026 
036027 
036030 
036031 
036032 

036033 
036034 
036035 

036036 
036037 
036040 
036041 
036042 


036043 
036044 
036045 
036046 


036047 
036050 


201  00  0 

202  00  0 
201  15  0 
260  17  0 
260  17  0 
004  00  0 
260  17  0 


00  030000 
00  065237 
00  000012 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  055546 
035  00  0  00  036016 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055551 

035  00  0  00  036016 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055516 

035  00  0  00  036016 
260  17  0  00  037323 

036  00  0  00  055521 
On?  00  0  00  036016 
260  17  0  00  037771 
00'.  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055554 
035  00  0  00  036016 
260  17  0  00  037113 
33?  CO  0  00  000007 


036  00  0  00  055557 
035  00  0  00  036016 


;*  Six  bit 


RFLGS1 


MOVE  I 

MOVEM 

MOVE  I 

GO 

GO 

URT 

GO 

ERROR 


SIX8T 

DMODE 

REPT,*D10 

SETUP 

RUDCHK 


;Add  data  mode 

;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Write  data  pattern 
;Wait  for  comrrand  completion 


;If  error,  loop  to  RFLGS1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFLGS1 
;Go  clear  cmd  done 
;Backspace  block 
;Wait  for  command  completion 


U5MIN 

RFLGS1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFLGS1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFLGS1,0,0,0,'^ 
STATUS  ERROR  ON  WRITE  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RFLGS1 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFLGS1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  BACKSPACE  BLOCK  COMPLETION,,ERPNT 

ERLOOP  RFLGS1  ;If  error,  loop  to  RFLGS1 

GO     DXSTCK  .-Check  dxJO  status 

ERROR   RFLGS1, 0,0,0,* 
COMPOSITE  ERROR  ON  BACKSPACE  BCOCK  OPERATION,, ERPNT 

ERLOOP  RFLGS1  ;If  error,  loop  to  RFLGS1 

GO     CLRATA  ;Go  clear  atten 

RDFWF  ;Read  forward 

GO     W5MIN  .-Wait  for  command  completion 

ERROR   RFLGS1, 0,0,0,* 
TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION,* 
SIX  BIT  MODE, ERPNT 

ERLOOP  RFLGS1  ;If  error,  loop  to  RFLGS1 

GO     STACHK  ;Check  status 

SKIPE   ERRFND  ;Skip  if  no  errors  found 

ERROR   RFLGS1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION?* 
SIX  BIT  MODE, ERPNT 

ERLOOP  RFLGS1  ;If  error,  loop  to  RFlGSI 
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SEQ  0287 


5A2A 

5A25 

5A26 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 


036051 
036052 
036053 
036054 
036055 
036056 
036057 


036060 
036061 
036062 
036063 


036064 
036065 
036066 
036067 
036070 

036071 
036072 
036073 

036074 
C36075 
036076 
036077 
036100 


036101 
036102 
036103 
036104 


036105 
036106 


201  00  0 

202  00  0 
201  15  0 
260  17  0 
260  17  0 
004  00  0 
260  17  0 


00  040000 
00  065237 
00  000012 
00  036657 
00  037713 
00  000061 
00  037616 


036  00  0  00  055562 
035  00  0  00  036054 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055565 

035  00  0  00  036054 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055516 

035  00  0  00  036054 
260  17  0  00  037323 

036  00  0  00  055521 
0:>?  00  0  00  036054 
260  17  0  00  037771 
00'.  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055570 
035  00  0  00  036054 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055573 
035  00  0  00  036054 


;*  7-Bit  ascii 


RFL6A1 


MOVE  I 

ASCII7 

MOVEM 

DMODE 

MOVE  I 

REPT,*D10 

60 

SETUP 

GO 

RWDCHK 

WRT 

GO 

W5MIN 

ERROR 

RFLGAUO, 

;Add  oata  mode 

;lm*t  data  pattern  code 
;Put  dx20  in  idle  state 
;6o  rewind  if  needed 
;Write  data  pattern 
;Wait  for  command  completion 


If  error,  loop  to  RFLGA1 

Go  check  status 

Skip  if  any  errors  found 


;If  error,  loop  to  RFLGA1 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
7-BiT  ASCII  MODE,ERPNT 

ERLOOP  RFLGA1 

GO     STACHK 

SKIPE   ERRFND 

LhtiOR       RFLGAl, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RFLGA1 

GO      CLRDON 

6S6 

GO      W5MIN 

ERROR   RFL6A1  0  0  0  * 
TIME  OUT  WHILE  WAITING'FOR'BACI^SPACE  BLOCK  COMPLETION, ,ERPNT 

ERLOOP  RFLGA1  ;If  error,  loop  to  RFLGA1 

GO     DXST^K  .-Check  dxJO  status 

ERROR   RFLGAl  0  0  0  * 
COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 

ERLOOP  RFLGA1  ;If  error,  loop  to  RFLGAl 

GO     CLRATA  ;Go  clear  atten 

RDFWF  ;Read  forward 

GO     W5MIN  ;Wait  for  command  completion 

ERROR   RFLGAl  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'rEAD  FORWARD  COMPLETION,* 
7-BIT  ASCII  MODE, ERPNT 

ERLOOP  RFLGAl  ;If  error,  loop  to  RFLGAl 

GO     STACHK  .-Check  status 

SKIPE   ERRFND  .-Skip  if  no  errors  found 

ERROR   RFLGAl, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
7-BIT  ASCII  MODE, ERPNT 

ERLOOP  RFLGAl  ;If  error,  loop  to  RFLGAl 
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SEQ  0288 


5A69 

5A70 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

S497 

5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 


036107 
036110 
036111 
036112 
036113 
036114 
036115 


036116 
036117 
036120 
036121 


036122 
036123 
036124 
036125 
036126 

036127 
036130 
036131 

036132 
036133 
036134 
036135 
036136 


036137 
036140 
036141 
036142 


036143 
036144 


201 
202 
201 
260 
260 
004 
260 


00 
00 
15 
17 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


050000 
065237 
00001 2 
036657 
037713 
000061 
037616 


036  00  0  00  055576 
035  00  0  00  036112 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055601 

035  00  0  00  036112 
260  17  0  00  037766 
004  00  0  00  000033 
260  17  0  00  037616 

036  00  0  00  055516 

035  00  0  00  036112 
260  17  0  00  037323 

036  00  0  00  055521 
03?  00  0  00  036112 
260  17  0  00  037771 
00'.  00  0  00  400071 
260  17  0  00  0:7616 


036  00  0  00  055604 
035  00  0  00  036112 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055607 
035  00  0  00  036112 


036K5  002  00  0  00  035675 


;*  High  density  mode 


RFLGH1 


MOVE  I 

MOVEM 

MOVE  I 

60 

GO 

URT 

GO 

ERROR 


HIDEN 

DMODE 

REPT^-^DIO 

SETUP 

RUDCHK 


;Add  data  mode 

;Init  data  pattern  code 
;Put  dx20  in  idle  state 
;Go  rewind  if  needed 
;Urite  data  pattern 
;Wait  for  command  completion 


U5MIN 

RFLGH1,0,0,0,\ 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,-". 
HIGH  DENSITY  MODE^ERPNT 

ERLOOP  RFLGH1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RFLGH1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RFLGH1 

GO     CLRDON 

BSB 

GO     W5MIN 

ERROR   RFLGHI  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'bACRSPACE  BLOCK  COMPLETION,,ERPNT 

ERLOOP  RFLGH1  ;If  error  -  loop  to  RFLGHI 

GO     DXSTCK  ; Check  dxJO  status 

ERROR   RFLGHI  0  0  0  * 
COMPOSITE  ERROR  ON  BACKSPACE 'bCOCK  OPERATION,, ERPNT 

ERLOOP  RFLGHI  ;If  error,  loop  to  RFLGHI 

GO     CLRATA  ;Go  clear  atten 

RDFWF  ;Read  forward 

GO     W5MIN  ;Wait  for  command  completion 

ERROR   RFLGHI  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'READ  FORWARD  COMPLETION,*. 
HIGH  DENSITY  MODE, ERPNT 


;If  error,  loop  to  RFLGHI 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RFLGHI 
;Go  clear  cmd  done 
.'Backspace  block 
;Wait  for  command  completion 


ERLOOP  RfLGHl 

GO     STACHK 

SKIPE   ERRFND 

ERROR   PFiGHl, 0,0,0/ 
STATiJS  ERROR  ON  :^fA)  OPERATION;*. 
HIGH  DENSITY  MODE, ERPNT 

ERLOOP  RFLGHI 

REPEAT  TST 


;If  error,  loop  to  RFLGHI 

.•Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RFLGHI 


DFDXD 
DFDXDM 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 

5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 

5566 
5567 

5568 
5569 
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SEQ  0289 


036146  265  01  0  00  043410 
036 V.7  201  10  0  00  100053 
036150  260  17  0  00  036657 


036151 
036152 

036153 
036154 
036155 
036156 
036157 
036160 
036161 
036162 
036163 
036164 
036165 
036166 
036167 
036170 
036171 
036172 
036173 
036174 
036175 


036176 
036177 
036200 
036201 


036202 
036203 
036204 
036205 

036206 
036207 

036210 


332  00  0  00  042723 
254  00  0  00  036371 


402  00  0 

201  00  0 

202  00  0 
200  00  0 
202  00  0 

200  00  C 
202  00  0 

201  00 
332  00 
436  00 
201  00 

CMl    00 

201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


00  065243 

00  006000 

00  065242 

00  126037 

00  126031 

00  126040 

00  126032 

0  00  030000 

0  00  065340 

0  00  126031 

0  00  010000 

0  00  065237 

0  00  000012 

0  00  036657 

0  00  037713 

0  00  000040 

0  00  126031 

0  00  000061 

0  00  037616 


036  00  0  00  055621 
035  00  0  tO  036170 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055624 
035  00  0  00  036170 
260  17  0  00  037766 
201  00  0  00  000040 
436  00  0  00  126031 
004  00  0  00  4QQ077 
260  17  0  00  037616 


TEST    43, READ  REVERSE  LARGE  TRANSFCR^O^O J 

;♦  DFDXD  ♦  TEST  43  ♦    READ  REVERSE  LARGE  TRANSFER 

•*  ************************** t*t************tt*********t***tt****t*«***** 

XALL 

JSP     1,SETREP  :SET  UP  REPEAT  LOOP 

TST43:  MOVEI   F,(ByTE  (1)  0,0,1,010  (li)  *D<43» 

GO     SETUP  ; SETUP  SUBSYSTEM> 

;•  Write  and  read  reverse  the  largest  possible  xfer,  177777  bytes. 
;*  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 
;♦  Core  dump  mode 


SKIPE 
JRST 
SETSTA 
SETZM 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVEI 
SKIPE 
ORM 
MOVEI 
MOVEM 
MOVEI 
RBLGC1:  GO 
GO 

MOVEI 
AND CAM 
URT 
GO 

ERROR 
TIME  OUT  WHILE 
CORE  DUMP  MODE, 
ERLOOP 
GO 

SKiPE 
ERROR 
STATUS  ERROR  ON 
CORE  DUMP  MODE, 
ERLOOP 
GO 

MOVEI 
I  ORM 
RDRVF 
.0 

ERROR 
TIME  OUT  WHILE 


V701FG 

TST44-1 

0,DE''END^CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSCl 

SNSEXl 

SNSC2 

SNSEX2 

3fl<TIER> 

TRACK7 

SNSEXl 

CDUMP 

DMODE 

REPT,*D10 

SETUP 

RWDCHK 

BKWD 

SNSEXl 

W5MIN 

RBLGCl,0,0,0-\ 
WAITING  FOR  WRITE  COMPLE 
ERPNT 

RBLGC1 

STACHK 

ERRFND 

RBLGf 1,0.0,0.* 

WRITE  OPERATIOFl,* 
ERPNT 

R8L6C1 

CLRDON 

6KWD 

SNSEXl 

W5MIN 

RBLGC1, 0,0,0,* 
WAITING  FOR  REAP  REVERSE 


;7.01  Monitor  cannot  do 
;Do  next  test 


;SET 


ead  reverses 


DXERR  EXPECTED  STATUS  =  0> 

:SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
•3"  If  drive  is 
7  Track 
Set  data  mode 


;Init  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

;Wr'te  data  pattern 

;Wait  for  command  completion 


TION,*. 


If  error,  loop  to  RBLGCl 

Go  check  status 

Skip  if  any  errors  found 


;If  error,  loop  to  RBLGCl 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Srt  that  bit  ii  expected  sense  iord  1 

;Read  reverse 

.•Wait  for  command  completion 


COMPLETION,*. 
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5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 

5578 


C36211  036  00  0  00  055627 

036212  035  00  0  00  036170 

036213  260  17  0  00  037113 
0362U  332  00  0  00  000007 


036215  036  00  0  00  055632 

036216  035  00  0  00  C36170 


CORE  DUMP  MODE,ERPNT 

ERLOOP  RBLGC1 

60     STACHK 

SKIPE   ERRFND 

ERROR   RBL6C1, 0,0,0/ 
STATUS  ERROR  ON  READ  OPERATION? 
CORE  DUMP  MODE,ERPNT 

ERLOOP  RBLGC1 


;If  error,  loop  to  RBlGCI 

.•Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBLGC1 


DFOXD 
DFDXDM 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

559A 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

560A 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

56U 

5615 

5616 

5617 
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SEQ  0291 


036217 
036220 
036221 
036222 
036223 
03622A 
036225 
036226 
036227 


036230 
036231 
036232 
036233 


036234 
036235 
036236 
036237 
036240 
036241 
036242 


036243 
036244 
036245 
036246 


036247 
036250 


201  00 

202  00 
201  15 
260  17 
260  17 
201  00 


0 
0 
0 
0 
0 
0 
412  00  0 
004  00  0 
260  17  0 


00  020000 
00  065237 
00  000012 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 


036  00  0  00  055635 
035  00  0  00  036222 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0  00  055640 
0  00  036222 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  400077 
0  00  037616 


Oaz  00  0  00  055643 
035  00  0  00  036222 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055646 
035  00  0  00  036222 


•  »♦*♦#**♦♦♦**♦♦♦*♦♦♦*♦♦♦♦♦**♦**♦*♦»♦♦♦*♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦•♦♦ 

;♦  Industry  compatible  mode 


RBLGI1 


MOVE  I 

MOVEM 

MOVE  I 

GO 

GO 

MOVE  I 

ANDCAM 

yRT 

60 

ERROR 


INDCMP 

DMODE 

REPT,*D10 

SETUP 

RUDCHK 

BKUD 

SNSEX1 


U5MIN 

RBL6I1, 0,0,0,* 

TIME  OUT  yHILE  WAITING  FOR  WRITE  COMPLETION,*. 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBL6I1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBL6I1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATIOFI,*. 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  RBLGI1 

GO     CLRDON 

MOVE I   BKWD 

lORM    SNSEXl 

RDRVF 

GO     W5MIN 

ERROR   R6LGI1  0  0  0  * 
TIME  OUT  WHILE  WAITING'fOR'rEAD  REVERSE  COMPLETION,*. 
INDUSTRY  COMPATIBLE  MODE  ^RPNT 


:Add  data  mode 

;Init  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

.•Write  data  pattern 

;Wait  for  command  completion 


;If  error,  loop  to  RBLGI1 

;Go  check  status 

;Skip  if  any  errors  found 


;If  error,  loop  to  RBLGI1 

:Go  clear  cmd  done 

:Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

.-Read  reverse 

;Wait  for  command  completion 


ERLOOP  RBL6I1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBLGI1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT  " 

ERLOOP  RBL6I1 


If  error,  loop  to  RBLGI1 

Check  status 

Skip  if  no  errors  found 


;If  error,  loop  to  RBL6I1 
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SEQ  0292 


5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 


036251 
036252 
036253 
036254 
036255 
036256 
036257 
036260 
036261 


036262 
036263 
036264 
036265 


036266 
036267 
036270 
036271 
036272 
036273 
036274 


036275 
036276 
036277 
036300 


036301 
036302 


201  00 

202  00 
201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  030000 
00  065237 
00  000012 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 


036  00  0  00  055651 
035  00  0  00  036254 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0  00  055654 
0  00  036254 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  400077 
0  00  037616 


G3c  00  0  00  055657 
035  00  0  00  036254 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055662 
035  00  0  00  036254 


;♦  Six  bit 


RBLGS1 


MOVE  I 
MOVEM 
MOVE  I 
60 
60 
MOVE  I 


SIXBT 
DMODE 
REPT^-^DIO 
SETUP 
RUDCHK 
BKUD 
ANDCAM  SNSEX1 
URT 

60     U5MIN 
ERROR   RBL6S1, 0,0,0/ 
TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBLGS1 
60     STACHK 
SKIPE   ERRFND 
ERROR   RBL6S1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATIOR, 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBL6S1 


;Add  data  mode 


;Init  data  pattern  code 

;Put  dx20  in  idle  state 

;6o  rewind  if  needed 

:Set  mask  of  backward  bit 

;Clear  that  bit  in  expected  sense  word  1 

.-Write  data  pattern 

.-Wait  for  command  completion 


;If  error,  loop  to  RBLGSl 

;Go  check  status 

;Skip  if  any  errors  found 


60 

MOVE  I 

lORM 

RDRVF 

60 

ERROR 


CLRDON 

BKWD 

SNSEX1 


W5MIN 

R8L6S1,0,0,0,\ 

TIME  OUT  WHILE  WAITIN6  FOR  READ  REVERSE  COMPLETION,*. 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBL6S1 

60     STACHK 

SKIPE   ERRFND 

ERROR   RBL6S1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
SIX  BIT  MODE,ERPNT 

ERLOOP  RBLGSl 


;If  error,  loop  to  RBLGSl 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


;If  error,  loop  to  RBLGSl 

.•Check  status 

.•Skip  if  no  errors  found 


;If  error,  loop  to  RBLGSl 


201  00 

202  00 
201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  040000 
00  065237 
00  000012 
00  036657 
00  037713 
00  000040 
00  126031 
00  000061 
00  037616 
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5657 
5658 
5659 
5660 

5661  036303 

5662  036304 

5663  036305 

5664  036306 

5665  036307 

5666  036310 

5667  036311 

5668  036312 

5669  03631 3 
5670 

5671 

5672  036314 

5673  036315 

5674  036316 

5675  036317 
5676 

5677 

5678  036320 

5679  036321 

5680  036322 

5681  036323 

5682  036324 

5683  036325 

5684  036326 
5685 

5686 

5687  036327 

5688  036330 

5689  036331 

5690  036332 
5691 

5692 

5693  036333 

5694  036334 
5695 
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SEQ  0293 


036  00  0  00  055665 
035  00  0  00  036306 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260 
201 

436  00 
004  00 
260  17 


17 
00 


0 
0 
0 
0 
0 
0 
0 


00  055670 
00  036306 
00  037766 
00  000040 
00  126031 
00  400077 
00  037616 


Oir  00  0  00  055673 
035  00  0  00  036306 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055676 
035  00  0  00  036306 


;*  7-Bit  ascn* 


MOVEI  ASCII7 

MOVEM  DMODE 

MOVEI  REPT,^D10 

RBLGA1:  GO  SETUP 

60  RWDCHK 

MOVEI  BKUD 

ANDCAM  SNSEX1 
URT 

GO  U5MIN 

ERROR  RBLGA1, 0.0,0,* 


;Add  data  mode 

;Im*t  data  pattern  code 

;Put  dx20  in  idle  state 

;Go  rewind  if  needed 

:Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

;Write  data  pattern 

;Wait  for  command  completion 


TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION,* 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RBL6A1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBLGA1 ,0,0,0,* 
STATUS  ERROR  ON  WRITE  0PERATI0F3, 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RBL6A1 

GO     CLRDON 

MOVEI   BKWD 

lORM    SNSEX1 

RDRVF 

GO 

ERROR 


W5MIN 

RBLGA1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  READ  REVERSE  COMPLETION,* 
7-BIT  ASCII  MODE,ERPNT 

ERLOOP  RBLGA1 

GO     STACHK 

SKIPE   ERRFND 

ERROR   RBL6A1, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,* 
7 -BIT  ASCII  MODE,ERPNT 

ERLOOP  RBL6A1 


;If  error,  loop  to  RBL6A1 

;Go  check  status 

.-Skip  if  any  errors  found 


;If  error,  loop  to  RBL6A1 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

.-Wait  for  command  completion 


;If  error,  loop  to  RBL6A1 

;Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RBLGA1 


I — 
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SEQ  0294 


5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

570A 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

571A 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 


036335 
036336 
036337 
036340 
036341 
036342 
036343 
036344 
036345 


036346 
036347 
036350 
036351 


036352 
036353 
036354 
036355 
036356 
036357 
036360 


036361 
036362 
036363 
036364 


036365 
036366 

036367 
036370 


201  00 

202  00 
201  15 
260  17 
260  17 
201  00 
412  00 
004  00 
260  17 


0  00  050000 
0  00  065237 
0  00  000012 
0  00  036657 
0  00  037713 
0  00  000040 
0  00  126031 
0  00  000061 
0  00  037616 


036  00  0  00  055701 
035  00  0  00  036340 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 

035  00 

260 

201 

436 

004 

260 


17 
00 
00 
00 
17 


0  00  055704 
0  00  036340 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  400077 
0  00  037616 


0:>r  00  0  00  055707 
035  00  0  00  036340 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055712 
035  00  0  00  036340 

002  00  0  00  036147 
402  00  0  00  065267 


;*  High  density  mode 


RBLGH1 


MOVE  I 

MOVEM 

MOVE  I 

GO 

GO 

MOVE  I 

ANDCAM 

URT 

60 

ERROR 


HIDEN 

DMODE 

REPT,*D10 

SETUP 

RUDCHK 

BKWD 

SNSEXl 


ySMIN 

RBLGHl, 0,0,0/ 

TIME  OUT  WHILE  WAITING  FOR  WRITE  COMPLETION, \ 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBLGH1 

60     STACHK 

SKIPE   ERRFND 

ERROR   RBLGH1, 0,0,0,* 
STATUS  ERROR  ON  WRITE  OPERATION,*. 
HIGH  DENSITY  MODE,ERPNT 

ERLOQP  RBL6H1 

60     CLRDON 

MOVE I   BKWD 
SNSEX1 


;Add  data  mode 

;Init  data  pittern  code 

.-Put  dx20  in  idle  state 

;Go  rewind  if  needed 

;Set  mask  of  backward  bit 

; Clear  that  bit  in  expected  sense  word  1 

.-Write  data  pattern 

;Wait  for  command  completion 


;If  error,  loop  to  RBLGHl 

;6o  check  status 

;Skip  if  any  errors  found 


lORM 
RDRVF 
GO 
ERROR 


W5MIN 

RBLGH1, 0,0,0,* 

TIME  OUT  WHILE  WAITING  FOR  READ  REVERSE  COMPLETION,* 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBLGHl 

GO      STACHK 

SKIPE   ERRFND 

ERROR   RBLGHl, 0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION:* 
HIGH  DENSITY  MODE,ERPNT 

ERLOOP  RBLGHl 


;If  error,  loop  to  RBLGHl 

;Go  clear  cmd  done 

;Set  mask  of  backward  bit 

;Set  that  bit  in  expected  sense  word  1 

;Read  reverse 

;Wait  for  command  completion 


;If  error,  loop  to  RBLGHl 

;ChecR  status 

;Skip  if  no  errors  found 


REPEAT  TST 
SETZM   LRGXFR 


;If  error,  loop  to  RBLGHl 


.-Clear  large  xter  request  flag 


DFDXD 
DFDXDM 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 
5779 
5780 
5781 
5782 
5783 
5784 
5785 

5786 
5787 

5788 
5789 

5790 
5791 
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SEQ  0295 


036371 
036372 
036373 


036374 
036375 
036376 
036377 
036400 
036401 
036402 
036403 

036404 
036405 
036406 
036407 
036410 
036411 
036412 
036413 
036414 
036415 
036416 
036417 

036420 
036421 
036422 
036423 
036424 
036425 
036426 


036427 
036430 
036431 
036432 


036433 
036434 
036435 


265  01  0  00  043410 
201  10  0  00  100054 
260  17  0  00  036657 


402  00 
201  00 
332  00 

201  00 

202  00 
336  00 
260  17 
260  17 


402  00 

201  00 

202  00 

200  00 
20?  00 

2^:  00 

202  00 

201  00 


0 
0 
0 
0 
0 
0 
0 
0 
332  00  0 
436  00  0 

201  00 

202  00 

201  15 
200  00 

202  00 
260  17 
260  17 
004  00 
260  17 


0  00  065267 
0  00  026000 
0  00  065340 
0  00  021400 
0  00  065237 
0  00  065340 
0  00  037777 
0  00  037716 

00  065243 

00  006000 

00  065242 

00  126037 

00  126031 

00  126040 

00  126032 

00  030000 

00  065340 

00  126031 

0  00  000002 

0  00  065221 

0  00  000012 

0  00  065221 

0  00  000016 

0  00  036657 

0  00  037713 

0  00  000061 

0  00  037616 


036  00  0  00  055726 
035  00  0  00  036421 
260  ^7  0  00  037113 
332  00  0  00  000007 


036  00  C  00  055731 
C35  00  0  00  036421 
260  17  0  00  037766 


TEST    44, READ  FORWARD  MULTIPLE  BLOCK  TRANSFERS, 0,0,1 
;*  DFDXD  ♦  TEST  44  *    READ  FORWARD  MULTIPLE  BLOCK  TRANSFERS 
XALL 


JSP 
TST44:  MOVEI 
GO 


1,SETREP  ;SET  UP  REPEAT  LOOP 

F,(BVTE  (1)  0,0,1,0!0  (14)  *D<44» 

SETUP  .-SETUP  SU6SYSTEM> 


♦  Do  write  and  read  forward  xfers  of  2,3-4.5  blocks  (records). 

♦  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

♦  Industry  compatible  mode 
***********»**************♦•♦♦»*♦***♦♦***♦*»♦♦*♦*♦♦♦*♦♦♦♦♦♦♦♦♦♦*♦♦♦**♦ 


SETZM 
MOVEI 
SKIPE 
MOVEI 
MOVEM 
SK I PN 


^ 


RFBLK 


SETSTA 
SETZM 
MOVEI 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 
MOVE] 
SKIPE 
ORM 
MOVEI 
MOVEM 
MOVEI 
MOVE 
MOVEM 
GO 
GO 
WRT 
GO 

ERROR 
TIME  OUT  WHILE 
INDUSTRY  COMPAT 

ERLOOP 
GO 

SKIPE 
ERROR 
STATUS  ERROR  ON 
INDUSTRY  COMPAT 

ERLOOP 
GO 


LRGXFR 

T91600*INDCMP 

TRACK7 

OT7800*INDCMP 

DMODE 

TRACK7 

SETD16 

REWIND 

0,DEVEND^CHLEND,0,0 

DXEREX 

DEVEND^CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

38<TIER> 

TRACK? 

SNSEX1 

2 

BLOKCT 

REPT,'*D10 

BLOKCT 

REPT1 

SETUP 

RWDCHK 


W5MIN 

RFBLK, 0,0,0,\ 
WAITING  FOR  WRITE 
IBLE  M0DE,ERPNT 

RFBLK 

STACHK 

ERRFND 

RFBLK, 0,0,0.* 

WRITE  OPERATION, 
IBLE  MODE,ERPNT 

RFBLK 

CLRDON 


Clear  large  xfer  request  flag 

Set  for  9  trk  1600  bpi 

Skip  if  9-track 

Set  for  7  track  nrzi 

Store  modes 

Skip  if  7  track 

Go  setup  d1600  and  nt1600  sense 

Rewind  the  tape 


bits 


SET  DXERR  EXPECTED  STATUS  =  0> 

;SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
"3"  If  drive  is 
7   Track 
Set  init  block  cnt  to  2 


Set  data  pattern  index 
Put  block  cnt  in  repti 


for  error  pnt 


Put  dx20  in  idle  state 
Go  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


COMPLETION,*. 


If  error,  loop  tc  RF9LK 

Go  check  status 

Skip  if  any  errors  found 


;If 
;Gc 


error, 
clear 


loop  to  RFBLK 
cmd  done 


DFDXD 
DFDXDW 

5792 
5793 
5794 
5795 
5796 
5797 

5798 
5799 
5800 
5801 
5802 
5803 
580A 
5805 
5806 
5807 

5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
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036436 
036437 
036440 
036441 
036442 
036443 

036444 
036445 
036446 

036447 
036450 
036451 
036452 
036453 


036454 
036455 
036456 
036457 


036460 
03646' 
036462 
036463 
036464 
036465 


200  00 
202  00 
004  00 

201  00 

202  00 
260  17 


0  00  065221 
0  00  065303 
0  00  000033 
0  00  000001 
0  00  065303 
0  00  037616 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  82-1 
; Setup  to  backspace  over  written  blocks 


SEQ  0296 


036  00  0  00  055734 

035  00  0  00  036421 
260  17  0  00  037323 

036  00  0  00  055737 
035  00  0  00  036421 
260  17  0  00  037771 
004  00  0  00  400071 
260  17  0  00  037616 


036  00  0  00  055742 
035  00  0  00  036421 
260  17  0  00  037113 
332  00  0  00  000007 


036  00  0  00  055745 
035  00  0  00  036421 
350  01  0  00  065221 
307  01  0  00  000005 
254  00  0  00  036421 
00?  00  0  00  036372 


MOVE    BLOKCT 

MOVEM   OPREPT 

BS6  .'Backspace  block 

MOVEI   1  .-Restore  repeat  cnt 

MOVEM   OPREPT 

GO     U5MIN 

ERROR  RFBLK  0  0  0^ 
TIME  OUT  yHILE  WAITING  F06  BArKSPACE  BLOCK  COMPLETION. .ERPNT 

ERLOOP  RFBLK  ;If  error,  loop  to  RFBLK 

GO     DXSTCK  ; Check  dx^O  status 

ERROR  RFBLK  0  0  0^ 
COMPOSITE  ERROR  ON  BACKSPACE  BLOCK  OPERATION.. ERPNT 


.'Wait  for  command  completion 


ERLOOP  RFBLK 

GO     CLRATA 

RDFUF 

GO     U5MIN 

ERROR   RFBLK  0  0  0^ 
TIME  OUT  WHILE  WAITING  FOR  READ  FORWARD  COMPLETION. * 
INDUSTRY  COMPATIBLE  MODE. ERPNT 

ERLOOP  RFBLK 

GO      STACHK 

SKIPE   ERRFND 

ERROR   RFBLK. O.O.O.* 
STATUS  ERROR  ON  READ  OPERATION.* 
INDUSTRY  COMPATIBLE  MODE. ERPNT  * 

ERLOOP  RFBLK 

AOS     ACl. BLOKCT 

CAIG    AC1.5 

JRST    RFBLK 

REPEAT   TST 


;If  error,  loop  to  RFBLK 

;Go  clear  atten 

.'Read  forward 

.'Wait  for  command  completion 


;If  error,  loop  to  RFBLK 

.'Check  status 

;Skip  if  no  errors  found 


;If  error,  loop  to  RFBLK 

.'Increment  block  cnt 

.'Repeat  if  blk  cnt  <=  5 
.'Continue 


DFDXD 
DFDXDW 

5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
S831 
5832 
5833 
583A 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5845 
5846 
5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 

5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 
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SEQ  0297 


036466  265  01  0  00  043410 

036467  201  10  0  00  100055 
036470  260  17  0  00  036657 


03647; 
036472 

036473 
036474 
036475 
036476 
036477 

036500 
03650^ 
036502 
036503 
036504 
036505 
036506 
036507 
036510 
036511 
036512 
036513 
036514 
036515 
036516 
036517 


036520 
036521 
036522 
036523 


036524 
036525 

036526 
036527 

036530 
036531 
036532 


332  00  0  00  042723 
254  00  0  00  036547 


402  00 

201  00 

202  00 
200  00 
202  00 

200  00 
202  00 

201  00 
332  00 
436  00 
201  00 
2ui  00 

201  15 

200  00 

202  00 
260  17 
260  17 

201  00 
«.12  00 
004  00 
260  17 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

oc 

00 
00 
00 
00 
00 
00 
00 
00 


0  00 


065243 
006000 
065242 
126037 
126031 
126040 
126032 
030000 
065340 
126031 
000002 
065221 
000012 
065221 

000016 
036657 

037713 
000040 
126031 
000061 
037616 


036  00  0  00  055761 
035  00  0  00  036467 
260  17  0  00  037113 
332  00  0  00  000007 


036  00 
035  00 
260  17 
201  00 
436  00 
004  00 
260  17 


0  00  055764 
0  00  036467 
0  00  037766 
0  00  000040 
0  00  126031 
0  00  4000^7 

0  00  037616 


TEST    45, READ  REVERSE  MULTIPLE  BLOCK  TRANSFERS, 0.0,1 
•♦  ♦♦»•♦♦#••»♦»♦•♦♦»♦♦*♦♦♦♦♦♦»♦♦*••••*•••♦♦♦♦•••♦•*•♦♦»♦♦*♦»♦♦•♦*♦♦♦♦♦♦♦♦ 

;•  DFDXD  •  TEST  45  ♦    READ  REVERSE  MULTIPLE  BLOCK  TRANSFERS 
XALL 

JSP     1,SETREP  ;SET  UP  REPEAT  LOOr 

TST45:  MOVEI   F,(ByTE  (1)  0,0,1,0:0  (14)  '^D<45>) 

GO     SETUP  .SETUP  SUBSYSTEM> 

;♦  Do  write  and  read  reverse  xfers  of  2,3-4^5  blocks  (records). 
;*  If  9  trk.  set  pe  node,  if  7  trk.  set  800  bpi  nrzi  mode. 
:*  Industry  compatible  mode 


RB6LK 


SKIPE 

JRST 

SETSTA 

SETZM 

MOVEI 

MOVEM 

MOVE 

MOVEM 

MOVE 

MCVEM 

MOVEI 

SKIPE 

ORM 

MOVEI 

MOVEM 

MOVEI 

MCVE 

MOVEM 


n 


MOVEI 

ANDCAM 

URT 

GO 

ERROR 


V701FG 

TST46-1 

0,DEVEND*CHLEND,0 

DXEREX 

DE VEND ♦CHL END 

DRVEXP 

SNSC1 

SNSEXl 

SNSC2 

SNSEX2 

36<TIER> 

TRACK7 

SNSEXl 

2 
BLOKCT 

REPT,*D10 

BLOKCT 

REPT1 

SETUP 

RyDCHK 

BKWD 

SNSEXl 


.0 


y5MIN 

..       TST, 0,0,0.* 

TIME  OUT  yHlLE  yAITING  FOR  ORITE 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO      STACHK 

SKIPE   ERRFND 

ERROR   TST,0,0.0/ 
STATUS  ERROR  ON  yRITE  OPERATION, 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO      CLRDON 

MOVEI   BKyD 


7.01  Monitor  cannot  do  read  reverses 
Do  next  test 

SET  DXERR  EXPECTED  STATUS  =  0> 

•SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  yORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  yORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
"Z"   If  drive  is 
7  Track 
Set  init  block  cnt  to  2 

Set  data  pattern  index 

Put  block  cnt  in  repti  for  error  pnt 

Put  dx20  in   idle  state 

Go  rewind  if  needed 

Set  mask  of  backward  bit 

Clear  that  bit  in  expected  sense  word  1 

yrite  data  pattern 

yait  for  command  completion 


COMPLETION,*. 


I  ORM 
RDRVF 


SNSEX1 
y5MlN 


If  error,  loop  to  TST 

Go  check  status 

Skip  if  any  errors  found 


;  If  error,  loop  to  TST 

;Go  c I ear  cmd  djne 

;Set  mask  of  backward  b^t 

;Set  that  bit  in  expected  sense  word  1 

.-Read  reverse 

;yait   for  command  complete" on 


DFDXD 
DFDXDM 

5877 
5878 
5879 
5880 

5882 
5883 
588A 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
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036533 
Q3653A 
036535 
036536 


036537 
036540 
0365A1 
0365A2 
036543 
036544 
036545 


VERSION  0.5 
TES'S 
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SEO  0298 


036  00  0  00  ^^55767 
332  00  0  00  000007 


036  00 
035  00 
350  01 
307  01 
254  00 

201  00 

202  00 


0 
0 
0 


00 
00 
00 


0  00 


0 
0 
0 


00 
00 
00 


055772 
036467 
065221 
000005 
036510 
000001 
065221 


ERROR   TST  0  0  0  * 
TIME  OUT  WHILE  UAITlNfi  foft  READ  REVERSE  COMPLETION,*. 
INDUSTRY  COMPATIBLE  HODE,ERPNT 

ERLOQP  TST 

GO      STACHK 

SKIPE   ERRFND 

ERROR   TST,0,0,0,* 
STATUS  ERROR  ON  READ  OPERATION,-* 
INDUSTRY  COMPATIBLE  HODE.ERPNT 


;If  error,  loop  to  TST 

;Check  status 

;Skip  if  no  errors  found 


ERLOOP 

AOS 

CAIG 

JRST 

HOVE  I 

HOVEH 


TST 

AC1,8L0KCT 

AC1,5 

RB6LK 

1 

BLOKCT 


;If  error,  loop  to  TST 
.•Increment  block  cnt 
;Repeat  if  blk  cnt  <=  5 
; Continue 
;Restore  block  cnt  to  1 


036546  002  00  0  00  036467 


REPEAT  TST 


DFDXD 

DX20-V1I 

DO  MAGNETIC  TAPE  SUE 

DFDXDM 

MAC 

6-Apr-85  18:38 

589A 

5895 

5896 

5897 

5898 

5899 

5900 

C36547 

265  01  0  00  043410 

5901 

036550 

201  10  0  00  100056 

5902 

036551 

260  17  0  00  036657 

5903 

590A 

5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

036552 

201  00  0  00  026000 

5913 

036553 

332  00  0  00  065340 

59U 

036554 

201  00  0  00  021400 

5915 

036555 

202  00  0  00  065237 

5916 

036556 

336  00  0  00  065340 

5917 

036557 

260  17  0  00  037777 

5918 

036560 

260  17  0  00  037716 

5919 

5920 

036561 

402  00  0  00  065243 

5921 

036562 

201  00  0  00  006000 

5922 

036563 

202  00  0  00  065242 

5923 

036564 

200  00  0  00  126037 

5924 

036565 

2ui  00  0  00  126031 

5925 

036566 

200  00  0  00  126040 

5926 

036567 

202  00  0  00  126032 

5927 

036570 

201  00  0  00  030000 

5928 

036571 

332  00  0  00  065340 

5929 

036572 

436  00  0  00  126031 

5930 

036573 

201  15  0  00  000006 

5931 

036574 

201  16  0  00  000012 

5932 

036575 

260  17  0  00  036657 

5933 

036576 

260  17  0  00  037713 

593A 

036577 

004  00  0  00  000061 

5935 

036600 

260  17  0  00  037616 

5936 

5937 

5938 

036601 

036  00  0  00  056001 

5939 

036602 

035  00  0  00  036550 
260  ^7   0  00  037113 

5940 

036603 

5941 

036604 

332  00  0  00  000007 

5942 

5943 

5944 

036605 

036  00  0  00  056004 

5945 

036606 

035  00  0  00  036550 
260  17  0  00  037766 

5946 

036607 

5947 

036610 

004  00  0  00  0C0033 

5948 

036611 

260  17  0  00  03761O 

;m  diagnostic  (rh20)    version  0.5 

DATA  transfer  COMMANDS  TESTS 
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SEQ  0299 


TEST    46, TIE  REQUEST, 0,0J 
;♦  DFDXD  *  TEST  46  ♦    TIE  REQUEST 
XALL 

JSP     USETREP  ;SET  UP  REPEAT  LOOP 

TST46:  MOVEI   F^CBYTE  (1)  0,0,1,010  (14)  *D<46» 

60     SETUP  ; SETUP  SUBSYSTEM> 

;*  Write  a  record. 

;*  Do  a  read  forward  of  that  record  with  tie  request  set. 

;*  Check  that  the  tie  request  bit  aets  cleared  after  the  read. 

;♦  If  9  trk,  set  pe  mode,  if  7  trk,  set  800  bpi  nrzi  mode. 

;♦  Industry  compatible  mode 


T91 600^1  NDCMF- 

TRACK7 

OT7800+INDCMP 

DMODE 

TRACK7 

SETD16 

REWIND 
SETSTA  0,DEVEND*CHLEND,0,0 
SETZM   D>'3REX 

DEVEND+CHLEND 

DRVEXP 

SNSC1 

SNSEX1 

SNSC2 

SNSEX2 

38<TIER> 

TRACK7 

SNSEX1 

REPT,6 

REPT1,''D10 
60     SETUP 
^     RWDCHK 


MOVEI 

SKIPE 

MOVEI 

MOVEM 

SKIPN 

60 

60 


MOVEI 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVEI 

SKIPE 

ORM 

^OVEI 

^OVEI 


WRT 

60 

ERROR 


W5MIN 

TST, 0,0,0,* 
TIME  OUT  WHILE  WAITIN6  FOR  BRITE  COMPLETION," 
INDUSTRY  COMPATIBLE  MODE,E?PNT 

ERLOOP  TST 

60      STACHK 

SKIPE   ERRFND 

ERROR   TST.0.0.0,* 
STATUS  ERROR  ON  WRITE  OPERATION,* 
INDUSTRY  COMPATIBLE  MODE,ERPNT   " 

ERLOOP  TST 

60      CLRDDN 

BS8 

60      W5M1N 


Set  for  9  trk  1600  bpi 

Sk-'p  if  9-track 

Set  for  7  track  nrzi 

Store  modes 

Skip  if  7  track 

6o  setup  d1600  and  nt1600  sense  bits 

Rewind  the  tape 

SET  DXERR  EXPECTED  STATUS  =  0> 

.-SETUP  EXPECTED  TAPE  DRIVE  STATUS 
AND  STORE  IT 

INSERT  ONLY  CONSTANT  SENSE  WORD  1  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
INSERT  ONLY  CONSTANT  SENSE  WORD  2  BITS  > 
PUT  IN  EXPECTED  TABLE  > 
Set  track  in  error  sense  byte  to 
•3"  If  drive  is 
7  Track 

Set  word  cnt  index 
Set  data  pattern  index 
Put  dx20  in  idle  state 
6o  rewind  if  needed 
Write  data  pattern 
Wait  for  command  completion 


If  error,  loop  tc  TST 

Go  check  status 

Skip  Tt  any  errors  f:jnd 


;It  error,  loop  to  TST 

; jO  c  I  ear  cmd  done 

;QacksDdce  block 

:Wv>it    tor   command  comciet^'on 


"  — 

DFDXD 

DX20-V' 

DFDXDM 

MAC 

59A9 

5950 

036612 

5951 

036613 

5952 

0366U 

5953 

595A 

036615 

5955 

036616 

5956 

036617 

5957 

036620 

5958 

036621 

5959 

036622 

5960 

5961 

5962 

036623 

5963 

036624 

596A 

036625 

5965 

036626 

5966 

036627 

5967 

5968 

5969 

036630 

5970 

036631 

5971 

036632 

►  MAGNETIC  TAP? 
6-Apr-85  18:31 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
DATA  TRANSFER  COMMANDS  TESTS 
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SEQ  0300 


036  00  0  00  056007 

035  00  0  00  036550 
260  17  0  00  037323 

036  00  0  00  056012 
035  00  0  00  036550 
260  17  0  00  037771 
A76  00  0  00  065337 
OOA  00  0  00  A00071 
260  17  0  00  037616 


036  00  0  00  056015 

035  00  0  00  036550 

260  17  0  00  037113 

402  00  0  00  065337 

332  00  0  00  000007 


036  00  0  00  056020 
035  00  0  00  036550 
002  00  0  00  036550 


ERROR   TST  0  0  0  * 
TIME  OUT  WHILE  WAITING  foft  BACKSPACE  BLOCK  COMPLETION, ,ERPNT 


TST 

CLRATA 

TIEREQ 


ERLOOP 

GO 

ERROR 
COMPOSITE  ERROR 

ERLOOP 

GO 

SETOM 

RDFWF 

GO     W5MIN 

ERROR   TST, 0,0,0,'' 
TIME  OUT  WHILE  WAITING  FOR  READ 
INDUSTRY  COMPATIBLE  MODE,ERPNT 

ERLOOP  TST 

GO      STACHK 

SETZM   TIEREQ 

SKIPE   ERRFND 


TST 

DXSTCK 

TST,0,0,0,\ 

ON  BACKSPACE  BLOCK  OPERATION,, ERPNT 


If  error,  loop  to 
.•Check  dx^O  status 


TST 


;If  error,  loop  to  TST 

;Go  clear  atten 

.-Request  tie  recovery 

;Read  forward 

;Wait  for  command  completion 


FORWARD  COMPLETION, \ 


TST,0,0,0,\ 
READ  OPERATION, 


ERROR 
STATUS  ERROR  ON 
INDUSTRY  COMPATIBLE  .10DE, ERPNT 

ERLOOP  TST 

REPEAT  TST 


;If  error,  loop  to  TST 
;Check  status 

;Clear  tie  recovery  request 
;Skip  if  no  errors  found 


If  error,  Irop  to  TST 


DFDXD 
DFDXDW 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 


DX20-V1 
MAC 

036633 
036634 


00  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
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036635 
036636 
036637 
036640 
036641 
036642 
036643 
036644 


036645 
036646 
036647 
036650 
036651 
036652 
036653 
036654 
036655 
036656 


260  17  0  00  051362 
254  00  0  00  030737 


200  00 
202  00 
202  00 
205  00 
202  00 
202  00 
260  17 
037  15 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


056023 
052500 
065331 
414470 
052501 
065330 
051450 
000004 


261  17 
032  03 
201  01 

200  00 
602  00 

201  01 

202  01 
260  17 
26?  17 
2o<  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
000002 
000001 
030046 
036653 
000002 
065223 
051350 
000001 
000000 


GO 

JRST 


RE 
STARTS 
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;Now  go  back  and  test  the  dx 


SEQ  0301 


SUBTTL  SUBROUTINES 

;*  Load  the  operational  micro-code. 


MCLOAD:  MOVE 
MOVEM 
MOVEM 
MOVSI 
MOVEM 
MOVEM 
GO 
FATAL 


[MCNAME] 

FILNAM 

SUBFIL 

•ADX' 

FILEXT 

SUBEXT 

LDUP 


;Get  name  of  micro-code  file 
;Set  up  for  load  routine 

;Get  extention 
;  Always  .adx 

;Load  the  micro-processor 


;♦  Start  the  operational  microcode 


MS TART:  PUT 

LDREG 

MOVE  I 

MOVE 

TRNE 

MOVE  I 

MOVEM 

GO 

GET 

RTN 


1 

DXMTR,DXRES 

AC1J 

O.CONSU 

.^2 

AC1,2 

AC1,CADDR 

ST 

1 


.-Reset  the  dx20 

;Get  start  addrs  for  running  idle  loop  diags 

.'Read  switches 

.'Skip  if  want  to  run  diags 

.'Else,  set  start  addr  for  no  diags 

.'Put  in  caddr  for  console  package 

.'Start  up  the  micro-code 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDW  MAC     6-Apr-85  18:38        SUBROUTINES 


VERSION  0.5 
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SEQ  0302 


6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

601 7 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 
6057 


036657 
036660 
036661 
036662 
036663 
036664 
036665 
036666 
036667 
036670 

036671 

036672 

036673 

036674 

036675 

036676 

036677 

036700 

036701 

036702 

036703 

036704 

036705 

036706 

036707 

036710 

03671 1 

036712 

03671 3 

036714 

036715 

036716 

03671 7 

036720 

036721 

036722 

036723 

036724 

036725 


201  01 
260  17 
260  17 
026  01 

606  01 
254  00 

032  02 
260  17 

033  04 
254  00 

037  02 
260  17 

260  17 
037  07 
334  00 
254  00 
200  00 

607  00 
263  17 

261  17 
037  02 
200  00 
037  15 
037  02 
200  00 
0:>'  15 
037  02 
200  00 
405  00 
037  15 
037  02 
200  00 
037  06 
037  00 

262  17 
607  00 

263  17 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

G 
0 
0 
0 
0 

1 

0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

§§ 

00 
00 
00 
00 
00 


001710 
045361 
04001 3 
000000 
010000 
036671 
000000 
037771 
000000 

C36673 

056024 
036726 
043201 
000003 
OQOOOO 
030063 
030046 
300000 
000000 
000000 
056031 
030047 

000000 
056035 
030053 
000000 
056040 
000010 
037777 
000000 
056045 
030051 
000000 
030242 
000000 
200000 
000000 
056047 

030643 


036726 
036727 
036 730 
036731 

036732 
036733 


260  17  0  00  036645 
026  01  0  00  000000 
6C2  01  0  00  010000 
263  17  0  00  000000 

037  02  0  00  056053 
260  17  0  00  036635 


;  t*t*»**»»*»»tt*»»*t*ttt*****»t»»***»***** ♦♦♦»♦♦♦•♦♦♦*♦# »♦♦*♦*♦♦♦♦♦♦♦♦♦ 

;♦  "Setup"  initializes  the  rh20  and  dx20  before  each  test. 

•  t ♦»♦♦%»»♦♦*♦♦»*»»»#*♦♦♦♦♦%♦»♦♦*♦* ♦♦♦♦♦♦•♦•♦♦♦♦***t**»w* ♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 


SETUP: 


MPRST: 
MPOK : 


MOVE  I 

60 

GO 

RDREG 

TRNN 

JRST 

LDREG 

GO 

LDREG 

JRST 

PMSG 

GO 

GO 

TTALTM 

SKI  PA 

JRST 

MOVE 

TLNN 

RTN 

PUT 

PMSG 

MOVE 

PNTDEC 

PMSG 

MOVE 

PNTDEC 

PMSG 

MOVE 

AND  I 

PNTDEC 

PMSG 

MOVE 

PNT6 

PCRL 

GET 

TLNN 

RTN 

PMSGF 

JRST 


ACl ,XECLR*MBE*RCLPA*DSCR>DONCLR 


.CONO 

GOCHK 

DXSTR 

AChMPRUN 

MPRST 

DXERR,0 

CLRATA 

tXGP4,0 

MPOK 

<*RESTARTING  MICROPROCE 

RESTRT 

TCTRLC 


iALTMGO 
O.CONSW 
RSTART^TOTALS 


<*TEST  PASS  COUNT  =  > 
PASCNT 

<.JTOTAL  ERRORS  =  > 
ERRTLS 

<.*.URRENT  T^ST  NUMBER 

F 

TESTN 

<.]PC  =  > 
TESTPC 


0 
RSTART 

<RESTARTING 
START 


Clear  the  rh20 

Go  check  if  go  is  set 

Read  dx20  status  reg 

Skip  if  mp  sf'll  running 

Else,  reset  it 

Clear  any  error  conditions 

Clear  any  outstanding  attention 

Clear  asynch  status 


SSOR^> 
Go  restart  mp 

Check  for  alt  mode  type  in 

No  altmode 

Altmode  received 

Read  switches 

Skip  if  either  switch  set 

Else,  continue 

Save  switches 

Get  pass  cnt 
Print  it 

Get  error  totals 

Print  it 

> 

Get  fest  number 

Isolate  it 

And  print  it 

Get  test  pc 
Print  it 
Give  cr- If 
Restore  switches 
Skip  if  restarting 
Else,  continue 


•  Attempt  to  get  the  mp  running  again,  if  can't,  abort  diag. 


Go  reset  and  restart  dx20 
Read  dx20  status  reg 
Sk^'p  if  mp  not  running 


ftESTRT:  GO  MSTART 

RDREG  DXSTR 

TRNE  AC1,MPRUN 
RTN 

PMSG  <*CANNOT  RESTART  MICROPROCESSOR^RELOADING  MICRO-CODE* 
AND  RESTARTING*> 

GO  MCLOAD  ;Relodd  and  restart 


r- 


DFDXD       DX20-V100  MAGNETIC   TAPE   SUBSVSTEN  DIAGNOSTIC    (RH20) 
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6058 
6059 
6060 
6061 
6062 
6063 


VERSION  0.5 


03673A 
036735 
036736 
036737 
036740 
0367A1 


•Ap 

026  01  0  00  000000 
602  01  0  00  010000 
263  17  0  00  000000 
037  02  Q  00  056067 
200  17  0  00  030303 
254  00  0  00  030061 


RDREG 

TRNE 

RTN 

PWS6 

WOVE 

JRS: 


DXSTR 
AC1,WPRUN 
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;Read  6x20   status  reg 
;Skip  if  mp  not  running 


SEQ  0303 


<RELOAD  AND  RESTART  FAlLED^AeORTING*> 
P,PLIST  .-Reset  strack  pointer 

S6END2 


DFDXO   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
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SEQ   0304 


6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 


036742 
036743 
036744 
036745 
036746 
036747 
036750 
036751 
036752 
036753 
036754 
036755 
036756 
036757 
036760 
036761 
036762 
036763 
036764 
036765 
036766 
036767 

oy  m 

036771 
036772 


17 
02 


2o  00 
037  07 
33'.  00 
254  00 
550  04 
260 
032  _ 
260  17 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
40r 
62; 


00 
04 


476  00 
301  04 
254  OC 
306  04 
476  00 
200  01 
434  01 
033  01 


0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

8§ 

00 
00 
00 
01 


042453 
000003 
000000 
030063 
030113 
04001 3 
000000 
037771 
065251 
000007 
065250 
065327 
065347 
065310 
065311 
065316 
400000 
065250 
000061 
037006 
000045 
065327 
065237 
126077 
000000 


Tape  operations  uuo  handler 

All  tape  commands  are  loaded  by  this  routine  which  is  called  by  uuo. 
The  uuo  command  code  identifies  the  tape  operation  to  be  executed,  this 
Code  corresponds  to  the  value  of  'function^go*  for  the  tape  command,  a 
Special  bit,  'frcsns*,  in  the  uuo  command  code  is  set  if  a  forced  sense 
Operation  is  to  be  requested. 

For  data  xfer  commands  the  following  parameters  must  be  setup  prior  to 
Calling  this  routine. 

Blokct  =  block  (record)  count  for  the  xfer 

Rept  =  data  pattern  code 

Repti  =  word  count  index  ^  ^^ 

Dmode  =  data  mode  (bits  20-23)  and  drive  mode  (bits  24-27) 

Shtrec  =  this  flag  is  set  if  forcing  short  record  error 

Lngrec  =  this  flag  is  set  if  forcing  long  record  error 

Tiereq  =  this  flag  is  set  if  want  tie  request  done 

Pwdxfr  =  this  flag  is  set  if  repti  contains  byte  count  index 

The  following  flags  are  setup  for  use  by  later  routines 


Forsns  =  set  if  forced  sense 

Snscmd  =  set  if  tape  command 

Xfrcmd  =  set  if  tape  command 

Rdcomd  =  set  if  tape  command 

Rdfwd  '   set  if  tape  command 

Rexcmd  =  set  if  tape  command 


operation  was  requested 

is  a  sense 

is  a  data  xfer  command 

is  a  read  command 

is  a  read  forward 

is  read  extended  status 


♦♦»*♦♦♦♦♦*»»♦♦»»»»»♦♦*♦♦»♦•♦»♦%♦***»♦♦♦»♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦♦♦ 


TAPUUO:  JSR 

TTALTM 

SKIPA 

JRST 

HRRZ 

GO 

LDREG 

GO 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

TRZE 

SETOM 

CAR 

JRST 

CAIN 

SETOM 

MOVE 

lOR 

LDREG 


SAVAC 


aALTMGO 

AC4,$SVUU0 

GOCHK 

DXERR,0 

CLRATA 

GETSNS 

ERRFND 

FORSNS/r 

SNSCMDf 

XFRCMDf 

RDCOMDf 

RDFUD/r 

REXCMD# 

AC4,FRCSNS 

FORSNS 

AC4-URT 

DXFR 

AC4, SENSE 

SNSCMD 

AC1,DM0DE# 

AC1.DRVADR 

DXGP1,(AC1) 


Go  save  acs 

Altmode  typed? 

No 

Yes,  abort  test 

Get  uuo  command  code 

Go  check  if  go  is  set 

Clear  error  reg 

Go  clear  attention 

Clear  "got  sense  bytes"  flag 

Clear  error  found  flag 

Clear  forced  sense  flag 

Clear  sense  cmd  flag 

Clear  data  xfer  flag 

Clear  read  command 

Clear  read  forward  cmd  flaa 

Clear  read  ext  status  cmd  rlag 

Clear  bit  and  skip  if  no  forced  sense 

Set  forced  sense  flag 

Skip  if  an  immediate  operation 

Else,  setup  data  xfer 

Skip  if  not  a  iense  command 

Set  sense  cmd  flag 

Get  data  and  drive  modes 

Add  in  the  tape  drive  number 

Load  them 


DFDXD 
DFDXDM 

6119 

6120 

6121 

6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

61 3A 

6135 

6136 

6137 

6138 

6139 

6U0 

6U1 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

61 54 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 
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VERSION  0.5 


036773 
036774 
036775 
036776 
036777 
037000 
037001 
037002 
037003 
037004 
037005 


037006 

037007 

037010 

03701 1 

037012 

037013 

037014 

03701 5 

037016 

037017 

037020 

037021 

037022 

037023 

037024 

037025 

037026 

037027 

037030 

037031 

037032 

037033 

037034 

037035 

037036 

037037 

037040 

037041 

037042 

037043 

037044 

037045 

037046 

037047 

037050 

037051 

037052 

037053 

037054 


400  01 
332  00 
201  01 
332  00 
435  01 
033  03 
210  01 
033  05 
032  00 
264  00 
263  17 


00 
00 
00 
00 
00 
01 
00 
01 
04 
00 
00 


000000 
065250 
001000 
065332 
002000 
000000 
065303 
000000 
000000 
042464 
000000 


202  04  0 
301  04  0 
476  00  0 
306  04  0 
476  00  0 
306  04  0 
476  00  0 
200  01  0 
200  02  0 
332  00  0 
200  02  0 
332  OC  0 


201  02 
33?  00 
2u'  02 

200  00 
302  00 

201  02 


0 
0 
0 
0 
0 
0 


200  01  0 
332  00  0 
400  01  0 
260  17  0 
200  01  0 
260  17  0 
400  03  0 
200  02  0 
302  04  0 
254  00  0 


201  01 
213  00 
254  00 

201  01 
260  17 

202  01 
201  01 
260  17 
400  01 
332  00 
201  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SETZ 

SKIPE 

MOVE  I 

SKIPE 

lORI 

LDREG 

MOVN 

LDREG 

LDREG 

JSR 

RTN 


ACl, 

FORSNS 

ACKFSENSE 

SUPRES 

ACI.SUPSNS 

DXGP3,(AC1) 

ACUOPREPT 

DXGP5,(AC1) 

DXCTR,(AC4) 

RESAC 
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;Zero  reg 

;Skip  if  no  forced  sense 

;Etse,  set  force  sense  bit 

;Skip  if  no  suppress  auto  sense 

;Else,  set  suppress  auto  sense  bit 

;Load  flags  reg 

;Load  operation  repeat  cnt 

;Load  function+go 
.-Restore  acs 


SEQ  0305 


*»*****»*♦**♦♦*♦*♦•♦♦*♦♦♦»♦**♦#**♦»*******♦******•**♦♦**•*♦*****♦***♦* 


;*  Setup  to  do  a  data  xfer  operation 


•  *♦♦»♦•*•»*♦♦•********♦♦♦****♦**••♦*♦»♦*****•********•♦♦************♦** 


00  065347 

DXFR:   MOVEM 

00  000071 

CAIL 

00  065310 

SETOM 

00  000071 

CAIN 

00  065311 

SETOM 

00  000075 

CAIN 

00  065316 

SETOM 

00  000016 

MOVE 

01  042367 

MOVE 

00  065307 

SKIPE 

01  042377 

MOVE 

00  065267 

SKIPE 

00  Mllll 

MOVE  I 

00  065316 

SKIPE 

00  000024 

MOVE  I 

00  065221 

MOVE 

00  000001 

CAIE 

00  000170 

MOVE  I 

00  000015 

MOVE 

00  065310 

SKIPE 

00  000000 

SETZ 

00  037413 

GO 

00  052552 

MOVE 

00  045416 

GO 

00  000000 

SETZ 

00  065346 

MOVE 

00  000077 

CAIE 

00  037045 

JRST 

02  065777 

MOVE  I 

00  000002 

MOVNS 

00  037046 

JRST 

00  066000 

MDACT1:  MOVEI 

00  045453 

GO 

00  065225 

MOVEM 

00  001700 

MOVEI 

00  045361 

GO 

00  000000 

SETZ 

00  065250 

SKIPE 

00  001000 

MOVEI 

AC4,XFRCMD 

AC4,RDFW 

RDCOMD 

AC4.RDFU 

RDFUD 

AC4,RDEXS 

REXCMD 

ACKREPTI 

AC2,SIZE(AC1) 

PWDXFR 

AC2,PSIZE(AC1) 

LRGXFR 

kZlMllll 

REXCMD 

AC2,24 

BLOKCT 

1 

AC2,*D120 

ACUREPT 

RDCOMD 

ACn 

FIL8UF 

AC1,C*D35,,CBUF] 

CHINIT 

AC3, 

AC2. WORDS 

AC4,RDRV 

MDACTl 

AC1,BUF1-1(AC2) 

AC2 

.+2 

ACI.BUFI 

GENCCW 

AC1,CCWARG# 

AC1,XECLR^•MBE'^RCLPA-^DSCR 

.CONO 

AC1, 

FORSNS 

AC1,FSENSE 


Set  data  xfer  flag  with  cmd  code 

Skip  if  a  write 

No, set  read  command 

Skip  if  not  a  read  forward  command 

Else,  set  flag 

Skip  if  not  read  ext  status  cmd 

Else,  set  flag 

Get  word  count  index 

Get  word  count  for  xfer 

Skip  if  partial  wrd  xfer,  use  byte  cnt 

Get  b)fte  count 

Skip  if  not  a  large  xfr 

Large  xfer,  set  max  byte  cnt 

Skip  if  not  read  ext  status  cmd 

Set  wrd  cnt  for  ext  status 

Get  block  cnt 

Skip  if  only  1 

Else,  set  word  cnt  to  120 

Get  data  pattern  code 

Skip  if  write  operation 

Make  code  a  0  to  clear  buffer 

Fill  buffer  with  data  pattern 

Get  control  word  buffer  pointer 

Initialize  the  channel 

Clear  ac3 

Get  word  cnt 

Skip  if  read  reverse 

Jump  if  not  read  reverse 

Get  addr  of  end  of  buffer 

Read  reverse,  negate  the  word  count 

Get  buffer  address 
Generate  command  list 
Save  returned  argument 

.•Reset  :md  list  ptr 

;Zero  reg 

;Skip  if  no  forced  sense 

;Else,  set  force  sense  bit 


DFDXD 
DFDXDM 

61 7A 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

61 9A 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

6203 
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SEQ  0306 


037055 

037056 

037057 

037060 

037061 

037062 

037063 

037064 

037065 

037066 

037067 

037070 

037071 

037072 

037073 

037074 

037075 

037076 

037077 

037100 

037101 

037102 

037103 

037104 

037105 

037106 

037107 

037110 

037111 

037112 


332  00 
435  01 
336  00 
254  00 
332  00 
435  01 
033  03 
200  01 
332  00 
350  00 
332  00 
370  00 
200  02 
302  02 
230  01 
213  00 
033  05 
200  01 
434  01 
033  01 
405  01 
202  01 
210  01 
242  01 
405  01 
434  01 
505  01 
260  17 
264  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065332 
002000 
065310 
037063 
065337 
000400 
000000 
065301 
065326 
000001 
065265 
000001 
065221 
000001 
000002 
000001 
000000 
065237 
126077 
000000 
170000 
065237 
065221 
000006 
1 77700 
000004 
000200 
045312 
042464 
000000 


SKIPE 

lORI 

SKIPN 

JRST 

SKIPE 

lORI 

LDRE6 

MOVE 

SKIPE 

AOS 

SKIPE 

SOS 

MOVE 

CAIE 

IDIV 

MOVNS 

LDREG 

MOVE 

I  OR 

LDREG 

AND  I 

MOVEM 

MOVN 

LSH 

AND  I 

I  OR 

HRLI 

GO 

JSR 

RTN 


SUPRESn^ 

AC1,SUPSi^S 

RDCOMD 

TIEREQ* 

ACUSNDTIE 

DXGP3,(AC1) 

ACKNBYTES 

SHTREC 

AC1 

LNGREC 

AC1 

AC2,BL0KCT 

AC2J 

AC1,AC2 

AC1 

DXGP5,(AC1) 

AC1,DM0DE# 

ACUDRVADR 

DXGPI.(ACI) 

AC  1J  ^0000 

AC1,DM0DE 

AC1,8L0KCT# 

ACU6 

ACKBLKCNT 

AC1,AC4 

ACU  (STORE) 

LDSTCR 

RFSAC 


Skip  if  no  suppress  auto  sense 

Else,  set  suppress  auto  sense  bit 

Skip  if  read  cmd 

Don't  se*"  tie  on  writes 

Skip  if  hO  tie  retry 

Else,  send  tie  retry  bit 

Load  flags  reg 

Get  number  of  bytes  in  xfer 

Skip  if  no  short  record  request 

Else,  make  byte  cnt  one  too  long 

Skip  if  no  long  record  request 

Else,  make  byte  cnt  one  too  short 

Get  block  cnt 

Skip  if  only  one  block 

Else,  compute  bytes  per  block 

Negate  byte  cnt 

Load  it 

Get  data  and  drive  modes 

Add  in  the  tape  drive  number 

Load  them 

Clear  drive  mode  for  subsequent 

Write  operations  in  test 

Get  neaative  of  block  count 

Shift  0  places 

Keep  only  the  block  count 

Or  in  function  code 

Set  store  bit  in  left  half 

Load  transfer  control  register 

Retore  acs 
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SEQ  0307 


620A 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

62U 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

622A 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

623A 

6235 

6236 

6237 

6238 

6239 

6240 

62  A 1 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 


037113 
037114 
037115 
037116 
037117 
037120 
037121 
037122 
037123 
037124 
037125 
037126 
037127 
037130 
037131 
037132 
037133 
037134 
037135 
037136 
037137 
037140 
037141 
037142 
037143 
037144 
037145 
037146 


Status  check ina  routine 

This  routine  cnecks  status  after  completion  of  a  tape  operation,  if  an 

Error  is  found,  the  appropriate  error  bit  in  'errfnd'  is  set. 

The  foUoying  items  are  checked: 

Rh20  coni  status 

Rh20  Logout  status  word  1  (xfer  cmds  only) 

Data  buffer  (read  xfers  only) 

Dx20  status  reg  (dxstr) 

Dx20  error  reg  (dxerr) 

Tape  drive  status  (in  dxgpO) 

Dx20  flags  reg  (dxgp3) 

Sense  bytes  (if  they  were  read) 

Reading  of  the  sense  bytes  by  microcode  is  inhibited  by  tape  drive  dxbusy 
Status  or  by  errors  of  class  4,6,7,8.  hence,  sense  bytes  are  not  checked 
Under  these  conditions. 

The  following  parameters  must  be  setup  prior  to  calling  this  routine: 
Drvexp  =  the  expected  tape  drive  status 
Dxerex  =  the  expected  dxerr  status 

The  following  flags  which  were  setup  by  tapuuo  are  interpreted  by  this  routine 
riereq,  forsns,  rexcmd,  snscmd,  xfrcmd,  shtrec,  Ingrec,  rdcomd 


402  00  0  00  000007 

STACHK:  SETZM 

402  00  0  00  065256 

SET2M 

402  00  0  00  126005 

SETZM 

200  00  0  00  056075 

MOVE 

2y   00  0  00  126030 

BLT 

336  00  0  00  065347 

SKIPN 

254  00  0  00  037147 

JRST 

200  01  0  00  126004 

MOVE 

336  00  0  00  065326 

SKIPN 

332  00  0  00  065265 
254  00  0  00  037246 

SKIPE 

JRST 

201  00  0  00  002410 

MOVE  I 

202  00  0  00  065231 

MOVEM 

602  01  0  00  775000 

TRNE 

435  07  0  00  000001 

lORI 

201  01  0  00  126000 

STACON:  MOVE  I 

260  17  0  00  045662 

GO 

200  01  0  00  126001 

MOVE 

404  01  0  00  056076 
661  01  0  00  500000 

AND 

TLO 

202  01  0  00  065266 

MOVEM 

312  01  0  00  126001 

CAME 

435  07  0  00  010000 
336  00  0  00  065310 
254  00  0  00  037147 

lORI 

SKIPN 

JRST 

332  00  0  00  065316 
254  00  0  00  037301 

SKIPE 

JRST 

260  17  0  00  037522 

60 

ERRFND 

INHSNS# 

SNSACl 

CSNSAC1,,SNSAC2] 

LSTCMD 

XFRCMD 

NOXFR 

AC1,C0NIAC 

SHTREC 

LNGREC 

EXPEXC 

MBXHLT+MBE^CMDDN 

C0NIEX# 

AC1,DBPE*DREX^LWCER 

ERRFND, RHERR 

AC1,L0G 

GFTL06 

AcLOG^I 

ACl, [17777777] 

AC  1,500000 

AC1,L061EX 

ACKLOG^I 

ERRFND, LOGERR 

RDCOMD 

NOXFR 

REXCMD 

MOVEXS 

CMP8UF 


.•Clear  error  found  flaas 

; Clear  inhibit  sense  cneck  flag 

;Clear  ext  status  data 

; Clear  entire  table 

;Skip  if  last  cmd  a  data  xfer 

;Else.  jump  around 

;Get  coni  status 

;Skip  if  expecting  short  rec  error  (excep) 

;Skip  if  not  expecting  long  reed  error  (excep) 

;6o  check  for  exception  being  set 

;Set  expected  coni  status 

♦SWCER^MBXER^DRESSER^RAEER^DOVRER 
Set  rh20  error  bit 
Set  up  pointer 
Get  logout  data 
Get  status  word  1 
Clear  all  but  ccw  ptr 
Set  no  errors  expected 
Store  as  expected 
Skip  if  log  status  o'<a: 
Set  logout  data  error 
Skip  if  read  command 
Else,  no  comoa.^e  data 
Skip  if  wasn^t  read  ext  status  cmd 
Else,  go  move  ext  status 
Compare  the  buffer  data 


U 
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6258 

6259 

6260 

6261 

6262 

6263 

626A 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

628A 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 


037147 

037150 

037151 

037152 

037153 

037154 

037155 

037156 

037157 

037160 

037161 

037162 

037163 

037164 

037165 

037166 

037167 

037170 

037171 

037172 

037173 

037174 

037175 

037176 

037177 

037200 

037201 

037202 
037203 
037204 
037205 
037206 
037207 
037210 
037211 
037212 
037213 
037214 
037215 
037216 
037217 


026  01 
606  01 
254  00 
606  01 
254  00 
336  00 
435  07 

026  02 
405  01 
316  01 
254  00 
606  07 
435  07 
135  01 
305  01 
254  00 
303  01 
254  00 
302  01 
476  00 

027  00 
200  02 
405  02 
312  02 
435  07 
602  02 
476  00 

602  02 

476  00 

6ui  01 

476  00 

402  00 

602  01 

476  00 

332  00 

254  00 

336  00 

254  00 

476  00 

602  01 

435  07 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
010000 
037316 
040000 
037320 
065243 
000004 
000000 
M7777 
065243 
037164 
000004 
000010 
056077 
000004 
037173 
000010 
037173 
000005 
065256 
000000 
000001 
1 77400 
065242 
000020 
000400 
065256 


00  010000 
00  065256 
00  001000 
00  065251 
00  065343 
00  001000 
00  065343 
00  065327 
00  037215 
00  065250 
00  037220 
00  065251 
00  000377 
00  000040 


NOXFR:  RDREG 
TRNN 
JRST 
TRNN 
JRST 
SKIPN 

SETCER:  lORI 
RDREG 
AND  I 
CAMN 
JRST 
TRNN 
lORI 
LDB 
CAIGE 
JRST 
CAILE 
JRST 
CAIE 
SETOM 
RDREG 
MOVE 
AND  I 
CAME 
lORI 
TRNE 
SETOM 

TRNE 

SETOM 

TRNE 

SETOM 

SETZM 

TRNE 

SETOM 

SKIPE 

JRST 

SKIPN 

JRST 

SETOM 

TRNE 

lORI 


CHKDRV: 


DXSTR 

ACl-MPRUN 

MPDEAD 

AC1-CERR 

NOCERR 

DXEREX 

ERRFND,CERRER 

DXERR 

AC1J77777 

AC1,DXEREX# 

.♦3 

ERRFND,CERRER 

ERRFND,DXERER 

ACl, [POINT  4, AC1, 27] 

AC1,4 

CHKDRV 

AC1.*D8 

CHKDRV 

AC1,5 

INHSNS 

DXGPO 

AC2,AC1 

AC2, 177400 

AC2,DRVEXP# 

ERRFND,DRVERR 

AC2,UNIEXP 

INHSNS 

AC2,DXBUSY 

INHSNS 

ACUUNICHK 

GETSNSf 

UNITCK# 

ACKUNICHK 

UNITCK 

SNSCMD 

.*3 

FORSNS 

YESSNS 

GETSNS 

AC1,STATRQ*STINDX 

ERRFND,FSIERR 
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Read  dx20  status 

Skip  if  mp  still  running 

Else,  jump 

Skip  \}   comp  err   set 

Else,  jump 

Skip  if  comp  error  expected 

Else,  set  'comp  error  '  error  bit 

Read  error  reg 

Isolate  dxerr  reg 

Skip  if  not  as  expected 

Skip  if  already  hav/e  comp  err   error 

Else,  set  dx  err  error   bit 

Get  error  code 

Skip  if  greater  than  or  =  4 

Else,  allow  sense  check 

Skip  if  less  than  or  =  8 

Else,  allow  sense  check 

Skip  if  ec  =  5 

Inhibit  sense  chk  for  codes  4,6,7,8 

Read  tape  drive  status  into  ad 

Isolate  tape  drive  status 

Skip  if  as  expected 

Else,  set  drive  error  bit 

Skip  if  not  unit  exception  C.053 

Inhibit  sense  check  if  unit 

exception  CO. 5] 

Skip  if  tape  drive  not  busy 

Else,  inhibit  sense  check 

Skip  if  no  unit  check  flag 

Set  flag  to  get  sense  bytes 

Clear  unit  cneck  flag 

Skip  if  ro  unit  check  flag 

Set  unit  check  flag 

Skip  if  not  a  sense  cmd 

Jump  to  check  for  zeroed  bits 

Skip  if  forced  sense  was  performed 

Jump  around 

Set  flag  to  get  sense  bytes 

Skip  if  reguest  bit  &  index  zeroed 

Else,  set  forced  sense  index  error 


SEQ  0308 


DFDXO 
DFDXOM 

6300 
6301 
6302 
6303 
630A 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
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SEQ  0309 


037220 
037221 
037222 
037223 
037224 
037225 
037226 
037227 
037230 
037231 
037232 
037233 
037234 
037235 
037236 
037237 
037240 
037241 
037242 
037243 
037244 
037245 

037246 
037247 
03725C 
037251 
037252 
037253 
037254 
037255 
037256 
037257 
037260 

037261 
037262 
037263 
037264 
037265 
037266 
037267 
037270 
037271 
037272 
037273 
037274 
037275 
037276 
037277 

037300 

037301 
037302 
037303 


027  03 
336  00 
254  00 
602  01 
435  07 
336  00 
254  00 
602  01 
435  07 
336  00 
254  00 
602  01 
435  07 
402  00 
336  00 
263  17 
332  00 
263  17 
336  00 
260  17 
260  17 
263  17 

200  01 
306  01 
254  00 

200  01 

201  00 

202  00 
60?  01 
4:)?  07 
606  01  0 
435  07  0 
254  00  0 

200  01  0 

201  00 

202  00 
602  01 
435  07 
606  01 
435  07 

201  01 
2c0  17 
200  01 
404  01 
661  01 

202  01 
312  01 
435  07 
254  00 


0  00  000000 
0  00  065337 
0  00  037225 
0  00  000400 
0  00  000100 
0  00  065250 
0  00  037231 
0  00  001000 
0  00  000200 
0  00  065332 
0  00  037236 
0  00  002000 
0  00  000400 
0  00  065251 
0  00  065251 
0  00  000000 
0  00  065256 
0  00  000000 
0  00  065316 
0  00  037352 
0  00  037333 
0  00  000000 

0  00  065347 

0  00  000077 

0  00  037261 

0  00  126004 

0  00  202610 

0  00  065231 

0  00  575000 

0  00  000001 

00  200000 

00  000001 

00  037132 

00  126004 
0  00  222610 
0  00  065231 
0  00  555000 
0  00  000001 
0  00  200000 
0  00  000001 
0  00  126000 
0  00  045662 
0  00  126001 
0  00  056076 
0  00  500040 
0  00  065266 
0  00  126001 
0  00  010000 
0  00  037147 


YESSNS 


ARND: 


EXPEXC: 


ISRDRV: 


200  00  0  00  052677 
202  00  0  00  065222 
515  02  0  00  77775^ 


MOVEXS: 


RDRE6 

SKIPN 

JRST 

TRNE 

lORI 

SKIPN 

JRST 

TRNE 

lORI 

SKIPN 

JRST 

TRNE 

lORI 

SETZM 

SKIPN 

RTN 

SKIPE 

RTN 

SKIPN 

GO 

GO 

RTN 

MOVE 

CAIN 

JRST 

MOVE 

MOVE  I 

MOVEM 

TRNE 

lORI 

TRNN 

lORI 

JRST 

MOVE 

MOVE  I 

MOVEM 

TRNE 

lORI 

TRNN 

lORI 

MOVE  I 

GO 

MOVE 

AND 

TLO 

MOVEM 

CAME 

lORI 

JRST 

MOVE 
MOVEM 
HRL  Zl 


DXGP3 

TIEREQ 

.♦3 

AC1-SNDTIE 

ERRFNDJIEERR 

FORSNS 

.♦3 

AC1,FSENSE 

ERRFND,FSBERR 

SUPRES 

ARND 

ACKSUPSNS 

ERRFND.SASBER 

GETSNS 

GETSNS 

INHSNS 

REXCMD 

EXTRD 

SNSCHK 


Read  flaas  reg 

Skip  if  tie  retry  was  requested 

Jump  around 

Skip  if  tie  req  bit  cleared 

Else,  set  tie  error  bit 

Skip  if  forced  sense  requested 

Jump  around 

Skip  if  force  sense  bit  cleared 

Else,  set  forced  sense  bit  error  bit 

Skip  if  suppress  auto  sense  requested 

Jump  around 

Skip  if  sup  auto  sense  bit  cleared 

Else,  set  sup  auto  sense  bit  error  bit 

Clear  get  sense  bytes  flag 

Skip  if  sense  bytes  were  read 

Skip  if  allowing  sense  check 

Skip  if  read  ext  status  cmd 
Else,  go  read  extended  status 
;Go  check  sense  bytes  with  expected 


AC1,XFRCMD  ;Get  xfr  cmd  code 

AC1,RDRV  ;Skip  if  read  forward 

ISRDRV  ;Else,  is  read  reverse 

AC1,C0NIAC  ;Get  coni  status 

DREX+MBXHLT+DRATTN^MBE^CMDDN    ;Set  expected  coni  status 

CONIEX 

AC1,DBPE^LyCER+SWCER*MBXER*DRESSER*RAEER*D0VRER 

ERRFND,RHERR  ;Set  rh20  error  bit 

AC1,DREX  ;Skip  if  excep  didn't  set 

ERRFND,RHERR  ;Set  rh20  error  bit 

STACON  .-Continue  status  chk 


AC1,C0NIAC  ;Get  coni  status 

DREX*MBXER^MBXHLT*DRATTN^MBE*CMDDN 
CONIEX 
AC1,DBPE+LWCER+SWCER*DRESSER*RAEER+D0VRER 


Set  expected  coni  status 


ERRFND,RHERR 

AC1,DREX 

ERRFND,RHERR 

AC1,L0G 

GETLOG 

AC1,L06*1 

AC1, C17777777] 

AC  1,500040 

AC1,L061EX# 

AC1,L0GM 

ERRFND,L0GERR 

NOXFR 

[POINT  8,SNSAC1,] 

BYTPTR 

AC2,-24 


set 


Set  rh20  error  bit 
Skip  if  excep  didn't 
Set  rh20  error  bit 
Set  up  pointer 
Get  logout  data 
Get  status  word  1 
Clear  all  but  ccw  ptr 
Set  sht  wc  error  expected 
Store  as  expected 
Skip  if  log  status  oka: 
Set  logout  data  error 
Continue  check 


U 


Setup  byte  pointer  to  tier   ?4  (octal) 
Status  bytes  from  buffer  to  sense  table 
Setup  loop  count ,, index 


DFDXD 
DFDXDM 

6355 
6356 
6357 

6358 
6359 
6360 
6361 
6362 
6363 
636A 
6365 
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SEQ  0310 


03730A 
037305 
037306 
037307 
037310 
037311 
037312 
037313 
0373U 
037315 


20A 
135 
136 
136 
547 
135 
136 
136 
253 
254 


03 
00 
00 
03 
00 
00 
00 
03 
02 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


02 
00 
00 
00 
00 
00 
00 
00 
00 
00 


066000 
056100 
065222 
065222 
000003 
056100 
065222 
065222 
037304 
037147 


MOVSTA:  MOVS 
LDB 
IDPB 
IDPB 
HLRS 
LDB 
IDPB 
IDPB 
AOBJN 
JRST 


AC3,BUF1(AC2) 

[POINT  8, AC3, 27] 

BYTPTR 

AC3,BYTPTR 

AC3 

[POINT  8, AC3, 27] 

BYTPTR 

AC3,BYTPTR 

AC2,M0VSTA 

NOXFR 


Get  4  status  bytes 

Get  first  byte 

Store  it 

Store  2nd  byte 

Position  next  2  bytes 

Get  third  byte 

Store  it 

Store  4th  byte 

Move  all  24  words  of  bytes 

Continue  check 


DFDXL; 
DFDXDH 

6566 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
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037316  201  07  0  00  000002 

037317  263  17  0  00  000000 


037320 
037321 
037322 

037323 
037324 
037325 

037326 
037327 

037330 

037331 
037332 


332  00  0  00  065243 
254  00  0  00  037155 
254  00  0  00  037156 

402  00  0  00  000007 
026  01  0  00  000000 
602  01  0  00  046660 
254  00  0  00  037331 
350  00  0  17  000000 
263  17  0  00  000000 

435  07  0  00  000004 
263  17  0  00  000000 


MPDEAD:  NOVEI   ERRFND,MPSERR 
RTN 


NOCERR 


DXSTCK 


DXCERR 


SKIPE 

JRST 

JRS: 

SETZW 

RDREG 

TRNE 

JRST 

AOS 

RTN 

lORI 
RTN 


DXEREX 
SETCER 
SETCER^I 

ERRFND 

DXSTR 

AC1-CERR 

DXCERR 

(P) 


ERRFND, CERRER 
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;Set  mp  stopped  bu 


;Skip  if  no  comp  err   expected 
;Go  set  error  bit 
; Don't  set  error  bit 

.-Clear  error  found  flags 
:Read  dx20  status 
;Skip  if  no  composite  error 
;Else,  set  error  flag 
;6ive  no  error  return 


;Set  comp  err   flag 


SEO  0311 
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SEQ  0312 


6382 

6383 

638A 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

639A 

6395 

6396 

6397 

6398 

6399 

6A00 

6A01 

6A02 

6A03 

6A04 

6A05 

6A06 

6A07 

6A08 

6A09 

6A10 

6A11 

6A12 

6A13 

6A1A 

6A15 

6A16 

6A17 

6A18 

6A19 

6A20 

6A21 

6A22 

6A23 

6A2A 

6A25 

6A26 

6A27 

6A28 

6A29 

6430 

6A31 

6A32 

6A33 

6A3A 

6A35 

6A?6 


037333 
03733A 
037335 
037336 
037337 
0373A0 
0373A1 
0373A2 
0373A3 
0373AA 
0373A5 
0373A6 
0373',7 
037350 
037351 


515  01 
A02  00 
200  02 
603  02 
A76  00 
200  02 
A30  02 
A20  02 
336  00 
AOA  02 
202  02 
332  00 
A35  07 
253  01 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
01 
01 
01 
00 
01 
01 
00 
00 
00 
00 


mill 

065261 
1 26005 
200000 
065261 
126C05 
126031 
1260A5 
0653A3 
126061 
126053 
000002 
002000 
0373A0 
000000 


037352 
037353 
03735A 
037355 
037356 
037357 
037360 
037361 
037362 
037363 
03736A 
037365 
037366 
037367 
037370 
037371 
037372 
037373 
03737A 
037375 

037376 
037377 

037AO0 

037A01 
037A02 
037A03 
037AOA 
037AO5 
037406 


200 
202 
261 
261 
261 
261 
2uJ 
202 
027 
405 
515 
A35 
A3A 
25A 
201 
033 
027 
606 
25A 
367 


00 
00 
17 
17 
17 
17 
00 
00 
00 
01 
02 
02 
02 
00 
03 
00 
00 
01 
00 
03 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


17 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 


000000 
06530A 
000000 
000001 
000002 
000003 
052677 
06522' 
000000 
1 77A00 
77775A 
000200 
000001 
037A0I 

iniii 

000000 
000000 
000200 
037A01 
037372 


037  02  0  00  056101 
260  17  C  00  0.3503 
254  00  0  00  03740^ 

027  06  0  00  o^ogoo 

260  17  0  CO  J31362 
027  07  0  00  OQOQOC 
260  17  0  00  031362 
253  02  0  00  037370 
262  17  0  m   000003 


;*  Routine  to  check  sense  bytes  with  expected  sense  byte  status. 


SNSCHK:  HRLZI 
SET2M 
MOVE 
TLNE 
SETOM 

SNSCMP:  MOVE 
XOR 
ANDCM 
SKIPN 
AND 
MOVEM 
SKIPE 
lORI 
A06JN 
RTN 


AC1,-6 

INTVRQI 

AC2,SNSAC1 

AC2,(INTVEN) 

INTVRQ 

AC2,SNSAC1(AC1) 

AC2,SNSEX1(AC1) 

AC2,SNSDC1(AC1) 

UNITCK 

AC2,SNSMSK(AC1) 

AC2,SNSDS1(AC1) 

AC2 

ERRFND,SNSERR 

AC1, SNSCMP 


flag 
required 


Set  loop  cnt  and  index 

Clear  intervention  req 

Get  first  sense  word 

Skip  if  no  intervention 

Else*  set  flag 

Get  actual  data 

Compare  with  expected  data 

Mask  off  don't  care  bits 

Skip  if  had  a  unit  check 

Else*  ignore  masked  sense  bits 

Store  discrepancy  data 

Skip  if  sense  bytes  are  correct 

Else,  set  senre  byte  error  bit 

Check  all  senst  bytes 


;*  Routine  to  read  extended  status 


EXTRD:  MOVE 

MOVEM 

PUT 

PUT 

PUT 

PUT 

MOVE 

MOVEM 

RDREG 

AND  I 

HRLZI 

lORI 

I  OR 

JRST 
RDSENS:  MOVE I 

LDREG 
UTSNS:  RDREG 

JRST 

SOJG 

PMSG 

STATUS  REQUEST  BIT*> 


(P) 

PCSAV 

0 

1 

2 

3 

CPOJ"''  8,SNSAC1J 

BYTPTR 

DXGPO 

ACM  77400 

AC2*-24 

AC2,STATRQ 

AC2,AC1 

SNSIT 

AC3,-1 

DXGPO, (AC2) 

DXGPO 

aci.statrq 
snsIt 

AC3,yTSNS 


;Get  return  pc 
;Save  it 
;Save  regs 


.-Setup  byte  pointer 

;Read  drive  status 

; Isolate  it 

.-Setup  byte  cnt  and  index 

;Set  status  request  bit  with  index 

.-Add  drive  status 

;Set  wait  cnt 
.-Request  next  status 

.-Skip  if  status  not  ready  yet 
.-Else,  go  get  new  status 
.-Keep  waiting 


<*TIME-OUT  WHILE  WAITING  FOR  MICROPROCESSOR  TO  CLEAR  \ 


s^-:t: 


SNSR^N 


GO 
JRST 

RDREG 

GO 

RDREG 

GO 

AOBjN 

GET 


ERPNT3 
SNSRTN 

DXGP6 
STRSNS 
DXGP^ 
STRSNS 
AC2. RDSENS 


;Go  print  test  *,  pc  ,  etc. 


Read  e>ft  status  word 

Go  store  ^'t 

Read  ext  status  word 

Go  store  't 

Continue  till  ail  l.-tes  real 

Pesto'^e  acs 


DFDXD       DX20-V100  '•lAGNETIC    TAPj 
DFDXDW     MAC  6-Apr-85   18:31 


SUBSYSTEM  DIAGNOSTIC    (RH20) 
SUBROUTINES 


VERSION  0.5  MACRO  Z53A(1152)   18:38     6-Apr-85  Page  92-1 


SEQ  0313 


6A37  037A07  262  17  0  00  000002 

6A38  037A10  262  17  0  00  000001 

6A39  037A11  262  17  0  00  000000 

64A0  037A12  263  17  0  00  000000 


GET 
GET 
GET 
RTN 


2 
1 
0 


MMMtiWil 


OFDXD 
DFDXDM 

6A41 
6AA2 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
6^85 
6486 
648? 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-ADr-85  18:38       SUBROUTINES 


VERSION 


0.5 


MACRO  t53A(1152)  18:38  6-Apr-85  Page  93 


SEQ   0314 


037413 
037414 
037415 
037416 
037417 
037420 
037421 
037422 
037423 
037424 
037425 
037426 
037427 
037430 
037431 
037432 
037433 
037434 
037435 
037436 
037437 
037440 
037441 
037442 
037443 
037444 
037445 
037446 
037447 
037450 

037451 
037452 
037453 
037454 
037455 
037456 
037457 
037460 
037461 
037462 
037463 

037464 
037465 
037466 


264  00 
402  00 
337  00 
254  00 
331 


0 
0 
0 
0 
0 


.  00 
303  01  0 
254  00  0 
135  04  0 
332  00  0 
254  00  0 
332  00  0 
254  00  0 
202  02  0 
402  00  0 
306  04  0 
254  00  0 
220  02  0 
202  02  0 
200  02  0 
303  02  0 
254  00  0 


213  00 
517  00 

2uJ  01 
336  00 
202  01 
202  01 

253  02 
264  00 
263  17 

231  02 
242  02 
322  03 
303  03 

254  00 
350  00 
336  00 
254  00 
350  00 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  042453 
00  065252 
00  000002 
00  037513 
00  000001 
00  000016 
00  037515 
00  056115 
00  065307 
00  037467 
00  065267 
00  037467 
00  065346 
00  065315 
00  000005 
00  037500 
04  042437 
00  065301 
00  065346 
00  040000 
00  037517 
00  000002 

00  000002 

01  042351 
00  065310 
00  065240 

02  066000 
00  037445 
00  042464 
00  000000 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000011 
000001 
037475 
000004 
037464 
000002 
06531 1 
037475 
000002 
065252 
037^75 


271  02  0  00  000002 
275  03  0  00  0Q00Q4 
254  00  0  00   03/475 


;*  Routine  to  fill  data  buffer  with  a  data  pattern 

;♦  Buffer  is  at  bufi 

;*  Enter  with  ac2  containing  *   word  count  or  byte  count  if  partial  xfer 

;*        Ad  containing  data  pattern  code 


FILBUF:  JSR 

SET2M 

SKIPG 

JRST 

SKIPL 

CAILE 

JRST 

LDB 

SKIPE 

JRST 

SKIPE 

JRST 

MOVEM 

SETZM 

CAIN 

JRST 

IMUL 

SAVBYT:  MOVEM 

FILHER:  MOVE 
CAILE 
JRST 
MOVNS 
HRLZS 
MOVE 
SKIPN 
MOVEM 
MOVEM 
A06JN 

FILBFX:  JSR 
RTN 


MIL  P 


REM65: 


IDIVI 

LSH 

JMMPE 

CAII.E 

JRST 

AOS 

SKIPN 

JRST 

AOS 

SETOM 

JRST 

ADD  I 
SUB  I 
JRST 


SAVAC 

HIDRFU# 

AC2 

FILER1 

AC1 

ACUPATEND-PATERN 

FILER2 

AC4, [POINT  4,DM0DE,23] 

PUDXFR 

PARTL 

LRGXFR 

PARTL 

AC2, WORDS 

REMAIN 

AC4,5 

HIDFU 

AC2,BPW(AC4) 

AC2,NBYTES 

AC2. WORDS 

AC2aOG-BUF1 

FILER3 

AC2 

AC2 

AC1,PATERN(AC1) 

RDCOMD 

AC1,DPAT# 

AC1,BUF1(AC2) 

AC2,.-1 

RESAC 


AC2,*D9 

AC2/I 

AC3,SAVWRD 

AC3,4 

REM65 

AC2 

RDF  WD 

SAVWRD 

AC2 

HIDRFW 

SAVWRD 


AC2,2 
AC3  i 
SAVWRD 


Sav/e  some  acs 

Clear  high  c^ensity  read  fwd  padding  flag 

Check  that  wrd/byte  count  is  not  zero 

Report  fatal  error 

Check  range  of  pattern  code 

Must  be  in  range  of  0  to  patmax 

Report  fatal  error 

Get  daia  mode 

Skip  if  not  partial  wrd  xfer 

Else,  use  b/te  cnt 

Skip  if  notka  large  xfer 

Else,  use  byte  cnt 

Save  word  count 

Zero  byte  remainder  cnt 

Skip  if  not  hi  den  mode 

Else,  do  special  compute 

Compute  #  bytes 

Save  byte  count 

Get  word  count 

Skip  if  doesn't  exceed  buffer  size 

Else,  report  fatal  error 

Neaate  tne  word  count 

Make  it  a  -wc,,0  pointer 

Get  data  pattern 

Skip  if  reai  cmd 

Save  written  data  pattern 

Else,  put  data  word  into  buffer 

Increment  pointer,  get  all  the  words 

Restore  acs 

Return 

Computes  half  #  of  36  bit  words 

Make  it  number  of  words 

Jump  if  no  remainder  bytes 

Skip  if  <=4  remainder  bytes 

Else,  modify  remainder 

Add  an  extra  word 

Skip  if  this  is  read  fwd  cmd 

Else,  use  this  wrd  cnt 

Allow  for  dx20  padding  to  even  vt?  k.ords 

Set  flag  to  remember  padding 


.•Increase  wrd  c.it  by  two 
;Subtact  off  bytes  m  first  word 


037467  202   Oc  0  00   065301 


PARTL:  MOVEM   AC2,NBYTES# 


.•Save  byte  cnt 


DFDXO 
DFDXDM 

6A96 
6A97 
6A98 
6A99 
6500 
6501 
6502 
6503 
650A 
6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
65U 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        SUBROUTINES 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  93-1 


SEQ  0315 


037470 
037A71 
037A72 
037473 
037474 
037475 
037476 
037477 

037500 
037501 
037502 
037503 
037504 
037505 
037506 
037507 
037510 
037511 
037512 

037513 
037514 
037515 
037516 
037517 
037520 
037521 


306  04 
254  00 
230  02 
332  00 
350  00 
202  02 
202  03 
254  00 


02 
02 


231 

221  _ 
322  03 
271  02 
201  00 
20?  00 
336  00 
254  00 
350  00 
476  00 
254  00 

037  02 
254  00 
037  02 
254  00 
037  02 
264  00 
037  15 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
04 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


000005 
037451 
042437 
000003 
000002 
065346 
065315 
037435 

000002 
00001 1 
037434 
000004 
000004 
065315 
065311 
037434 
065346 
065252 
037434 

056116 
037520 
056125 
037520 
056133 
042464 
000004 


CAIN 
JRST 
IDIV 
SKIPE 
AGS 
SAVWRD:  MOVEM 
MOVEM 
JRST 


HIDFU: 


FILER1; 

FILER2 

FILEr 


IDIVI 

IMULI 

JUMPE 

ADDI 

HOVE  I 

MOVEM 

SKIPN 

JRST 

AGS 

SETOM 

JRST 

PMSG 
JRST 
PMSG 
RST 
^MSG 
JSR 
FATAL 


AC4,5 

HIDFB 

AC2.BPU(AC4) 

AC3 

AC2 

AC2.UGRDS# 

AC3, REMAIN* 

FILHER 

AC2,2 

AC2,*D9 

AC3,SAVBYT 

AC2,4 

4 

REMAIN 

RDF  WD 

SAVBYT 

WORDS 

HIDRFU 

SAVBYT 


;Skip  if  not  hi  density  mode 

;Else,   jump 

•'Compute  #  full  words 

;Skip  if  no  remainder  bytes 

;Else,  round  up 

;Save  number  of  words 

;Save  remainder  bytes 

.•Compute  half  #  of  36  bit  words 

.•Compute  M   bytes  in  them 

;Jump  if  even  number  of  36  bit  words 

;Else.  add  4  more  bytes 

;Set  remainder  byte  count  for  partial  1st  wrd 

;Skip  if  this  is  read  fwd  cmd 
.-Else,  use  this  wrd  cnt 
.•Allow  for  dx20  padding 
;Set  flag  to  remember  padding 


<*NE6ATIVE  WORD/BYTE  COUNT  FOR  DATA  XFER*> 

FILER3^1 

<*DATA  PATTERN  INDEX  OUT  OF  RANGE*> 

FILER3+1 

<*DATA  XFER  WORD  SIZE  TOO  LARGE  FOR  BUFFER*> 

RESAC  .-Restore  acs 


OFDXD 
OFDXDH 

6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
653A 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6t>45 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6562 
6563 
6564 
6565 

6566 
6567 

6568 
6569 
6570 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6578 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        SUBROUTINES 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  94 


SEQ  0316 


037522 
037523 
037524 
037525 
037526 
037527 
037530 
037531 
037532 
037533 
037534 
037535 
037536 
037537 
037540 
037541 
037542 
037543 
037544 
037545 
037546 
037547 
037550 
037551 
037552 
037553 
037554 
037555 
037556 
037557 
037560 
037561 
037562 
037563 
037564 
037565 
037566 
037567 

037570 
037571 
037572 
037573 
037574 
037575 
037576 
037577 
037600 


264  00  0 
200  06  0 
200  02  0 
332  00  0 
370  00  0 
332  00  0 
370  00  0 
200  03  0 
302  03  0 


230  02 
210  04 
517  00 
541  04 
135  01 
201  03 
32  00 


0 
0 
0 
0 
0 
0 

0 

201  03  0 
270  03  0 
200  03  0 
404  03  0 
322  02  0 


33?  00 
CO)  17 
312  03 
254 


0 

0 

.-  0 

_   00  0 

253  04  0 
336  00  0 

254  00 
200  05 
220  05 

02  01 


0 
0 
0 

0 

254  00  0 
0 
0 
0 

0 

>40  00  0 
}32  00  0 
260  17 


60; 

!7 


o; 

01 


J13  00 
205  00 


406 
312 


\ 


54  00 
_36  00 
254  00 
336  00 
254  00 
435  07 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  042453 
00  065221 
00  065346 
00  065315 
00  000002 
00  065252 
00  000002 
00  065221 
00  000001 
00  000003 
00  000002 
00  000004 
00  066000 
00  056115 
00  042415 
00  065340 
00  042423 
00  000001 

03  000000 
00  065240 
00  037556 
00  065340 
00  037605 

04  OOQOOO 
00  037600 
00  037547 
00  065315 
00  037602 

00  065315 

01  042431 
00  000005 
00  037564 
00  000001 
00  000004 
00  000005 
00  400000 

05  000001 
00  065340 
00  037605 
00  000003 
04  OOQOOO 

""  m 

13760? 


8 


*  Routine  to  compare  data  in  buffer  with  data  pattern  specified 

♦  Buffer  starts  at  bufi 

♦  Enter  with 

•  'Words*  containing  positive  word  count 

*  *Dpat'  containing  data  pattern 


0  004000 


CMPBUF:  JSR 
MOVE 

NXTBLK:  MOVE 
SKIPE 
SOS 
SKIPE 
SOS 
MOVE 
CAIE 
IDIV 
MOVN 
HRLZS 
HRRI 
LDB 
MOVEI 
SKIPE 
MOVEI 
ADD 
MOVE 
AND 
JUMPE 

COMPLP:  SKIPE 
GO 
CAME 
JRST 
AOBJN 
SKIPN 
JRST 
MOVE 
IMUL 
CAIE 
JRST 
TRNE 
SU6I 
MOVNS 
MOVSI 
ASH 
SKIPE 
GO 

ANDM 
CAME 
JRST 
SKIPN 
JRST 
SKIPN 
JRST 

CMPER:   lORI 


LASTUD: 


SAVAC 

AC6,BL0KCT 

AC2. WORDS 

REMAIN 

AC2 

HIDRFW 

AC2 

AC3,BL0KCT 

AC3J 

AC2.AC3 

AC4,AC2 

AC4 

AC4,8UF1 

AC1, [POINT  4,DM0DE,23] 

AC3.DMASK9 

TRACK7 

AC3,DMASK7 

AC3.AC1 

AC3,(AC3) 

AC3,DPAT 

AC2.LASTWD 

TRACK7 

GE  TMSK 

AC3-(AC4) 

CMPER 

AC4, COMPLP 

REMAIN 

CMPDON 

AC5. REMAIN 

AC5,8SIZE(AC1) 

ACK5 

.♦3 

AC2J 

AC5,4 

AC5 

400000 

1(AC5) 

TRACK7 

GETMSK 

AC3 

AC3,(AC4) 

CMPER 

HIDRFW 

CMPDON 

1(AC4) 

CMPDON 

ERRFND,DATERR 


Go  save  some  acs 

Get  block  cnt 

Get  word  count  for  xfer 

Skip  if  no  remainder  bytes 

Else,  make  count  for  f^ll  words  only 

Skip  if  no  dx20  padding  allowed  for 

Else,  don't  cnt  padded  word 

Get  block  cnt 

Skip  if  only  1 

Else  compute  words  per  block 

Negate  wrd  cnt 

Setup  -wcO 

Setup  -wcdata  addr 

Get  data  mode 

Get  start  addr  of  9  trk  mask  table 

Skip  if  9  track 

Else,  get  7  trk  mask  start  addr 

Compute  addr  of  mask  for  current  data 

Get  mask 

Combine  mask  and  data  pattern 

Jump  if  no  full  words 

Skip  if  9  track 

Else,  check  for  special  hi  den  mask 

Compare  actual  data  with  masked  pattern 

Error,   record  it 

Check  all  full  words 

Skip  if  have  remainder  bytes 

Else,  done 

Get  remainder  byte  cnt 

Compute  #  of  remainder  bits 

Skip  if  hi  density  mode 

Else,  jump  around 

Skip  iT  even  #  of  full  words 

Else,  1st  byte  has  only  4  bits 

Negate  bit  cnt 

Set  bit  0  in  acO 

Create  left  adjust  bit  mask 

Skip  if  9  track 

Else,  check  for  special  hi  den  mask 

Combine  data  mask  with  bit  mask 

Compare  actual  with  pattern 

Record  error 

Skip  if  dx20  pjdded  a  zero  word 

Else,  done 

Skip  if  padded  word  is  not  all  zeros 


;Set  data  error  bit 


mode 


DFOXD 
DFDXDW 

6579 

6580 

6581 

6582 

6583 

658A 

6585 

6586 

6587 

6588 

6589 

6590 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        SUBROUTINES 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  9A-1 


SEQ  0317 


037601  254  00  0  00  037603 

037602  367  06  Q  00  037524 

037603  264  00  0  00  042464 

037604  263  17  0  00  000000 


JRST 
CMPDON:  SO J 6 
CMPLV:  JSR 

RTN 


037605 
037606 
037607 
037610 
03761 1 
037612 
037613 


302  01  0 
263  17  0 
200  03  0 
606  04  0 
200  03  0 
404  03  0 
263  17  0 


00  000005 
00  000000 
00  042414 
00  000001 
00  042413 
00  065240 
00  000000 


GETMSK: 


CAIE 

RTN 

MOVE 

TRNN 

MOVE 

AND 

RTN 


CMPLV 

AC6,NXTBLIC 

RESAC 


AC1,5 

AC3,HIMSIC0 
AC4J 

AC3,HIMSICE 
AC3.DPAT 


.-Abort  checking 
;Check  all  data  blocks 
; Restore  acs 


;Skip  if  high  density  mode 
;Else,  no  special  mask  needed 
;6et  mask  for  odd  word  hi  den 
;Skip  if  current  word  is  odd 
;Else,  get  mask  for  even  word  hi 
.-Combine  mask  with  data  pattern 


den 


DFDXD 
DFDXDM 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 


DX20-V100  WAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        SUBROUTINES 


VERSION  0.5    MACRO  Z53A(1152)  18:38  6-Apr-85  Page  95 


SEQ  0318 


037614 
03761 5 

037616 
037617 

037620 
037621 

037622 
037623 
037624 
037625 
037626 
037627 

037630 

037631 

037632 

037633 

037634 

03763S 

037636 

037637 

037640 

037641 

037642 

037643 

037644 

037645 

037646 

037647 

037650 

037651 

037652 

037653 

037654 

037655 
037656 

037657 
037660 
037661 
037662 
037663 
037664 
037665 
037666 
037667 
037670 


200  00  0  00  065300 
254  00  0  00  037623 

200  00  0  00  065273 
254  00  0  00  037623 

200  00  0  00  065322 
254  00  0  00  037623 


200  00 
202  00 
260  17 
263  17 
350  00 
263  17 


0  00  065276 
0  00  065344 
0  00  037630 
0  00  000000 
0  17  000000 
0  00  000000 


261  17  0 
261  17  0 
261  17  0 
402  00  0 
200  02  0 
336  00  0 


254 
260 


00 
17 


0 
0 
0 
0 
0 
0 
367  02  0 
201  07  0 


260  17 
20?  01 
6ui  01 
254  00 


201  01 
260  17 

200  02 

201  01 
260  17 
254  00 
367  02 


0 
0 
0 
0 
0 
0 
0 


00  000001 
00  000002 
00  000003 
00  000007 
00  065344 
00  065347 
00  037657 
00  043201 
00  045377 
00  126004 
00  000010 
00  037702 
00  037637 
00  020000 
00  000520 
00  045361 
00  065344 
00  000010 
00  045403 
00  037707 
00  037652 


037  02  0  00  056143 
037  15  0  00  000004 


260  17 
260  17 
202  01 
602  01 
254  00 
367  02 
201  " 
254 


07 
00 


026  04 
201  03 


0  00  043201 
0  00  045377 
0  00  126004 
0  00  000200 
0  00  037667 
0  00  037657 
0  00  020000 
0  00  037707 
0  00  000000 
0  00  000001 


;*  "Uait"  waits  for  the  dx20  to  complete  an  operation. 

U800MS:  MOVE  MS800 

JRST  WAIT2 

W5MIN:  MOVE  MIN5 

JRST  WAIT2 

W70SEC:  MOVE  SEC70 

JRST  WAIT2 

W400MS:  MOVE  MS400 

WAIT2:  MOVEM  WAITTM 

GO  UAIT 

RTN 

AOS  (P) 

RTN 


.•Failure 
;Good  show. 


return  +2 


UAIT: 


UAITX: 


ERUAIT: 


A  HUNG 


PUT 

PUT 

PUT 

SETZM 

MOVE 

SKIPN 

JRST 

GO 

GO 

MOVEM 

TRNE 

JRST 

SOJG 

MOVE  I 

MOVE  I 

GO 

MOVE 

MOVE  I 

GO 

JRST 

SOJG 

PMSG 

DATA 

FATAL 


1 
2 
3 

ERRFND 
AC2.UAITTM# 
XFRCMD 
NXFRCM 
TCTRLC 
.CONI 

AC1.C0NIAC 
ACl.CMDDN 
ULEAVE 
AC2, UAITX 
ERRFND. TOERR 
ACI.MBE^DSCR+STOP 
.CONO 

AC2.UAITTM 
ACl.CMDDN 
.CONSZ 
UATRTN 
AC2. ERUAIT 

<*SETTING  "STOP  XFER' 
TRANSFER*> 


.•Clear  error  found  flag 

.•Setup  the  loop  wait  time 

.-Skip  if  waiting  for  xfer  cmd  completion 

;Else,  go  wait  tor  immediate  op  completion 

;Read  rh20  status 

.•Save  it 

;Skip  if  cmd  done  cleared 

;Else.  give  success  return 

;Keep  waiting 

;Set  timeout  error  flag 

;Stop  data  xfer 

.-Get  wait  time 

;Set  mask  to  check  for  done 

;Skip  if  done  not  set  yet 


;Keep  waiting 
DID  NOT  GENERATE 


•CMD  DONE"  AFTER* 


NXFRCM:  GO 
GO 


TCTRLC 
.CONI 
MOVEM   AC1.C0NIAC 
TRNE    ACl.DRATTN 
JRST    GOTATA 

UAITS:  SOJG    AC2.NXFRCM 

MOVEI   ERRFND. TOERR 
JRST    UATRTN 

GOTATA:  RDREG   DXASR 
MOVEI   AC3.1 


;Read  rh20  status 

.-Save  it 

.-Skip  if  atten  cleared 

.-Else,  go  check  drive 

;Keep  waiting 

;Set  timeout  error  flag 

;Time  out.  give  error  return 

;Read  atten  summary 

; Setup  bit  mask  for 


OFDXD 

DX20-V* 

DFDXDM 

MAC 

66A6 

037671 

6647 

037672 

66A8 

037673 

66A9 

037674 

6650 

6651 

037675 

6652 

037676 

6653 

037677 

6654 

037700 

6655 

037701 

6656 

6657 

037702 

6658 

037703 

6659 

037704 

6660 

037705 

6661 

037706 

6662 

6663 

037707 

6664 

037710 

6665 

037711 

6666 

037712 
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SEQ  0319 


242  03  0  13  000000 
602  01  0  03  OOQQOO 
254  00  0  00  037702 
260  17  0  00  042343 

037  02  0  00  056160 
260  17  0  00  047274 
213  00  0  00  000003 
032  04  0  03  000000 
254  00  0  00  037664 

262  17  0  00  000003 
262  17  0  00  000002 

262  17  0  00  000001 
350  00  0  17  000000 

263  17  0  00  000000 

262  17  0  00  000003 
262  17  0  00  000002 

262  17  0  00  000001 

263  17  0  00  000000 


TESTED'^> 


LSH 

TRNE 

JRST 

GO 

PMSG 

GO 

MOVNS 
LDREG 
JRST 


WLEAVE:  GET 
GET 
GET 
ADS 
RTN 

WATRTN:  GET 
GET 
GET 
RTN 


AC3, (DRIVE) 

AC1,(AC3) 

WLEAVE 

PNTSTN 

<ATTENTION  BIT  SET  FOR 

REGPNT 
AC3 

DXASR,(AC3) 
WAITS 

3 

2 
1 
(P) 


3 

2 
1 


;This  dx20*s  atten  bit 
;Skip  if  atten  not  set  for  this  dx20 
;Else,  give  success  rtn 
;6o  print  test  number 
Rfl20  DRIVE(S)  OTHER  THAN  THE  ONE  BEING 

;Go  print  the  atten  summary  reg 
;Set  mask  to  clear  all  other  attens 
.-Clear  other  attens 
;Keep  waiting 


;Giy/e  success  rtn 
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SEQ  0320 


6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

668A 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 


037713 
037714 
037715 
037716 
037717 
037720 
037721 
037722 
037723 
037724 
037725 
037726 
037727 
037730 
037731 
037732 
037733 
037734 
037735 
037736 
037737 

037740 
037741 
037742 

037743 
037744 

037745 
037746 
037747 

037750 
037751 
037752 
037753 
037754 

037755 
037756 
037757 

037760 
037761 
037762 

037763 
037764 
037765 


200  00 
607  00 
263  17 
004  00 
260  17 
254  00 
260  17 

026  01 
602  01 
254  00 
260  17 
254  00 
260  17 

027  04 
606  01 
254  00 
135  00 
312  00 
254  00 
405  01 
302  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


126006 
100000 
000000 
000007 
037616 
037745 
037771 
000000 
040000 
037750 
037620 
037755 
037771 
000000 
1 77400 
037763 
052715 
126077 
037743 
1 77400 
102000 


254  00  0  00  037760 
033  04  0  00  000000 
263  17  0  00  000000 

0:><  04  0  00  000000 
254  00  0  00  037725 

260  17  0  00  042343 
037  02  0  00  056174 
254  00  0  00  037752 

260  17  0  00  042343 
037  02  0  00  056206 
260  17  0  00  043351 
033  04  0  00  000000 
263  17  0  00  000000 

260  17  0  00  042343 
037  02  0  00  056215 
254  00  0  00  037752 

260  17  0  00  042343 
037  02  0  00  056227 
254  00  0  00  037752 

260  17  0  00  042343 
037  02  0  00  056237 
254  00  0  00  037752 


;*  Rewind  routine. 


RWDCHK:  MOVE 
TLNN 


REWIND: 


RUAIT: 


RUS6T: 
RUDER1: 

RyDER2: 
RWLEAV: 

RWDER3: 


RTN 

RUD 

GO 

JRST 

GO 

RDREG 

TRNE 

JRST 

GO 

JRST 

GO 

RDREG 

TRNN 

JRST 

LDB 

CAME 

JRST 

AND  I 

CAIE 

JRST 

LDREG 

RTN 

LDREG 
JRST 

GO 

PMSG 

JRST 

GO 

PMSG 

GO 

LDREG 

RTN 

GO 

PMSG 

JRST 


RUDER4:  GO 

PMSG 
JRST 


RWDER5 


GO 

PMSG 

JRST 


SNSAC2 
(EOT) 


U5MIN 

RUDER1 

CLRATA 

DXSTR 

ACKCERR 

RUDER2 

W70SEC 

RUDER3 

CLRATA 

DXGP4 

AC  1J  77400 

RUDER5 

ACO, [POINT  8,AC1,35] 

ACO,DRVADR 

RUSBT 

AC 1,1 77400 

ACKBOTDND 

RUDER4 
DXGP4,0 


DXGP4,0 
RUAIT 


Read  sense  bytes  4-7 

Skip  if  at  eot 

Else,  don't  rewind 

Send  rewind  command 

Wait  for  channel  end  status 

Error  return,  time  out 

Go  clear  attention 

Read  dx20  status 

Skip  if  no  errors 

Else,  report  errors 

Wait  for  asynch  status  attention 

Timeout  return 

Go  clear  attention 

Read  asynch  status 

Skip  if  nonzero  asynch  status 

Else,  report  error 

Get  tape  drive  number 

Skip  if  correct 

Else,  keep  waiting 

Clear  all  but  asynch  status 

Skip  if  dey/  end  status  and  bot 

attn.  CO. 5] 

Else,  report  asynch  error 

Clear  asynch  status 


.-Clear  asynch  status 
.-Keep  waiting 


PNTSTN  :Go  print  test  number 

<TIME  OUT  WHILE  WAITING  FOR  INITIAL  STATUS  FROM  REWIND*> 

RWLEAV 

PNTSTN  ;Go  print  test  number 

<COMPOSITE  ERROR  SET  WHILE  REWINDING^> 
ERPNT1  ;Go  print  dx20  reqs 

DXGP4,0  .-Clear  asynch  status 

PNTSTN  ; Print  test  number 

<TIME  OUT  WHILE  WAITING  FOR  REWIND  OPERATION  C0MPLETI0N*> 

RWLEAV 

PNTSTN  ;Print  test  number 

<ASYNCH  STATUS  ERROR  UPON  REWIND  COMPLETION*> 
RWLEAV 

PNTSTN  :Print  test  number 

<ALL  ZERO  ASYNCH  STATUS  ftECElVED  AT  REWIND  COMPLETI0N*> 

RWLEAV 


DFDXD 
DFDXDM 

6721 

6722 

6723 

672A 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 
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037766  201  01  0  00  000410 

037767  260  17  0  00  045361 
037770  263  17  0  00  000000 


037771 
037772 
037773 
037774 
037775 
037776 

037777 
040000 
040001 
040002 
040003 
040004 

040005 
040006 
040007 
040010 
04001 1 
040012 

04001 3 
040014 
040015 
040016 
04001 7 
040020 
040021 
040022 
040023 
040024 
040025 


261  17  0  00  000003 
201  03  0  00  000001 
242  03  0  13  000000 
032  04  0  03  000000 

262  17  0  00  000003 

263  17  0  00  000000 

201  00  0  00  000100 
436  00  0  00  126037 
201  00  0  00  200000 
332  00  0  00  065342 
412  00  0  00  126040 
263  17  0  00  000000 

201  00  0  00  000100 
412  00  0  00  126037 
201  00  0  00  200000 
332  00  0  00  065342 
436  00  0  00  126040 
263  17  0  00  000000 


201  02  0 
026  00  0 
606  01  0 
263  17  0 


367  02 
Oi'  02 
260  17 
260  17 


037  02  0 
260  17  0 
263  17  0 


00  100000 
00  000000 
00  000001 
00  000000 
00  040014 
00  056250 
00  047274 
00  042343 
00  056254 
00  036726 
00  000000 


CLRDON:  MOVEI   AC1 ,DONCLR^MBE 
60      .CONO 
RTN 


CLRATA:  PUT 
MOVEI 
LSH 
LDREG 
GET 
RTN 


SETD16: 


CLRD16: 


GOCHK: 
GOUT: 


MOVEI 

lORM 

MOVEI 

SKIPE 

AND CAM 

RTN 

MOVEI 

AND CAM 

MOVEI 

SKIPE 

lORM 

RTN 

MOVEI 

RDREG 

TRNN 

RTN 

SOJG 

PMSG 

GO 

GO 

PMSG 

GO 

RTN 


3 

AC3J 

AC3, (DRIVE) 

DXASR,(AC3) 


D1600 

SNSC1 

NT1600 

TX02 

SNSC2 


D1600 

SNSC1 

NT1600 

TX02 

SNSC2 


AC2J00000 

DXCTR 

AC1,G0 
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;Set  mask  to  clear  cmd  done 
;Go  clear  it 


;Save  ac 

.-Setup  bit  mask  for 
;This  dx20*s  atten  bit 
;Clear  attention 
.-Restore  ac 


;Set  mask  for  d1600  sense  bit 

;Set  it  in  constant  sense  word 

;Set  mask  for  nt1600  sense  bit 

;Skip  if  not  tx02  controller 

;Else,  clear  it  in  constant  sense  word 


;Set  mask  for  d1600  sense  bit 
.-Clear  it  in  constant  sense  word 
.-Set  mask  for  nt1600  sense  bit 
.-Skip  if  not  tx02  controller 
.-Else,  set  it  in  constant  sense  word 


.-Set  wait  time 

.-Read  reg 

.-Skip  if  go  still  set 

.-Else,  rtn 

.-Keep  waiting 


SEQ  0321 


AC2.G0WT 

<'^G0  BIT  NOT  CLEARED*> 

REGPNT  .-Print  dxctr 

PNTSTN  ;Go  print  test  number 

<RESETTING  MICROPROCESSOR^> 

RESTRT  .-Go  reset  and  restart 


040026  336  00  0  00  030037 
OA0027  254  00  0  00  040061 
040030  201  02  0  00  000200 
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6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 
6809 
6810 
6811 
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SEQ  0322 


040031 
040032 
040033 
040034 
040035 
040036 
040037 
040040 
040041 
040042 
040043 
040044 
04004 S 
040046 
040047 

040050 
040051 
040052 
040053 
040054 
040055 
040056 
040057 
040060 

040061 
040062 
040063 
040064 
040065 
040066 
040067 
040070 
040071 
040072 

040073 
040074 
040075 
040076 
040077 


254  00  0 
200  01  0 
221  02  0 
231  02  0 
202  02  0 
221  02  0 
202  02  0 
221  02  0 
202  02  0 
221  02  0 
202  02  0 
221  02  0 
202  02  0 
200  02  0 
221  02  0 


202 

iMi  02 
221  02 


0" 
02 


0 
0 
0 
0 


202  02  0 
200  02  0 
221  02  0 
202  02  0 
263  17  0 


00  040035 

00  030505 

01  000006 
00  000144 
00  065274 
00  000062 
00  065277 
00  000002 
00  065275 
00  000004 
00  065276 
00  000002 
00  065300 
00  065274 
00  001750 
00  065320 
00  000012 
00  065321 
00  000007 
00  065322 
00  065321 
30  000036 
00  065273 
00  000000 


402  00 
400  01 
260  17 
200  00 
037  13 
260  17 
202  01 
602  01 
254  00 
344  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 
000000 
045361 
040100 
000004 
045377 
126004 
000040 
040073 
040066 


400  00  0  00  000000 
037  13  0  00  000004 
400  01  0  00  000000 
260  17  0  00  045361 
254  00  0  00  040032 


;♦  Time  calculation  routine 


TINTZ:   SKIPN   USER 

JRST    TINT2L 
HOVEI   AC2.200 


Skip  if  user  mode 

Go  to  exec  mode  routine 

This  time  was  set  arbitrarily  to  11, 


;This  should  be  changed  to  some  number  that  is  the  number  of  iterations 
; Through  the  loop  at  tintwt.  the  number  in  ac2  should  be  the  number  of 
.•Iterations  throuah  in  1/60  or  1/50  of  a  second  as  a  function  of  line  frequency 
;Set  time  as  1  millisecond 


JRST 
TINT2C:  MOVE 
IMULI 


TINTUS: 


IDIVI 

MOVEM 

IMULI 

MOVEM 

IMULI 

MOVEM 

IMULI 

MOVEM 

IMULI 

MOVEM 

MOVE 

IMULI 

MOVEM 

IMULI 

MOVEM 

IMULI 

MOVEM 

MOVE 

IMULI 

MOVEM 

RTN 


TINTZL:  SETZM 
SETZ 
GO 
MOVE 
CLOKOP 

TINTWT:  GO 

MOVEM 
TRNE 
JRST 
AOJA 

TINTZD:  SETZ 

CLOKOP 

SETZ 

GO 

JRST 


TINTUS 

AC1,CYCL60 

AC2,6(AC1) 

AC2,'^D100 

AC2,MS001# 

AC2,*D50 

AC2,MS50# 

AC2,2 

AC2,MS100# 

AC2,4 

AC2.MS400# 

AC2,2 

AC2.MS800# 

AC2,MS001 

AC2,*D1000 

AC2,SEC1# 

AC2,*D10 

AC2,SEC10# 

AC2.7 

AC2,SEC70# 

AC2.SEC10 

AC2,*D30 

AC2,MIN5# 


AC2 
AC1, 
.CONO 
TINTZI 

.CONI 

AC1,C0NIAC 
AC1,ATTNEN 
TINTZD 
AC2. TINTWT 


AC1, 

.CONO 

TINTZC 


Set  up  table 
Get  cjfcle  fla 
Get  time  in 
Get  time 
Save  it 
Get  time 
Save  it 
Get  time 


?? 


in  1 


sec 
ms 


in 


in 


50  ms 
100  ms 


Get 


Save 


in  400  ms 
in  800  ms 


time 
it 
Get  time 
Save  it 
Get  1  ms 
Get  time 
Save  it 
Get  time 
Save  it 
Get  time 
Save  it 

Get  10  sec  time 
Get  tir  in  5  min 
Save  ii 


Start  with  zero  time 


time  again 
in  1  sec 

in  10  sec 

in  7  sec 


Clear  atten  int  enable 

Get  cono  instruction  to  execute 

Enable  the  clock  to  execute  inst 

Read  rh20  status 

Save  it 

Skip  if  atten  int  en  not  set 

Else,  jump  out  of  loop 

Keep  count  of  wait  time 


; Disable  the  clock 


;Clear  atten  int  enable 


I 
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6812 
6813 
68U 
6815 
6816 
6817 

6818 
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040100  260  17  0  00  040101 


040101 
040102 
040103 
040104 
040105 


161 
101 
>60 
262 
263 


17 
01 
17 
17 
17 


0 
0 
0 
0 
0 


00  000001 


10 
00 
00 
00 


00QQ40 
045361 
000001 
000000 


SUBROUTINES 
TINTZI:  GO 

5ETAIN:  PUT 

MOVE  I 
GO 
GET 
RTN 


SEQ  0323 


SETAIN 

1 

AC1.ATTNEN 
.CONO 
1 


;Go  set  atten  int  enable 

.-Save  ad   to  av/oid  interference 

; Setup  mask 

;Go  set  atten  int  enable 

.•Restore  ad 

;Exit    interrupt 
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6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

683A 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 

6861 

6862 

6863 

6864 

6865 

6866 

6867 

6868 

6869 

6870 

6871 

6872 

6873 


SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  99 
STATUS  PRINTER 

SUBTTL  STATUS  PRINTER 
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This  routine  is  called  as  an  additional  error  print  routine. 
The  following  is  the  general  format  of  the  printout: 
Actual: 

Rh20  coni  status 

Rh20  logout  status 

Rh20  ccw  list 

Dx20  massbus  registers 

Dx20  extended  status 
Expected: 

Rh20  coni  status 

Rh20  logout  status 

Dx20  massbus  registers 
Actual: 

Sense  bytes 
Expected: 

Sense  bytes 

Data  errors 

The  logout  status  and  ccw  list  are  printed  only  for  data  xfer  '-ommands. 
The  data  errors  are  printed  only  for  read  xfer  commands. 
The  sense  bytes  are  printed  only  if  they  were  read. 

If  console  switch  22   is  set  then  all  data  errors  will  be  printed,  else. 

Only  3  lines  of  errors  will  be  printed. 

If  switch  23  is  set  then  all  available  status  will  be  printed,  else. 

Only  the  status  in  error  will  be  printed. 

If  switch  24  is  set  then  all  status  will  be  printed  in  octal,  else. 

Full  descriptions  of  all  status  will  '^e  given. 


SEO  0324 


040106 
040107 
040110 
040111 
040112 
040113 
040114 
040115 
040116 
040117 
040120 
040121 
040122 
040123 
040124 
040125 
040126 
?7 


037  10 
402  00 
402  00 
602  00 
476  00 
402  00 


0 
0 
0 
0 
0 
0 


602  00  0 
476  00  0 
402  00  0 
602  07  0 
037  02  0 
336  00  0 


\ 


02  07 
.34  00 
254  00 
037  0 
602 


040127  476  00 


0 
0 
0 
0 
0 
0 


00  000002 
00  065260 
00  065325 
00  004000 
00  065325 
00  065216 
00  010000 
00  065216 
00  065245 
00  000002 
00  056261 
00  065216 
00  031775 
00  000000 
00  040513 
00  056266 
00  020000 
00  065216 


ERPNT: 


SWITCH 

SETZM 

SET2M 

TRNE 

SETOM 

SETZM 

TRNE 

SETOM 

SETZM 

TRNE 

PMS6 

SKIPN 

TRNE 

SKIPA 

JRST 

PMSG 

TRNE 

SETOM 


:Look  at  switches 

; Clear  intervention  required  flag 

.'Clear  short  print  flag 

;Skip  if  switch  is  zero 

;Set  flag 


INTVRD# 

SHORTf 

OSTAT 

SHORT 

ALLSTf 

ASTAT 

ALLST 

EXPECT*  .-Clear  'printing  expected  flag 

ERRFND.MPSERR         :Skip  if  microprocessor  still  running 

<*MICROPROCESSOR  STOPPED^*> 

ALLST  .-Skip  if  printing  all  status 

ERRFND,31775  ;Skip  if  error  not  requiring  actual 


SNSPN 

<MCTUAL:*> 
ERRFND,TOERR 
ALLST 


.•Don't  print  actual 

.•Print  header 

;Skip  if  not  timeout  error 

.•Else,  setup  to  print  all  status 


♦  Print  the  rh20  coni  status 


DFDXD 
DFDXDM 

6874 

6875 

6876 

6877 

6878 

6879 

6880 

6881 

6882 

6883 

688A 

6885 

6886 

6887 

6888 

6889 

6390 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

690A 

6905 

6906 

6O07 

6908 

6909 

6910 

6911 

6912 

6913 

69U 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 
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VERSION  0.5 


0401 30 
040131 

0401 32 

0401 33 

0401 34 

0401 35 

0401 36 

0401 37 
040140 
040141 
040142 
040143 
040144 
040145 
040146 
040147 


040150 
040151 
0401 52 
040153 
040154 
0401 5 S 
040156 
040157 
040160 
040161 
040162 
040163 
040164 
040165 
040166 
040167 
040170 
040171 
040172 
040173 
040174 
0401^5 
040176 
040177 
040200 


040201 
040202 
040203 
040204 
040205 
040206 
0^0207 


336  00 
336  00 
602  07 
334  00 
254  00 
200  01 
332  00 
200  01 
336  00 
254  00 
037  02 
200  00 
037  13 
037  00 
254  00 
260  17 


336  00 
254  00 
606  01 
254  00 
336  00 
336  00 
602  07 
334  00 
254  00 
200  02 
3ii  00 
250  02 
336  00 
254  00 
037  02 
515  01 
037  02 
200  00 
037  13 
253  01 
037  00 
334  00 
260  17 
332  00 
250  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 

oc 

00 
00 
00 
00 

oc 

00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
Ou 
01 
00 
00 
00 
00 
00 
00 
00 


065245 
065216 
000001 
000000 
040150 
126004 
065245 
065231 
065325 
040147 
056270 
000001 
000000 
030242 
040150 
047234 


065547 
040222 
000010 
040201 
065245 
065216 
010000 
000000 
0402C1 
065266 
065245 
12^^001 
065325 
040176 
056273 
777775 
056276 
126000 
000000 
040170 
030242 
000000 
045727 
065245 
126001 


200  01  0 
332  00  0 


332  00 
54  00 


\ 


36  00 
254  00 


0 
0 

0 
0 


00  065225 
00  065216 


037  02  0 


00 
00 
00 

00 

CO 


0652^5 
04022c 
065325 

040221 
0562^7 


RHPNT 


STPCIL: 


SKIPN 

SKIPN 

TRNE 

SKI  PA 

JRST 

MOVE 

SKIPE 

MOVE 

SKIPN 

JRST 

PMSG 

MOVE 

PNTHU 

PCRL 

JRST 

GO 


EXPECT 

ALLST 

ERRFND,RHERR 

NOCONI 

ACI^CONIAC 

EXPECT 

ACUCONIEX 

SHORT 

STPCIL 

<*RH20  CONI: 

AC1 


NOCONI 
tONIPT 


♦  Print  the  rh20  logout  status 


NOCONI:  SKIPN 
JRST 
TRNN 
JRST 
SKIPN 
SKIPN 
TRNE 
SKJ'^A 
JRST 
MOVE 
SKIPE 
EXCH 
SKIPN 
JRST 
PMSG 
HRLZI 
PMSG 
MOVE 
PNTHW 
AOBJN 
PCRL 
SKI  PA 
GO 

SKIPE 
EXCH 


LOGLP: 


L0GLN6: 


XFRCMD 

NOTXFR 

AC1,CMDDN 

NOLOG 

EXPECT 

A'.LST 

tRRFND,LOGERR 

NOLOG 

AC2A061EX 

EXPECT 

AC2A0GH 

SHORT 

LOGLNG 

<LOGOUT  STATUS :> 

AC1,-3 

LOG(ACI) 

AC1, LOGLP 


LOGPNi 
EXPECT 
AC2,L06M 
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Skip  if  printing  expected 
Skip  if  printing  all  status 
Skip  if  no  rh20  coni  errors 

;Don*t  print  coni  status 

;Get  coni  status 

;Skip  if  not  printing  expected  status 

;Else,  get  expected  coni 

;Skip  if  printing  octal  only 

;Else,  go  print  description 

;Put  it  in  acO 
; Print  it 


.-Print  coni  description 


;Skip  if  was  a  data  xrer  cmd 
:Else.  jump  around 
;Skip  if  cmd  done  received 
;Else.  don't  print  logout  status 
;Skip  if  printing  expected  status 
;Skip  if  printing  all  status 
;Skip  if  no  log  out  error 


SEQ  0325 


;*  Print  ♦'he  'h20  ccw  list 

NOLOG:  MOVE  AC1,CCyARG 

SKIPE  ALLST 

SKIPE  EXPECT 

jRST  NOTXFR 

SKIPN  SHORT 

JRST  CCyLNG 

PMSG  <CHANNFL  COMMAND  LlST:> 


; Setup  -wc.,0 
.-Print  crlf  and  tab 
.-Get  loQ  word 
.-Print  Too  word 
; Print  3  log  words 

.-Else,  print  logout  status 

.-Skip  if  not  printirg  expected  stat'us 

.-Restore  log  wjrd  1 


Get  ccw  argument 

Skip  if  not  printing  ai  .  status 

Skip  it  not  print ^'ng  expected  status 

Else,  don't  print  ccw 

Skip  if  printing  octal 

Else.   p'"int    long  forfn 
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6929 

6930 

6931 

6932 

6933 

693A 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 


040210 
040211 
040212 
040213 
040214 
040215 
040216 
040217 
040220 
040221 


040222 
040223 
040224 
040225 
040226 
040227 
040230 
040231 
040232 
040233 


040234 
040235 
040236 
040237 
040240 
040241 
040242 
040243 
040244 
040245 
040246 
040247 
040250 


040251 
040252 
040253 
040254 
040255 
040256 
040257 
040260 
040261 
040262 
040263 
040264 
040265 


554  02 
213  00 
504  01 
037  02 
200  00 
037  13 
253  01 
037  00 
334  00 
260  17 


0 
0 
0 


00 
00 
00 


0  00 
0  01 
0  00 
0  00 
0  00 
0  00 
0  00 


000001 
000002 
000002 
056276 
000000 
000000 
040213 
030242 
000000 
046103 


332  00  0  00  065216 
332  00  0  00  065245 
254  00  0  00  0A0234 
026  00  0  00  000000 
336  00  0  00  065325 
254  00  0  00  040233 
037  02  0  00  056303 
260  17  0  00  041335 
334  00  0  00  000000 
260  17  0  00  0A7274 


332  00 
254  00 
336  00 
60?  07 
33  •  00 
254  00 
026  01 
336  00 
254  00 
037  02 
260  17 
334  00 
260  17 


00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 
0  00 


065245 
040251 
065216 
000004 
000000 
040251 
000000 
065325 
040250 
056305 
0A1335 
000000 
047274 


336  00 
336  00 
602  07 
334  00 
602  07 
334  00 
254  00 
026  02 
336  00 
254  00 
620  01 
660  01 
336  00 


0  00  065245 
0  00  065216 
0  00  000010 
0  00  000000 
0  00  000004 
0  00  000000 
0  00  040273 
0  00  000000 
0  00  065245 
0  00  040265 

0  00  777777 

1  00  065243 
0  00  065325 


HLRZ 

MOVNS 

HRL 

CCWLP:  PMSG 
MOVE 
PNTHW 
AOBJN 
PCRL 
SKIPA 

CCWLNG:  GO 


AC2,AC1 

AC2 

AC1,AC2 

<*]> 

(AC1) 
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;Get  wrd  cnt 

; Negate  it 

;  Setup  -wcaddr 


SEQ  0326 


AC1, CCWLP 


CCWPNT 
;*  Print  the  dx20  control  reg  (dxctr) 


NOTXFR:  SKIPE 
SKIPE 
JRST 
RDREG 
SKIPN 
JRST 
PMSG 
GO 
SKIPA 

CTRLNG:  GO 


ALLST 

EXPECT 

NOCTR 

DXCTR 

SHORT 

CTRLNG 

<DXCTR: 

PNTSTA 


REGPNT 
;*  Print  the  dx20  status  reg  (dxstr) 


NOCTR:   SKIPE 
JRST 
SKIPN 
TRNE 
SKIPA 
JRST 
RDREG 
SKIPN 
JRST 
PMSG 
GO 
SKIPA 

STRLNG:  GO 


EXPECT 
NOSTR 
ALLST 
ERRFND,CERRER 

NOSTR 

DXSTR 

SHORT 

STRLNG 

<DXSTR:  > 

PNTSTA 


REGPNT 

;♦  Print  the  dx20  error  reg  (dxerr) 
NOSTR: 


SKIPN 

SKIPN 

TRNE 

SKIPA 

TRNE 

SKIPA 

JRST 

RDREG 

SKIPN 

JRST 

TRZ 

TRO 

SKIPN 


EXPECT 

ALLST 

ERRFND,DXERER 

ERRFND,CERRER 

NODXER 

DXERR 

EXPECT 

.+3 

AC1,-1 

ACnaDXEREX 

SHORT 


;Get  ccw  wrd 
;P'*int  it 
;Print  all  ccw's 


;Go  print  ccw 


;Skip  if  not  printing  all  status 

;Skip  if  not  printing  expected  status 

;Else,  don't  print 

;Read  reg 

;Skip  if  printing  octal 

;Else,  print  long  form 

;Go  print  status 

;Print  long  form 


;Skip  if  not  printing  expected  status 

;Else,  don't  print 

;Skip  if  printing  all  status 

;Skip  if  no  comp  error 

;Else,  don't  print 
;Read  reg 

;Skip  if  printing  octal 
;Else,  print  long  form 

;Go  print  status 

;Print  long  form 


;Skip  if  printing  expected  status 

;Skip  if  printing  all  status 

;Skip  if  no  dx20  error 

;Skip  if  no  error 


Don't  print 

Read  reg 

Skip  if  printi.ig  expected  status 

Else,  leave  reg  data  alone 

Clear  data 

Insert  expected  data 

Skip  if  printing  octal 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC     6-Apr-85  18:38        STATUS  PRINTER 


698A 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

700A 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

701 A 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

702A 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 


040266 
040267 
040270 
040271 
040272 


040273 
040274 
040275 
040276 
040277 
040300 
040301 
040302 
040303 
040304 


040305 
040306 
040307 
040310 
04031 1 
040312 
04031 3 
040314 
04031 5 
040316 
04031 7 
040320 
040321 
040322 
040323 
040324 


040325 
040326 
040327 
040330 
040331 
040332 
040333 
040334 
040335 
040336 


040337 
040340 


254  00  0  00  040272 
037  02  0  00  056307 
260  17  0  00  041335 
334  00  0  00  000000 
260  17  0  00  047274 


332  00 
332  00 
254  00 
026  03 
336  00 
254  00 
037  02 
260  17 
334  00 
260  17 


336  00 
336  00 
602  07 
334  00 
254  00 
027  00 
336  00 
254  00 
620  01 
6oJ  01 
336  00 
254  00 
037  02 
260  17 
334  00 
260  17 


l:>i  00 
332  00 
254  00 
027  01 
336  00 
254  00 
037  02 
260  17 
334  00 
260  )7 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065216 
065245 
040305 
000000 
065325 
040304 
056311 
041335 
000000 
047274 


065245 
065216 
000020 
000000 
040325 
000000 
065245 
040317 
777777 
065242 
065325 
040324 
056313 
041335 
000000 
047274 


06S?16 
OC-245 
040337 
000000 
065325 
040336 
056315 
041335 
000000 
C47274 


332  00  0  00  065216 
332  00  0   00  065245 


JRST 
PMSG 
GO 

SKI  PA 
DXRLNG:  GO 


DXRLNG 

<DXERR: 

PNTSTA 

REGPNT 
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;Else,  print  long  form 
> 

;6o  print  status 

.-Print  long  form 


SEG  0327 


;*  Print  the  dx20  maintenance  reg  (dxmtr) 


NODXER:  SKIPE 
SKIPE 
JRST 
RDREG 
SKIPN 
JRST 
PMSG 
GO 
SKI  PA 

MTRLNG:  GO 


ALLST 

EXPECT 

NOMTR 

DXMTR 

SHORT 

MTRLNG 

<DXMTR: 

PNTSTA 


REGPNT 

;♦  Print  the  dx20  gp  reg  0  (dxgpO) 
NOMTR : 


SKIPN 
SKIPN 
TRNE 
SKIPA 
JRST 
RDREG 
SKIPN 
JRST 
TRZ 
TRO 
SKIPN 
JRST 
PMSG 
GO 

SKIPA 
DRVLNG:  GO 


EXPECT 

ALLST 

ERRFND.DRVERR 

NODRVR 

DXGPO 

EXPECT 

.+3 

AC1,-1 

ACl,aDRVEXP 

SHORT 

DRVLNG 

<DXGPO:  > 

P;^TSTA 


REGPNT 

;*  Print  the  dx20  gp  reg  1  (dxgpD 
NODRVR 


SKIPE 
SKIPE 
JRST 
RDREG 
SKIPN 
JRST 
PMSG 
GO 

SKII-. 
GP1LNG:  GO 


ALLST 

EXPECT 

N0GP1 

DXGPl 

SHORT 

GP1LNG 

<DXGP1 

PNTSTA 


REGPNT 

;*  Print  the  Cix20  gp  reg  2  (dxgp2) 

N06P1:  SKIPE   ALLST 
SKIPE   EXPECT 


;Skip  if  not  printing  all  status 

;Skip  if  not  printing  expected  status 

;Else.  don't  print 

;Read  reg 

;Skip  if  printing  octal 

;Else.  print  long  form 

;Go  print  status 

;Print  long  form 


Skip  if  printing  expected  status 

Skip  if  printing  all  status 

Skip  if  no  tape  drive  status  error 

Don't  print 

Read  reg 

Skip  if  printing  expected  status 

Else,  leave  reg  data  alone 

Clear  data 

Insert  expected  data 

Skip  if  printing  octal 

Else,  print  long  form 

Go  print  status 

Print  long  form 


;Skip  if  not  printing  all  sliUus 

;Skip  if  !iot  printing  expectei  status 

;Else.  don't  print 

.-Read  reg 

;Skip  it  printing  octal 

;Else.  print  long  form 

;6o  print  status 

.-Print  long  form 


;Skip  if  not  p'-intir.g  all  status 
;Skip  if  not  printing  expected  status 


r" 


DFDXD 
DFDXDM 

7039 

70AO 

70A1 

70A2 

70A3 

70AA 

70A5 

70A6 

70A7 

70A8 

70A9 

7050 

7051 

7052 

7053 

705A 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

706A 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 

707A 

7075 

7076 

707? 

707 

707 

708? 

708, 

708r 

708: 
708A 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
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VERSION  0.5 


0A03A1 
OA03A2 
Oh03A3 
0A03AA 
OA03A5 
0A03A6 
OA03A7 
OA0350 


OA0351 

OA035? 

OA0353 

OA035A 

OA0355 

CA0356 

0^0357 

OA0360 

OA0361 

0A0362 

OA0363 

OA036A 

0A0365 

OA0366 

0A0367 

OA0J7O 

0A0371 

OA0372 

0A0373 

OA037A 


0A0375 
OA0376 
0A0377 
OAOAOO 
0A0A01 
OA0A02 
0A0A03 
OAOAOA 
0A0A05 
OA0A06 
0A0A07 
JA0A10 
OA0A11 
0A0A12 
OA0A13 
OA0A1A 


25A  00 
027  02 
336  00 
25A  00 
037  02 
260  17 
33A  00 
260  17 


336  00 
336  00 
602  07 
33A  00 
602  07 
33A  00 
602  07 
33A  00 
602  07 
33A  00 
25A  00 
027  03 
332  OC 
620  01 
336  00 
25A  00 
037  02 
260  17 
33A  00 
2oJ  17 


336  00 
336  00 
602  07 


0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


33A 
25A 


00 
00 


027  OA 
336  00 
25A  00 
620  01 
660  01 
336  00 
25A  00 
037  02 
260  17 
33A  00 
260  17 


00 
00 
JO 
00 
0  00 


0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0A0351 
000000 
065325 
0A0350 
056317 
0A1335 
000000 
0A727A 


0652A5 
065216 
000200 
000000 
OOOOAO 
000000 
OOOAOO 
000000 
000100 
000000 
0A0375 
000000 
0652A5 
mill 
065325 
0A037A 
056321 
0A1335 
000000 
0A727A 


0652A5 
065216 
001000 
OOOOCC 
0A0A15 
000000 
0652A5 
0A0A07 
mill 
0o5217 
065325 
0A0A1A 
056323 
0A1335 
000000 
0A727A 


GP2LNG: 


JRST 

RDREG 

SKIPN 

JRST 

PMSG 

GO 

SKI  PA 

GO 


N0GP2 

DX6P2 

SHORT 

GP2LNG 

<DXGP2: 

PNTSTA 

REGPNT 


;♦  Print  the  dx20  gp  reg  5  (dxgp3) 


N0GP2:   SKIPN 
SKIPN 
TRNE 
SKIPA 
TRNE 
SKIPA 
TRNE 
SKIPA 
TRNE 
SKIPA 
JRST 
RDREG 
SKIPE 
TR2 
SKIPN 
JRST 
PMSG 
GO 
SKIPA 

GP3LNG:  60 


EXPECT 

ALLST 

ERRFND,FSBERR 

ERRFND,FSIEP1 

ERRFND,SASBER 

ERRFND,TIEERR 

N0GP3 

DXGP3 

EXPECT 

AC1,-1 

SHORT 

GP3LNG 

<DXGP3:  > 

PNTSTA 

REGPNT 


;*  Print  the  dx20  gp  reg  A  (dxgpA) 


N0GP3:   SKIPN 
SKIPN 
TRNE 
SKIPA 
JRST 
RDREG 
SKIPN 
JRST 
TRZ 
TRO 
SKIPN 
JRST 
PMSG 
GO 
SKIPA 

6PALNG:  GO 


EXPECT 

ALLST 

ERRFND,ASYNER 

NOGPA 
DXGPA 
EXPECT 
.*3 

AC1,-1 

ACl,aASYNEX 

SHORT 

GPALNG 

<DXGPA:  > 

PNTSTA 

REGPNT 


OA0A15  332  00  0  00  065216 
0A0A16  332  \^^  0  00  0652A5 
0A0A17  25A  00  0  00  0A0A27 


•OGPA:   SKIPE   ALLST 
SKIPE   EXPECT 
JRST    N0GP5 
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;Else,  don't  print 
;Read  reg 

;Skip  if  printing  octal 
;Else,  print  long  form 

;Go  print  status 

; Print  long  form 


Skip  if  printing  expected  status 

Skip  if  printing  all  status 

Skip  if  no  forced  sense  bit  error 

Skip  if  no  forced  sense  index  error 

Skip  if  no  suppress  auto  sense  bit  error 

Skip  if  no  forced  sense  index  error 

Don't  print 

Read  reg 

Skip  if  not  printing  expected  status 

Clear  data 

Skip  if  printing  octal 

Else,  print  long  form 

Go  print  status 
Print  long  form 


Skip  if  printing  expected  status 
Skip  if  printing  all  status 
Skip  if  no  asynch  error 

Don't  print 

Read  reg 

Skip  if  printing  expected  statv*- 

Else,  leave  reg  data  alone 

Clear  data 

Insert  expected  data 

Skip  if  printing  octal 

Else,  print  long  form 

Go  print  status 

Print  long  form 

Skip  if  not  printing  all  status 
Skip  if  not  printing  expected  status 
Else,  don't  print 


SEQ  0328 


»_ 

DFDXD 

DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 

DFDXDM 

MAC 

6-Apr-85  18:38 

STATUS 

PRINTER 

709A 

0A0A20 

027  05  0  00  000000 

RDREG 

DXGP5 

7095 

0A0A21 

336  00  0  00  065325 

SKIPN 

SHORT 

7096 

0A0A22 

25A  00  0  00  0A0A26 

JRST 

GP5LNG 

7097 

0A0A23 

037  02  0  00  056325 

PMS6 

<DXGP5:  > 

7098 

OA0A2A 

260  17  0  00  0A1335 

GO 

PNTSTA 

7099 

OAOA25 

33A  00  0  00  000000 

SKI  PA 

7100 

0A0A26 

260  17  0  00  0A727A 

GP5LNG: 

GO 

REGPNT 

7101 

7102 
7103 
71  OA 

; Print 

the  dx20 

gp  reg  6  (dxgp6) 

0A0A27 

332  00  0  00  065216 

N06P5 : 

SKIPE 

ALLST 

7105 

0A0A30 

332  00  0  00  0652A5 

SKIPE 

EXPECT 

7106 

0A0A31 

25A  00  0  00  0A0AA1 

JRST 

N0GP6 

7107 

OA0A32 

027  06  0  00  000000 

RDREG 

DXGP6 

7108 

0A0A33 

336  00  0  00  065325 

SKIPN 

SHORT 

7109 

0A0A3A 

25A  00  0  00  OAOAAO 

JRST 

GP6LNG 

7110 

OA0A35 

037  02  0  00  056327 

PMSG 

<DXGP6:  > 

7111 

0A0A36 

260  17  0  00  0A1335 

GO 

PNTSTA 

7112 

0A0A37 

33A  00  0  00  000000 

SKI  PA 

7113 

OAOAAO 

260  17  0  00  0A727A 

GP6LNG: 

GO 

REGPNT 

711A 

7115 
7116 
7117 

;♦  Print  the  dx20  gp  reg  7  (dxgp7) 

0A0AA1 

332  00  0  00  065216 

N0GP6 : 

SKIPE 

ALLST 

7118 

0A0AA2 

332  00  0  00  0652A5 

SKIPE 

EXPECT 

7119 

0A0AA3 

25A  00  0  00  0A0A53 

JRST 

N0GP7 

7120 

OAOAAA 

027  07  0  00  000000 

RDREG 

DXGP7 

7121 

OA0AA5 

336  00  0  OC  065325 

SKIPN 

SHORT 

7122 

0A0AA6 

25A  00  0  00  0AOA52 

JRST 

GP7LNG 

7123 

0A0AA7 

or   02  0  00  056331 

PMSG 

<DXGP7:  > 

71 2A 

OA0A5O 

2oJ  17  0  00  0A1335 

GO 

PNTSTA 

7125 

0A0A51 

33A  00  0  00  000000 

SKI  PA 

7126 

0A0A52 

260  17  0  00  0A727A 

GP7LNG: 

GO 

REGPNT 

7127 

7128 
7129 
7130 

;*  Print  the  dx 

20  ir  reg  (dxdrO)  CO 

OA0A53 

332  00  0  00  065216 

N0GP7: 

SKIPE 

ALLST 

7131 

0A0A5A 

332  00  0  00  0652A5 

SKIPE 

EXPECT 

7132 

0A0A55 

25A  00  0  00  0A0A65 

JRST 

NODRO 

7133 

0A0A56 

027  10  0  00  000000 

RDREG 

DXDRO 

71 3A 

0A0A57 

336  00  0  00  065325 

SKIPN 

SHORT 

7135 

OAOA60 

25A  00  0  00  0A0A6A 

JRST 

DROLNG 

7136 

0A0A61 

037  02  0  00  056333 

PMSG 

<DXDRO:  > 

7137 

0A0A62 

260  17  0  00  0A1335 

GO 

PNTSTA 

7138 

0A0A63 

33A  00  0  00  000000 

SKI  PA 

7139 

0A0A6A 

260  17  0  00  0A727A 

DROLNG. 

60 

REGPNT 

71A0 

71A1 
71A2 
71A3 

;♦  Print  the  d) 

f20  PC  reg  (dxdrD  CO 

0A0A65 

332  00  0  00  065216 

NODRO: 

SKIPE 

ALLST 

71 AA 

CA0A66 

332  00  0  00  0652A5 

SKIPE 

EXPECT 

71A5 

0A0A67 

25A  00  0  00  0AOA77 

JRST 

NODRl 

71A6 

OAOA 70 

027  11  0  00  000000 

RDREG 

DXDRl 

71A7 

0A0A71 

336  00  0  00  065325 

SKIPN 

SHORT 

71 A8 

OAOA 72 

25A  00  0  00  0A0A76 

JRST 

DRlLNG 
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;Read  reg 

;Skip  if  printing  octal 

;Else,  print  long  form 

;6o  print  status 

;Print  long  form 


;Skip  it  not  printing  all  status 

;Skip  if  not  printing  expected  status 

;Else,  don't  print 

;Read  reg 

;Skip  if  printing  octal 

;Else,  print  long  form 

;Go  print  status 

;Print  long  form 


SEQ  0329 


-kip 


,^iM^^  if  not  printing  all  status 

;Skip  if  not  printing  expected  status 

;Else,  don't  print 

;Read  reg 

;Skip  if  printing  octal 

;Else,  print  long  form 

;Go  print  status 

.-Print  long  form 


;Skip  if  not  printing  all  status 

.-Skip  if  not  printing  expected  status 

;Else,  don't  print 

;Read  reg 

;Skip  if  printing  octal 

;Else,  print  long  form 

;Go  print  status 

.-Print  long  form 


Skip  if  not  printing  all  status 

Skip  if  not  printing  expected  status 

Else,  don't  print 

Read  reg 

Skip  if  printing  octal 

Else,  print  long  form 


DFOXD 

DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 

DFDXDM 

MAC 

6-Apr-85  18:38 

STATUS 

PRINTER 

7H9 

0A0473 

037  02  0  00  056335 

PMSG 

<DXDR1:  > 

7150 

0A0A7A 

260  17  0  00  041335 

GO 

PNTSTA 

7151 

0A0A75 

334  00  0  00  000000 

SKI  PA 

7152 

040A76 

260  17  0  00  047274 

DR1LNG: 

GO 

REGPNT 

7153 

7154 

;*  Print  the  dx20  extended  status  ( 

71S5 

1  %  ^*  ^ 

7156 

040A77 

336  00  0  00  065245 

N0DR1 : 

SKIPN 

EXPECT 

7157 

040500 

336  00  0  00  065251 

SKIPN 

GETSNS 

7158 

040501 

254  00  0  00  040504 

JRST 

NOEXTS 

7159 

040502 

332  00  0  00  065216 

SKIPE 

ALLST 

7160 

040503 

260  17  0  00  042203 

GO 

PRTEXT 

7161 

040504 

332  00  0  00  065245 

NOEXTS: 

SKIPE 

EXPECT 

7162 

040505 

254  00  0  00  040513 

JRST 

SNSPN 

7163 

040506 

606  07  0  00  011775 

TRNN 

ERRFNDJ1775 

71 6A 

040507 

254  00  0  00  040513 

JRST 

SNSPN 

7165 

040510 

476  00  0  00  065245 

SETOM 

EXPECT 

7166 

040511 

037  02  0  00  056337 

PMSG 

<*EXPECTED:*> 

7167 

040512 

254  00  0  00  040130 

JRST 

RHPNT 
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;Go  print  status 

.•Print  long  form 

was  read) 

Skip  if  printing  expected  status 

Skip  if  ext  status  was  read 

Else,  don't  print 

Skip  if  not  printing  all  status 

Else,  print  extended  status 

Skip  if  haven't  printed  expected  status 

Jump  around 

Skip  if  "expected"  needed  for  error 

Set  expected  printing  flag 


SEQ  0330 


DFDXD   0X20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC      6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  100 


SEQ  0331 


7168 

7169 

7170 

7171 

7172 

7173 

71 7A 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

71 8A 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

71 9A 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

720A 

7205 


0A0513 
0A05U 
040515 
040516 
040517 
040520 
040521 
040522 
040523 
040524 
040525 
040526 
040527 
040530 


336  00  0 
254  00  0 
332  00  0 
254  00  0 
606  07  0 
254  00  0 
037  02  0 
201  05  0 


505  05 
200  00 
603  00 
476  00 
336  00 
254  00 


0 
0 
0 
0 
0 
0 


00  065251 
00  041305 
00  065216 
00  040521 
00  002000 
00  041305 
00  056341 
00  126005 
00  000006 
05  000000 
00  200000 
00  065260 
00  065325 
00  040550 


040531 
040532 
040533 
040534 
040535 
040536 
040537 
040540 
040541 
040542 
040543 
040544 
040545 
040546 
040547 


602  07  0 
037  02  0 
476  00  0 
205  06  0 
037  00  0 


200  01 
260  17 
6uc  07 
254  00 
037  02 
200  01 
650  01 
260  17 

253  06 

254  00 


1 
0 
0 
0 
0 
1 
0 
0 
0 
0 


00  002000 
00  056344 
00  030223 
00  111112 
00  030242 
00  000005 
00  041574 
00  002000 
00  040546 
00  056347 
00  000005 
06  126053 
00  041574 
00  040535 
00  041303 


;*  Print  the  sense  bytes  (if  they  were  read) 


SNSPN:   SKI FN 
JRST 
SKIPE 
JRST 
TRNN 
JRST 

STPSBH:  PMS6 
MOVE  I 
HRLI 
MOVE 
TLNE 
SETOM 
SKIPN 
JRST 


GETSNS 

DATPN 

ALLST 

STPSBH 

ERRFND,SNSERR 

DATPN 

(*SENSE  BYTES:  ) 

AC5,SNSAC1 

AC5.6 

(AC$) 

(INTVEN) 

INTVRD 

SHORT 

STPSBL 


Skip  if  sense  bytes  were  stored 

Else,  go  print  data  errors 

Skip  if  not  printing  all  status 

Go  to  print  the  header 

Skip  if  had  sense  error 

Else,  00  print  data  errors 

Print  neader 

Get  adr  of  first  sense  word 

Insert  index  to  ac5 

Get  sense  byte  0 

Skip  if  interven  req'd  is  clear 

Set  intvrd  flag 

Skip  if  short  print  mode 

Go  to  long  print  routine 


;*  Print  sense  bytes  in  octal 


STPSBO:  TRNE 
PMSG 

STPSBS:  SETOM 
MOVSI 
PCRL 
MOVE 
GO 

TRNN 
JRST 
PMSG 
MOVE 
TDC 
GO 

STPSBN:  AOBJN 
JRST 


ERRFND,SNSERR 
(J3]**   EXPECTED) 
PNTSPC 
AC6,-6 

ACl,aAC5 

PNTBYT 

ERRFND,SNSERR 

STPSBN 

(33) 

ACl,aAC5 

AC1,SNSDS1(AC6) 

PNTBYT 

AC6,STPSBS+2 

STPEXT 


;Skip  if  wasn't  sense  error 

.-Print  expected 

;Set  print  space  flag 

.•Counter 


Get  word  of  bytes 

Print  the  bytes 

Skip  if  was  sense  error 

Else,  don't  print  expected 

Print  two  tabs 

Get  word  of  bytes 

Change  wrong  bits 

Print  the  bytes 

Print  next  word  of  bytes 

Exit  routine 
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SEQ  0332 


7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 


040550  205  06  0  00  llllll 

040551  332  00  0  00  065342 

040552  254  00  0  00  040560 

040553  200  00  1  00  000005 


040554  612  00  0  06  056350 

040555  254  00  0  00  040531 

040556  253  06  0  00  040553 

040557  254  00  0  00  040564 

040560  200  00  1  00  000005 


040561 
040562 
040563 
040564 
040565 
040566 


612  00 
254  00 
253  06 

201  00 

202  00 
40?  00 


0  06  056356 
0  00  040531 
0  00  040560 
0  00  000015 
0  00  065224 
0  00  065245 


;*  Print  sense  byte  descriptions 


STPSBL:  MOVSI 
SKIPE 
JRST 

STPTX7:  MOVE 
TDNE 


JRST 

AOBJN 

JRST 

STPTX2:  MOVE 
TDNE 


JRST 
AOBJN 
STPSBX:  MOVE I 
MOVEM 
SETZM 


AC6.-6 

TXOJ 

STPTX2 

aAC5 

C000000000017 

427323607577 

777171577777 

776000007777 

776003770017 

001 777777777] (AC6) 

STPSBO 

AC6,STPTX7 

STPSBX 

aAC5 

C000000000017 

421000000057 

376031527777 

776000000017 

000003600017 

001 774003777] (AC6) 

STPSBO 

AC6-STPTX2 

*Dl5 

CARCT 

EXPECT 


.•Counter 

;Skip  if  not  a  tx02  controller 

;Else,  treat  as  tx02 

;6et  word  of  bytes 


; Check  if  any  undefined  bits  are  set 
.-Print  the  octal  representation 
.•Check  all  words 


;6et  word  of  bytes 


.•Check  if  any  undefined  bits  are  set 
.•Print  the  octal  representation 
.•Check  all  words 
;Set  up  carriage  position 

.•Clear  expected  flag 
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SEQ  0333 


7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

7264 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

nn 

7271 
7271^ 
7275 
727t 
7277 
727% 
7279 
7280 
7281 
7282 
7283 
7284 
7285 
7286 
7287 
7288 
7289 


;*  Check  error  bits 


040567 
040570 
040571 
040572 
040573 
040574 
040575 
040576 
040577 
040600 
040601 
040602 
040603 
040604 
040605 
040606 
040607 
040610 
04061 1 

040612 
04061 3 
040614 
04061 5 
040616 
040617 
040620 
040621 
040622 
040623 
040624 
040625 
040626 
040627 
040630 
040631 
040632 
040633 
040634 
040635 
040636 
040637 
040640 
040641 
040642 
040643 
040644 
040645 
040646 
040647 


476  00 
332  00 
254  00 
332  00 
254  00 
201  02 
260  17 
322  00 

201  02 
260  17 

202  00 
336  00 
254  00 

201  02 
260  17 

202  00 
201  00 
260  17 
254  00 

332  00 
254  00 
201  02 
260  17 
322  00 

201  02 
2oJ  17 

202  00 
336  00 
254  00 

201  02 
260  17 

202  00 
201  00 
260  17 
332  00 
254  00 
201  02 
260  17 
322  00 

201  02 
260  17 

202  00 
336  00 
254  00 

201  02 
260  17 

202  00 
201  00 
260  17 


0  00  065324 
0  00  065342 
0  00  040612 
0  00  065216 
0  00  040577 
0  00  126053 
0  00  041447 
0  00  040650 
0  05  000000 
0  00  041447 
0  00  000011 
0  00  065245 
0  00  040607 
0  00  126031 
0  00  041447 
0  00  000002 
0  00  041607 
0  00  041342 
0  00  040650 

0  00  065216 
0  00  040617 
0  00  126053 
0  00  041507 
0  00  040631 
0  05  000000 
0  00  041507 
0  00  000011 
0  00  065245 
0  00  040627 
0  00  126031 
0  00  041507 
0  00  000002 
0  00  041646 
0  00  041342 
0  00  065216 
0  00  040636 
0  00  126053 
0  00  041542 
0  00  040650 
0  05  000000 
0  00  041542 
0  00  000011 
0  00  065245 
0  00  040646 
0  00  126031 
0  00  041542 
0  00  000002 
0  00  041705 
0  00  041342 


STPSBR:  SETOM 
SKIPE 
JRST 
SKIPE 
JRST 
MOVE  I 
GO 

JUMPE 
MOVE  I 
GO 

MOVEM 
SKIPN 
JRST 
MOVE  I 
GO 

MOVEM 
MOVE  I 
GO 
JRST 

STPSEO:  SKIPE 
JRST 
MOVE  I 
GO 

JUMPE 
MOVE  I 
GO 

MOVEM 
SKIPN 
JRST 
MOVE  I 
GO 

MOVEM 
MOVE  I 
GO 

STPSE1:  SKIPE 
JRST 
MOVE  I 
GO 

JUMPE 
MOVE  I 
GO 

MOVEM 
SKIPN 
JRST 
MOVE  I 
GO 

MOVEM 
MOVE  I 
GO 


SEPR 
TX02 
STPSEO 
ALLST 

AC2,SNSDS1 

STPSBM 

STPSBA 

AC2,(AC5) 

STPSBM 

AC11 

EXPECT 

AC2,SNSEX1 

STPSBM 

AC2 

SNSU1A 

DESC 

STPSBA 

ALLST 

AC2,SNSDS1 

STPMR1 

STPSE1 

AC2,<:AC5) 

STPMR1 

AC11 

EXPECT 

.H 

AC2,SNSEX1 

STPMR1 

AC2 

SNSUIE 

DESC 

ALLST 

.+4 

AC2,SNSDS1 

STPMR2 

STPSBA 

AC2,(AC5) 

STPMR2 

AC11 

EXPECT 

AC2,SNSEX1 

STPMR2 

AC2 

SNSWIF 

DESC 


;No  separator  on  first 

;Skip  if  not  a  tx02  controller 

;Else,  treat  as  tx02 

;Skip  if  not  printing  all  status 

.-Merge  all  error  bits  together 

;Go  around  if  no  errors 
.-Merge  all  error  bits  to  print 

;Put  in  acll 

.-Skip  if  printing  expected 

.-Merge  expected  bits 

.-Put  in  ac 

;Adr  of  description  table 

.-Describe  the  bits 


Skip  if  not  printing  all  status 
Merge  all  error  bits  together 

Go  around  if  no  errors 

Merge  all  error  bits  to  print 

Put  in  acll 

Skip  if  printing  expected 

Merge  expected  bits 

Put  in  ac 

Adr  of  description  table 

Describe  the  bits 

Skip  if  not  printing  all  status 

Merge  all  error  bits  together 

Go  around  if  no  errors 

Merge  all  error  bits  to  print 

Put  in  ac11 

Skip  if  printing  expected 

Merge  expected  bits 

Put  in  ac 

Adr  of  description  table 

Describe  the  bits 


L, 


r 


DFDXD 
DFDXDM 

7290 

7291 

7292 

7293 

729A 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

73U 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  Z53A(1152)  18:38  6-Apr-85  Page  103 


SEQ  0334 


040650 
040651 
040652 
040653 
040654 
040655 
040656 
040657 
040660 
040661 
040662 
040663 
040664 
040665 


135  00 
336  00 
336  00 
322  00 
135  00 
332  00 
135  00 
271  00 
260  17 
271  03 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  02  0 
661  00  0 
037  02  1 


00  056364 
00  065245 
00  065216 
00  040666 
00  056365 
00  065245 
00  056366 
00  041642 
00  041414 
00  000003 
00  041375 
00  056367 
00  000020 
00  000000 


040666 
040667 
040670 
040671 
040672 
040673 
040674 
040675 
040676 
040677 
040700 
040701 
040702 
040703 
040704 


135 
336 
322 
135 
336 
254 
336 
4u- 
241 
336 
254 
135 
241 
201 
260 


00 
00 
00 
15 
00 
00 
00 
11 
11 
00 
00 
02 
02 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056370 
065216 
040705 
056371 
065216 
040676 
065245 
000000 

065245 
040703 
056372 

041634 
041342 


;*  Print  tu  status 


STPSBA:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

SKIPE 

LDB 

ADDI 

GO 

ADDI 

GO 

PMSG 

TLO 

PSIXM 


[POINT  2,SNSDS1J0] 

EXPECT 

ALLST 

STPSBI 

[POINT  2, (ACS)  JO] 

EXPECT 

[POINT  2,SNSEX1J0] 

SNSU1D 

STRLN 

AC3,3 

PNTSEP 

TU= 

20 

ao 


Check  if  error 

Skip  if  printing  expected 

Skip  if  printing  all  status 

Jump  around  if  no  error 

Get  tu  status  code 

Skip  if  not  expected 

Get  expected 

Adr  of  description  table 

Compute  length 

Add  first  message 

Print  a  separator 


;Set  indirect  bit 
; Print  description 


;*  7-Trk,  bot,  wr  status  and  protected 


STPSBI:  LDB 

SKIPN 

JUMPE 

LDB 

SKIPN 

JRST 

SKIPN 

AND 

ROT 

SKIPN 

JRST 

LDB 

ROT 

MOVE  I 

GO 


[POINT  4,SNSDS1J4J  ;Get  error  bits 

ALLST  ;Skip  if  printing  all  status 

STPS8B  ;Go  around  if  no  error 

REPT, [POINT  4, (ACS), 14]  ;Get  bits 

ALLST  ;Skip  if  printing  all  status 

.♦3 

EXPECT  ;Skip  if  printing  expected 

AC11,0  .'Clear  all  bits  not  in  error 

AC11.-4  .-Position 

EXPECT  ;Skip  if  printing  expected 

.♦3  ;No 

AC2. [POINT  4.SNSEX1J4]  ;Get  expected 

AC2.-4  .-Position 

SNSW1B  .-Adr  of  table 

DESC  .-Describe  the  bits 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC      6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  10A 


SEQ  0335 


7328 

•   ********t*t*******tr***«************** 

7329 

;♦  Trac 

k  in  error 

7330 

•  *********** **********t**«*****t****** 

7331 
7332 

0A0705 

135  00  0  00  056373 

STPSBB: 

LDB 

[POINT  8,SNSDS1,23] 

7333 

0A0706 

336  00  0  00  0652A5 

SKIPN 

EXPECT 

733A 

0A0707 

336  00  0  00  065216 

SKIPN 

ALLST 

7335 

0A0710 

322  00  0  00  0A0721 

JUMPE 

STPSB2 

7336 

0A071 1 

135  00  0  00  05637A 

LDB 

[POINT  8,(AC5),23] 

7337 

0A0712 

201  03  0  00  000022 

MOVE  I 

AC3,'^D18 

7338 

0A0713 

260  17  0  00  0A1375 

GO 

PNTSEP 

7339 

0A071A 

037  02  0  00  056375 

PMSG 

TRACK  IN  ERROR= 

73A0 

0A0715 

A02  00  0  00  030223 

SETZM 

PNTSPC 

73A1 

0A0716 

332  00  0  00  0652A5 

SKIPE 

EXPECT 

73A2 

0A0717 

135  00  0  00  056A00 

LDB 

[POINT  8,SNSEX1,23J 

73A3 

0A0720 

037  03  0  00  000000 

PNT3 

73AA 

•  ************************************* 

73A5 

;♦  Density  and 

direction 

73A6 

•  ************************************* 

• 

75^7 
73A8 

0AO721 

135  00  0  00  056A01 

STPSB2: 

LDB 

[POINT  2,SNSDS1,30] 

73A9 

0A0722 

336  00  0  00  065216 

SKIPN 

ALLST 

7350 

0A0723 

322  00  0  00  0A07A0 

JUMPE 

STPSBD 

7351 

0A072A 

135  11  0  00  056A02 

LDB 

AC11, [POINT  2,(AC5),30] 

7352 

0A0725 

332  00  0  00  065216 

SKIPE 

ALLST 

7353 

0AO72t 

25A  00  0  00  0A0731 

JRST 

."^3 

735A 

0A0727 

336  00  0  00  0652A5 

SKIPN 

EXPECT 

7355 

0AO73O 

AOA  11  0  00  000000 

AND 

AC11,0 

7356 

0A0731 

2A1  11  0  00  777776 

ROT 

AC11,-2 

7357 

0A0732 

336  00  0  00  0652A5 

SKIPN 

EXPECT 

7358 

0A0733 

23  00  0  00  0A0736 

JRST 

♦3 

7359 

0AO73A 

135  02  0  00  056A03 

LDB 

AC2, [POINT  2,SNSEX1,30] 

7360 

0A0735 

2A1  02  0  00  777776 

ROT 

AC2,-2 

7361 

0A0736 

201  00  0  00  0A16A0 

MOVE  I 

SNSWIC 

7362 

0AO737 

260  17  0  00  0A13A2 

GO 

DESC 

;Get  error  bits 

;Skip  if  printing  expected 

;Skip  if  printing  all  status 

;Go  around  if  no  error 

;Get  track  in  error  bits 

;Size  of  message 

;Print  a  separator 

.-Clear  print  space  flag 

;Skip  if  not  expected 

;6et  expected 

.-Print 
********************************* 

********************************* 


Get  error  bits 

Skip  if  printing  all  status 

Go  around  if  no  error 

Get  bits 

Skip  if  not  printing  all  status 

Skip  if  printing  expected 

Print  only  bits  in  error 

Position 

Skip  if  printing  expected 

No 

Get  expected 

Position 

Adr  of  table 

Describe  the  bits 


DFDXD 
DFDXDM 

7363 
736A 
7365 
7366 
7367 

7368 

7369 

7370 

7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

738A 

7385 

7386 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 
7409 
7410 

7411 
7412 

7413 


DX20-V^00  MAGNETIC  TAPE 
MAC     6-Apr-85  18:38 


SUBSv^TEM  DIAGNOSTIC  (RH20) 
STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18;38  6-Apr-85  Page  105 


SEQ  0336 


040740 
040741 
040742 
040743 
040744 
040745 
040746 
040747 
040750 
040751 
040752 
040753 
040754 
040755 
040756 
040757 
040760 
040761 
040762 
040763 
040764 
040765 
040766 
040767 

040770 
040771 
040772 
040773 
040774 
040775 
040776 
040777 

041000 
041001 
041002 
041003 
041004 
041005 
041006 
041007 
041010 
041011 
041012 
041013 
041014 


332  00  0 
254  00  0 
200  01  0 
332  00  0 
254  00  0 
607  01  0 
254  00  0 


260  17 
332  00 
254  00 
202  00 


0 
0 
0 
0 


200  01  0 
260  17  0 


202  00 
336  00 
404  11 
254  00 
202  00 


0 
0 
0 
0 
0 


200  01  0 
260  17  0 


202  00 
201  00 
260  17 
254  00 


2uJ  01 
332  00 
25'.  00 
616  01 
254  00 
260  17 
332  00 
254  00 
202  00 
200  01 
260  17 
202  00 
336  00 
404  11 
254  00 
202  00 

200  01 
260  -i? 
202  00 

201  00 
260  ^7 


0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  065342 
00  040770 
00  126054 
00  065216 
00  040747 
00  110414 
00  041015 
00  041475 
00  065245 
00  040761 
00  000002 
05  000001 
00  041475 
00  000011 
00  065216 
00  000002 
00  040765 
00  000011 
00  126032 
00  041475 
00  000002 
00  041716 
00  041342 
00  041015 


00 
00 
00 
00 
00 
00 
OC 
00 
00 
05 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


126054 
065216 
040775 
056404 
041015 
041560 
065245 
041007 
000002 
000001 
041560 
000011 
065216 
000002 
041013 
000011 
126032 
041560 
000002 
041724 
041342 


;*  Ti,  Iwr.  sub-syscem,  diag  mode  and  rpq  (txOI) 

;♦  Ti,  lyr,  sub-syslem,  rpq,  7-trk,  dd  dn'y/e,  not  1600  (tx02) 


STPSBD:  SKIPE 
JRST 
MOVE 
SKIPE 
JRST 
TLNN 
JRST 
GO 

SKIPE 
JRST 
MOVEM 
MOVE 
GO 

MOVEM 
SKIPN 
AND 
JRST 
MOVEM 
MOVE 
GO 

MOVEM 
MOVE  I 
GO 
JRST 

STPT2A:  MOVE 
SKIPE 
JRST 
TDNN 
JRST 
GO 

SKIPE 
JRST 
MOVEM 
MOVE 
GO 

MOVEM 
SKIPN 
AND 
JRST 
MOVEM 
MOVE 
GO 

MOVEM 
MOVE  I 
GO 


TX02 

STPT2A 

AC1,SNSDS2 

ALLST 

.♦3 

AC1J10414 

STPSyj 

STPSBI 

EXPECT 

.♦8 

AC2 

AC1,i(AC5) 

STPSBI 

AC11 

ALLST 

AC11.AC2 

.♦5 

AC11 

AC1.SNSEX2 

STPSBI 

AC2 

SNSy2A 

DESC 

STPSWJ 

AC1,SNSDS2 

ALLST 

.♦3 

AC1,C110406,, 600000] 

STPsyj 

STPMR3 

EXPECT 

.♦8 

AC2 

AC1,1(AC5) 

STPMR3 

AC11 

ALLST 

AC11,AC2 

.♦5 

AC11 

AC1,SNSEX2 

STPMR3 

AC2 

SNSy2D 

DESC 


;Skip  if  not  tx02  controller 

;Else.  treat  as  tx02 

;Get  error  bits 

;Skip  if  not  printing  all  status 

;Skip  if  any  error 

;Go  around 

.-Merge  the  bits 

;Skip  if  not  printing  expected 

;Put  in  ac 

;Get  actual  bits 

;Merge  the  bits 

;Put  in  acll 

;Skip  if  printing  all  status 

;Print  only  bits  in  error 

;Put  in  acll 

;Get  expected  bits 

; Merge  the  bits 

;Put  in  ac 

;Adr  of  description  table 

; Describe  the  bits 


;Get  error  bits 

;Skip  if  not  printing  all  status 

;Skip  if  error 

;Go  around 

.-Merge  the  bits 

.-Skip  if  not  printing  expected 

;Put  in  ac 

.-Get  actual  bits 

;Merge  the  bits 

;Put  in  acll 

;Skip  if  printing  all  status 

;Print  only  bits  in  error 

.-Put  in  acll 

;6et  expected  bits 

.'Merge  the  bits 

;Put  in  ac 

;Adr  of  description  table 

.-Describe  the  b'ts 


D^OXD       DX20-V100  WAGNEMC   TAPE   SUBSYSTEM  DIAGNOSTIC    (RH20) 
DFDXDW     f^AC  6-Apr-85   18:38  STATUS  PRINTER 


VERSION  0.5  MACRO  X53A(1152)   18:38     6-Apr-85  Page  106 


SEQ  0337 


7AU 

7AT5 

7416 

7417 

7418 

7419 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7428 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

744^ 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 


041015 
041016 
041017 
041020 
041021 
041022 
041023 
041024 
041025 
041026 
041027 


135 
336 
336 
322 
201 
260 
037 
135 
332 
135 
037 


00 
00 
00 
00 
03 
17 
02 
00 
00 
00 
16 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056405 
065245 
065216 
041030 
000010 
041375 
056406 
056410 
065245 
056411 
000003 


041030 
041031 
041032 
041033 
041034 
041 035 
041036 
041037 

041040 
041041 
041042 


135 
336 
322 
135 
241 
336 
254 
135 
241 
201 
2c. » 


00 
00 
00 
11 
11 
00 
00 
02 
02 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056412 
065216 
041043 
056413 
mill 
065245 
041041 
056414 
mill 
041723 
041342 


041043 
041044 
041045 
041046 
041047 
041050 
041051 
041052 
041053 
041034 
041055 
041056 
041057 


336  00 
254  00 
135  00 
336  00 
322  00 
135  11 
241  11 
336  0^  0 
254  00  0 


0 
0 
0 
0 
0 
0 
0 


135  02 
241  02 
201  00 
260  17 


00  065342 
00  041060 
00  056415 
00  065216 
00  041060 
00  056416 

00  mm 

00  065245 
00  041056 
00  056417 

00  mm 

00  041734 
00  041342 


;»  Tape  unit  model  identification 

STPSyj:  LDB    [POINT  4,SNSDS2,23]     ;Get  model  type 

Skip  if  not  print  ma  expected 
Skip  if  printing  all  status 
Jump  if  no  error 
Size  of  message 
Print  a  separator 

Get  actual  bits 

Skip  if  not  printing  expected 

Get  expected 

Print 

'    ♦*♦*♦»»♦»*»♦•♦***♦♦*♦♦♦♦♦♦*«**♦♦♦•*♦•*•♦•♦♦♦♦♦*♦♦♦♦♦♦**♦♦*♦*•♦♦**♦**♦* 

;♦  Data  security  erase 


LDB 

[POINT  4,SNSDS2,23] 

SKIPN 

EXPECT 

SKIPN 

ALLST 

JU«PE 

STPSB3 

MOVE! 

AC3,8 

GO 

PNTSEP 

P«S6 

NODEL= 

LDB 

[POINT  4J(AC5),233 

SKIPE 

[XPECT 

LDB 

[POINT  4,SNSEX2,23] 

PNTOCS 

STPSB3:  LDB 

SKIPN 

JU«PE 

LDB 

ROT 

SKIPN 

JRST 

LDB 

ROT 

MOVE  I 

GO 


[POINT  1,SNSDS2,28]  ;Get  bit 

ALLST  ;SKip  if  printing  all  status 

STPTXC  ;Go  around  if  no  error 

ACll, [POINT  1J(AC5),28]       ;Get  actual  bit 

AC11,-1  ; Posit  ion 

EXPECT  ;Skip  if  printing  expected 

.♦3  ;No 

AC2, [POINT  1,SNSEX2.28J  ;Get  expected 

AC2,-1  .-Position 

SNSW2C  ;Adr  of  table 

DESC  .-Describe  the  bit 


;*  6250  Tcu  (tx02  controller  only) 


STPTXC:  SKIPN 
JRST 
LDB 
SKIPN 
JUMPE 
LDB 
ROT 
SKIPN 
JRST 
LDB 
ROT 
MOVE  I 
GO 


TX02  ;Skip  if  a  tx02  controller 

STPSBK  ;Else.  jump  around 

[POINT  1.SNSDS3.123  ;Get  bit 

ALLST  ;Skip  if  printing  all  status 

STPSBK  .-Jump  if  no  error 

ACll, [POINT  1.2(AC5).12D       ;Get  ac  ual  bit 

ACll.-l  .-Position 

EXPECT  .-Skip  if  printing  expected 

.+3 

AC2. [POINT  1,SNSEX3.12]  ;Get  expected  bit 

AC2,-1  .-Position 

3NSW3B  .-Adr  of  table 

DESC  .-Print  description 


r 


DFDXD 
DFDXDM 

7463 

7A6A 

7465 

7466 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7^7^ 

7475 

7476 

7^77 

7^78 

7479 

7480 

7481 

7482 

7483 

7484 

7485 

74P6 

7^6/ 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 


DX20-V1 
MAC 


00  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  107 


SEQ  0338 


041060 
041061 
041062 
041063 
041064 
041065 
041066 
041067 
041070 
041071 
041072 


041073 
041074 
041075 
041076 
041077 
041100 
041101 
041102 
041103 
041104 
041105 


041106 
041107 
041110 
041111 
041112 
041113 
041114 
041115 
041116 
041117 
041120 


135 
336 
322 
135 
241 
336 
254 
135 
241 
201 
260 


00 
00 
00 
11 
11 
00 
00 
02 
02 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056420 
065216 
041073 
056421 
777777 
065245 
041071 
056422 
777777 
041733 
041342 


135  00 
336  00 
336  00 
322  00 
135  02 
201  03 
260  17 
037  02 
332  00 
13S  02 
0:.'  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
0? 


056423 
065245 
065216 
041106 
056424 
000032 
041375 
056425 
065245 
056430 
041735 


135  00 
336  00 
336  00 
322  00 
135  00 
201  03 
260  17 
037  02 
332  00 
135  00 
006  CO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

c 


00 
00 
00 
00 
CO 
00 
00 
00 
00 
00 
00 


056431 
065245 
065216 
041121 
056432 
000017 
041375 
056433 
065245 
056435 
000000 


;♦  Tcu  reserved 


STPSBK:  LDB 

SKIPN 

JUMPE 

LDB 

ROT 

SKIPN 

JRST 

LDB 

ROT 

MOVE  I 

GO 


[POINT  1,SNSDS3J5]  ;Get  bit 

ALLST  ;Skip  if  printing  all  status 

STPSB4  ;Jump  if  no  error 

AC11, [POINT  1,2(AC5),15]       ;Get  actual  bit 

AC11,-1  .-Position 

EXPECT  ;Skip  if  printing  expected 

.+5 

AC2, [POINT  1,SNSEX3,15]  ;Get  expected  bit 

AC2,-1  .-Position 

SNSW3A  ;Adr  of  table 

DESC  .-Describe  the  bits 


;♦  Cu  features 


STPSB4:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

MOVE  I 

GO 

PMSG 

SKIPE 

LDB 

PSIXM 


[POINT  2,SNSDS4.9] 

EXPECT 

ALLST 

STPS85 


;Get  error  bits 
;Skip  if  printing  expected 
.-Skip  if  printing  all  status 
;6o  around  if  no  error 


AC2. [POINT  2.3(AC5).93  .-Get  cu  features 


AC3.'^D26 

PNTSEP 

CU  FEATURES= 

EXPECT 


AC2. [POINT  2.SNSEX4.7]  ;Get  expected 


.-Size  of  message 
.-Print  a  separator 

.-Skip  if  not  printing  expected 


aSNSU4A(AC2) 


.-Print  description 


;*  Control  unit  serial  number 


STPSB5:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

MOVE  I 

GO 

PMSG 

SKIPE 

LDB 

PDEC 


[POINT  14.SNSDS4.23] 

EXPECT 

ALLST 

STPT2D 

[POINT  14.3(AC5).23] 

AC3.*D15 

PNTSEP 

CU  SERIAL= 

EXPECT 

[POINT  14.SNSEX4.23] 


.-Get  error  bits 

.-Skip  if  printing  expected 

.-Skip  if  printing  all  status 

;Go  around  if  nc  error 

.-Get  serial  no. 

.-Size  of  message 

.-Print  a  separator 

;Skip  if  not  printing  pxpected 
;Get  expected  bits 
; Print  no. 


r 


DFDXD 
DFDXDM 

7510 

7511 

7512 

7513 

751A 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

752A 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

753A 

7535 

7536 

7537 

7538 

7539 

75A0 

75A1 

75A2 

75A3 

75AA 

75A5 

75A6 

75A7 

75A8 

75A9 
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SEQ  0339 


041121 
0A1122 
0A1123 
041 124 
041125 
041126 
041127 
041130 
041131 
041132 
041133 
041134 
041135 
041136 
041137 
041140 
041141 
041142 
041143 
041144 


336  00  0 
254  00  0 


135 
135 
241 


00 
01 
01 


0 
0 
0 


246  00  0 
336  00  0 
336  00  0 


322 
201 
332 
201 
135 
135 
241 


00 
01 
00 


0 
0 
0 


02  0 


00 
01 
01 


246  00  0 
201  03  0 
260  17  0 
037  02  0 
006  00  0 


00  065342 
00  041145 
00  056436 
00  056437 
00  77777^ 
00  000010 
00  065245 
00  065216 
00  041145 
05  000003 
00  065245 
00  126034 
00  056440 
00  056441 
00  77777^ 
00  000010 
00  000017 
00  041375 
00  056442 
00  000000 


04114S 
041146 
041147 
041150 
041151 
041152 
041153 
041154 
041155 
041156 
041157 


135 
53c 
322 
135 
241 
336 
254 
135 
241 
201 
260 


00 
00 
00 
11 
11 
00 
00 
02 
02 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  056444 
00  065216 
00  041160 
00  056445 
00  777777 
00  065245 
00  041156 
00  056446 
00  777777 
00  041741 
00  041342 


•  ****if*********t********^*********** *********************************** 
;*  Tu  serial  number  (tx02  controller  only) 


STPT2D:  SKIPN 
JRST 
LDB 
LDB 
ROT 
LSHC 
SKIPN 
SKIPN 
JUMPE 
MOVEI 
SKIPE 
MOVEI 
LDB 
LDB 
ROT 
LSHC 
MOVEI 
GO 

PMSG 
PDEC 


TX02 

STPSB7 

[POINT  8,SNSDS4,31J 

AC1, [POINT  8,SNSDS5,7] 

ACl,-8 

8 

EXPECT 

ALLST 

STPSB7 

AC1,3(AC5) 

EXPECT 

At2,SNSEX4 

[POINT  8,(AC2),3n 

AC1, [POINT  8J(AC2),7: 

ACl,-8 

8 

AC3/D15 

PNTSEP 

TU  SERIAL= 


Skip  if  a  tx02  controller 

Else,  jump  around 

Get  error  bits 

Get  error  bits 

Combine  hi  and  lo  order  bits 

Skip  if  print if(g  expected 

Skip  if  printing  all  status 

Go  around  if  no  error 

Get  address  af  actual  data 

Skip  if  not  printing  expected 

Get  address  of  expected  data 

Get  error  bits 

Get  error  bits 

Combine  hi  and  lo  order  bits 

Size  of  message 
Print  a  separator 

Print  no. 


;*  2  Channel  switch  feature 


STPSB7:  LDB 

SKIPN 

JUMPE 

LDB 

ROT 

SKIPN 

JRST 

LDB 

ROT 

MOVEI 

GO 


[POINT  1,SNSDS5,8J 

ALLST 

STPSBP 

AC11, [POINT  1,4(AC5),8] 

AC11,-1 

EXPECT 

.+3 

AC2, [POINT  1,SNSEX5,8] 

AC2,-1 

SNSW5A 

DESC 


Get  error  bit 

Skip  if  printing  all  status 

Go  around  if  no  error 

Get  2cs  bit 

Position 

Skip  if  printing  expected 

No 

Get  expected  bit 

Position 

Adr  of  table 

Describe  bit 
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SEQ  03A0 


7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 

7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7591 
7592 
75'?3 
75  M 
7595 
7596 
7597 


041160 
041161 
041162 
041163 
041164 
041165 
041166 
041167 
041170 
041171 
041172 
041173 


041174 
041175 
041176 
041177 
041200 
041201 
041202 
041203 
041204 
041205 
041206 


041207 
041210 
041211 
041212 
041213 
041214 
041215 
041216 
04U17 
041220 
041221 


135  00 
336  00 
336  00 
322  00 
135  00 
322  00 
201  03 
260  17 
037  02 
332  00 
135  00 
037  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056447 
065245 
065216 
041174 
056450 
041174 
00001 1 
041375 
056451 
065245 
056453 
000000 


135  00 
336  00 
336  00 
322  00 
135  00 
201  03 
260  17 
037  02 
33?  00 
13?  00 
037  16 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


056454 
065245 
065216 
041207 
056455 
000016 
041375 
056456 
065245 
056461 
000003 


135  00 
336  00 
336  00 
322  00 
135  00 
201  03 
260  17 
037  02 
332 


00 
00 

037  16 


135 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  0564o2 
00  065245 
00  065216 
00  041222 
00  056463 
00  000016 
00  041375 
00  056464 
00  065245 
00  056467 
00  000003 


;*  Switch  features 


STPSBP:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

JUMPE 

MOVE  I 

GO 

PMSG 

SK I PE 

LDB 

PNT1 


[POINT  3,SNSDS5J1] 

EXPECT 

ALLST 

STPSfiS 

[POINT  3,4(AC5),11J 

STPSB8 

AC3,9 

PNTSEP 

SU  FEAT= 

EXPECT 

[POINT  3,SNSEX5,in 


;6et  error  bits 

;Skip  if  pr'nting  expectected 

;Skip  if  printing  all  status 

;Go  around  if  no  error 

;6et  sw.  feature 

;Jump  if  zero 

;Si2e  of  separator 

.-Print  a  separator 

;Skip  if  not  printing  expected 
;6et  expected  bits 
; Print 


;♦  Tcu  diagnostic  release  level 


STPSB8:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

MOVE  I 

GO 

PMSG 

SKIPE 

LDB 

PNTOCS 


[POINT  4,SNSDS5,15] 

EXPECT 

ALLST 

STPSBY 

[POINT  4,4(AC5)J5: 

AC3,^D14 

PNTSEP 

CU  EC  LEVEL= 

EXPECT 

[POINT  4,SNSEX5,15: 


Get  error  bits 

Skip  if  printing  expected 

Skip  if  printing  all  status 

Go  around  i .'  no  error 

Get  ec  level 

Size  of  message 

Print  a  separator 

Skip  if  not  printing  expected 

Get  expected  bits 

Print 


;*  Tu  ec  level  (tx02  controller  only) 


STPSBY:  LDB 

SKIPN 

SKIPN 

JUMPE 

LDB 

MOVE  I 

GO 

PMSG 

SKIPE 

LDB 

PNTOCS 


[POINT  4,SNSDS5,23] 

EXPECT 

ALLST 

STPSB9 

[POINT  4,4(AC5),23] 

AC3,*D14 

PNTSEP 

TU  EC  LEVEL= 

EXPECT 

[POINT  4,SNSEX5,23] 


Get  error  bits 

Skip  if  printing  expected 

Skip  if  printing  all  status 

Go  around  if  no  error 

Get  ec  level 

Size  of  message 

Print  a  separator 

Skip  if  not  printing  expected 

Get  expected  bits 

Print 


L_. 
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VERSION  0.5 
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SEQ  03A1 


7593 

7599 

7600 

7601 

7602 

7603 

760A 

7605 

7606 

7607 

7608 

7609 

7610 

7611 

7612 

7613 

76U 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

762A 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

763A 

7635 

7636 

7637 

7638 

7639 

76A0 

76A1 

76A2 

76A3 

76A4 

76A5 

76A6 


0A1222 
0A1223 
041 224 
041225 
041226 
041227 
041230 
041231 
041232 
041233 
041234 
041235 
041236 
041237 
041240 
041241 
041242 
041243 
041244 
0412'*^ 
041 24o 
041247 
041250 
041251 
041252 
041253 
041254 


041255 
041256 
041257 
041260 
041261 
041262 
041265 
041264 
041265 
041266 
041267 
041270 
041271 


135  03 
135  02 
241  03 
246  02 
322  02 
201  02 
332  00 

201  o: 

135  03 
135  02 
241  03 
246  02 
322  02 
331  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
037  00  0 
037  02  0 
403  00  0 


241  02 
325  02 
332  00 
037  00 

261  17 
037  16 

262  17 
271  03 
305  00 
5m-  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


336  00 
254  00 
135  00 
336  00 
322  00 
135  11 
241  11 
336  00 
254  00 
135  02 


241 

201 


02 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


260  17  0 


00  065342 
00  041272 
00  056500 
00  065216 
00  041272 
00  056501 
00  777777 
00  065245 
00  041270 
00  056502 
00  (77777 
0^  0417A? 
f  1  041342 


;♦  Units  with  busy  status 


♦♦»*♦♦*♦♦**♦»♦♦♦*♦♦♦♦**♦♦♦#♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


00  056470 

STPSB9:  LDB 

AC3, [POINT  8,SNSDS5,31 

00  056471 

LDB 

AC2, [POINT  8,SNSDS6,7J 

00  77777^ 

ROT 

AC3,-8 

00  000010 

LSHC 

AC2,8 

00  041255 

JUMPE 

AC2,STPSBZ 

05  00000' 

MOVE  I 

AC2,4(AC5) 

00  065245 

SKIPE 

EXPECT 

00  126035 

HOVE  I 

AC2,SNSEX5 

00  056440 

LDB 

AC3, [POINT  8,(AC2),3n 
AC2, [POINT  8J(AC2),7: 

00  056441 
00  77777^ 

LDB 

ROT 

AC3,-8 

00  000010 

LSHC 

AC2,8 

00  041255 

JUMPE 

AC2.STPSBZ 

00  065324 

SKIPL 

SEPR 

00  030244 

PNTMSG 

COMMA 

00  056472 

PMS6 

UNITS  WITH  BUSY 

00  000003 

SETZB 

AC3 

00  777777 

STPSBU:  ROT 

AC2,-1 

00  041253 

JUMP6E 

AC2,STF'BUX 

00  000003 

SKIPE 

AC3 

00  030244 

PNTMSG 

COMMA 

00  000000 

PUT 

0 

00  000003 

PNTOCS 

00  000000 

GET 

0 

00  000001 

ADD  I 

AC3J 

00  000017 

STPBUX:  CAI6E 

17 

00  041243 

AOJA 

STPSBU 

.-Combine  both  words 

;Go  around  if  no  error 
;Get  adr  of  actual  bits 
;Skip  if  printing  expected 
;Get  adr  of  expected  data 
;Get  bits 

.•Combine  both  words 

.-Jump  if  nothing  to  print 
;Skip  if  first  Being  printed 
.'Print  a  comma 

;tatus= 

; Clear  counters 

.•Shift  d  bit  to  bit  0 

.-Jump  if  bit  zero  not  set 

;Skip  if  first  number 

; Print  a  comma 

.•Save  acO 

.-Print  unit  no. 

.•Restore  acO 

; Count  units  printed 

.-Skip  if  ter.ted  all  bits  - 

.-Tv?st  next  bit 

;♦  Mod  iv  bit  (tx02  controller  only) 

• 

oTPSBZ:  SKIPN  TX02  ;Skip  if  a  tx02  controller 

JRST  STPSt  ;Else,  jump  around 

LDB  [POINT  1.SNSDS6.24]  ;Get  bit 

SKIPN  ALLST  ;Skip  if  printing  all  status 

JUMPE  STPSBE  ;Jump  if  no  error 

LDB  AC11. [POINT  1.5(AC5).24]  ;Get  actual  b^t 

ROT  AC11.-1  .-Position 

SKIPN  EXPECT  .-Skip  if  printing  expected 

JRST  .-^3 

LDB  AC2. [POINT  1.SNSEX6.24]  ;Get  expected  bit 

ROT  AC2.-1  .-Position 

MOVEI  SNSW6A  .-Adr  of  table 

GO  DESC  .-Print  description 


DFDXD 
DFDXDM 

76A7 
76A8 
76A9 
7650 
7651 
7652 
7653 
7654 
7655 
7656 
7657 


D)(20-V100  MAGNEMC  TAP^  SUBSYSTE?!  DIAGNOSTIC  (R.-I20) 
6-Apr-85 


VERSION  0.5 


MAC 

0A1272 
0A1273 
0A1274 
041275 
041276 
041277 
041300 
041301 
041302 
041303 
041304 


336  00  0 
606  07  0 
254  00  0 


0! 


476  00 

201  00 

202  00 
254  00 
037  00 
476  00 


0 
0 
0 
0 
0 
0 
0 
0 


18:38 

00  065245 
00  002000 
CO  041303 

88  mil 

00  065245 
00  000015 
00  065224 
00  040567 
00  030242 
00  030223 


STATUS  PRINTER 

STPSBE:  SKIPN 
TRNN 
JRST 

STPSBG:  PSIXM 
MOVE  I 
SETOM 
MOVE  I 
MOVEM 
JRST 

STPEXT:  PCRL 
SETOM 


EXPECT 

ERRFND.SNSERR 

STPEXT 

EXPECL 

AC5,SNSDS1 

EXPECT 

*D13 

CARCT 

STPS8R 

PNTSPC 
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;Skip  if  printed  expected 

;Skip  if  nad  senue  error 

;No  errors  found 

; Print  expected 

;6et  adr  of  error  bits 

;Set  printing  expected  flag 

;Set  up  carriage  position 

;Go  thru  print  routine  again 
.-Print  carriage  return 
;Set  space  print  flag 


SEQ  0342 
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SEQ  03A3 


7658 

7659 

7660 

7661 

7662 

7663 

766A 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 

767A 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

768A 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 

769A 

7695 

7696 


0A1305 
0A1306 
0A1307 
0A131O 
0A1311 
0A1312 
0A1313 
0A131A 
0A1315 
0A1316 


602  07 
260  17 
336  00 
25A  00 
332  00 
25A  00 


0 
0 
0 
0 
0 
0 


037  02  0 
200  00  0 
037  13  0 
037  00  0 


00  OOAOOO 
00  0A17A3 
00  0653A7 
00  0A1317 
00  065310 
00  0A1317 
00  056503 
00  0652A0 
00  000000 
00  0302A2 


0A1317 
0A132O 
0A1321 
0A1322 
0A1323 
0A132A 
0A1325 
0A1326 
0A1327 
0A1330 
0A1331 
0A1332 
0A1333 
0A133A 

0A1335 
0A1336 
0A1337 
0A13A0 
0A13A1 


336  00 
263  17 
037  01 
037  02 
005  00 
037  02 


0 
0 
0 
0 
0 
0 


200  01  0 
A02  00  0 
037  02  0 
336  00  0 


25A  00 
2oJ  17 
A02  00 
254  00 


00  065260 
00  000000 
00  000026 
00  056510 
00  126077 
00  056521 
OC  ''6077 

01  i:-ioo 

00  056525 
00  030037 
00  030000 
00  0A6707 
00  030056 
00  0306A3 


200  00  0  00  000001 

A05  00  0  00  M1711 

037  06  0  00  000000 

037  00  0  00  0302A2 

263  17  0  00  000000 


♦  Print  data  errors  if  there  were  any.  if  a  write  xfer,  print  data  pattern. 


DATPN:  TRNE 
GO 

SKIPN 
JRST 
SKIPE 
JRST 
PMSG 
MOVE 
PNTHW 
PCRL 


;Skip  if  no  data  error 

;6o  print  buffer  contents 

;Skip  if  xfer  cmd 

;Else,  go  check  for  intervention  req'd 

;Skip  if  not  read  cmd 


ERRFND,DATERR 
PNTBUF 
XFRCMD 
INTVCK 

RDCOMD  ._  .     -   

INTVCK  ;Else,  go  check  for  intervention  req  d 

(*DATA  IN  WRITE  BUFFER  IS  ) 
DPAT  ;Get  data  pattern 

.-Print  it 


♦  If  intervention  req'd  bit  was  set  in  sense  byte,  abort  this  pass. 


INTVCK:  SKIPN 
RTN 
PFORCE 
PMSG 
PNTNUM 
PMSG 
MOVE 
SETZM 
PMSG 
SKIPN 
JRST 
GO 

SETZM 
JRST 

PNTSTA:  MOVE 
AND  I 
PNT6 
PCRL 
RTN 


INTVRD 


;Skip  if  intervention  required 


(••♦♦♦♦♦•OPERATOR  INTERVENTION  REQUIRED  ON  DRIVE  #) 


DRVADR 

(•ABORTING  THIS  PASS'*) 

AC1, DRVADR 

UNITO(ACI) 

<'^'^RESTARTING  .  .  .'*•> 

USER 

BEGIN 

DEVREL 

SONETM 

START 

AC1 
M1171 


.-Print  unit  address 

.-Get  unit  address 
.-Clear  unit  table  enty 

;IN  USER  MODE  SKIP 

.-RELEASE  DEVICE 
.-DO  FULL  STARTUP 
.-START  OVEO 

.-Put  data  into  acO 
.-Only  print  data 


DFDXD 
DFOXDM 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

770A 

7705 

7706 

7707 

7708 

7709 

7710 

7711 

7712 

7713 

771 A 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

7727 

7728 

7729 

7730 

7731 

7732 

7733 

7734 

7735 

7736 

7737 

7738 


0X20-V100  MAGNETIC  TAPE 
MAC  6-Apr-85  18:38 


SUBSYSTEM  DIAGNOSTIC   (RH20) 
STATUS  PRINTER 


VERSION  0.5  MACRO  X53A(1152)   18:38     6-Apr-85  Page  113 


SEQ  0344 


041342 
041343 
041344 
041345 
041346 
041347 
041350 
041351 
041352 
041353 
041354 
041355 
041356 
041357 
041360 
041361 
041362 
041363 
041364 
041365 
041366 

041367 
041370 
041371 

041372 
041373 
041374 


243  11 
263  17 

270  00 
260  17 
332  00 

271  03 
260  17 
661  00 
037  02 
621  00 
242  11 
336  00 
344  00 
037  00 
242  02 
331  00 
037  00  0 
33S  00  0 
Gi'  00  0 
242  02  0 
344  00  0 


0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 


00  041344 
00  000000 
00  000012 
00  041414 
00  065245 
00  000002 
00  041375 
00  000020 
00  000000 
00  000020 
12  000001 
00  065245 
00  041342 
00  000075 
12  000000 
00  000002 
00  000060 
00  000002 
00  000061 
00  000001 
00  041342 


00  00  00  12  12  00 
00  45  70  60  45  43 
64  45  44  32  00  V 

76  12  12  00  00  45 
70  60  45  43  64  45 
44  32  00  11   00  00 


*  Status  bit  description  printer 
Call  with  address  of  description  table  in  0 
Status  bits  in  acll  left  justified 
-1  In  sepr  if  no  separator  characters  wanted  on  first 
Carriage  position  in  caret 

To  get  expected  status  printed,  set  c (expect)  not  equal  to  zero 
Expected  status  bits  in  ac  (left  justified) 


♦This  routine  uses  0,ac2,ac11,acl2,ac3 

*♦♦♦****♦*•****♦**♦**•♦♦♦♦♦♦********♦♦*♦•**♦*•*•♦*♦*♦♦♦♦**♦***♦♦♦***♦* 


DESC: 
DESCBF: 


JFFO 

RTN 

ADD 

GO 

SKIPE 

ADDI 

GO 

TLO 

PSIXM 

TLZ 

LSH 

SKIPN 

AOJA 

PNTCI 

LSH 

SKIPL 

PNTCI 

SKIPGE 

PNTCI 

LSH 

AOJA 


AC11, DESCBF 

0,AC12 

STRLN 

EXPECT* 

AC3,2 

PNTSEP 

20 

ao 

20 

AC11J(AC12) 
EXPECT 
DESC 

AC2,(AC12) 
AC2 
"O" 
AC2 

I  14  •  I 

AC2J 
DESC 


EXPECS:  SIXBIT  \   ♦*  EXPECTED:  .\ 


EXPECL:  SIXBIT  \***  EXPECTED:  .\ 


Jump  if  bit  found 

All  descriptions  printed,  return 

Get  address  of  messaae  string 

Compute  string  lengtn,  put  in  ac3 

Skip  if  not  printing  expected 

Add  in  =  and  number 

Print  separator 

Set  indirect  bit  in  zero 

Print  description 

Clear  indirect  bit 

Shift  out  bit  in  status  word 

Skip  if  printing  expected 

Increment  address  and  start  again 

Print  equal  s:gn 

Shift  expected  bits  to  position 

Skip  if  expected  a  "I" 

Print  "O" 

Skip  if  expected  a  "0" 

Print  "I" 

Shift  out  bit  just  printed 

Increment  address  and  start  again 


l_. 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
OFDXDM  MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  1U 


SEQ  03A5 


7739 

7740 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 


041375 
041376 
041377 
041400 
041401 
041402 
041403 
041404 
041405 
041406 
041407 
041410 
041411 
041412 
041413 


0 
0 
0 
0 
0 
270  03  0 
303  03  0 


356  00 
254  00 
037  00 
250  03 
271  03 


254  00 
037  00 
202  03 
263  17 
037  02 
201  03 
272  03 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 


00  065324 
00  041412 
00  030244 
00  065224 
00  000002 
00  065224 
00  000107 
00  041410 
00  000040 
00  065224 
00  000000 
00  056531 
00  000006 
00  065224 
00  000000 


*  Print  separator  ^ .  ^ 

*  Print  comma  then  space  if  a  message  of  length  specified 

*  By  c(ac3)  will  fit  in  currentaiine 

*  Print  carriage  return  then  six  spaces  if  message  will  not 

♦Fit  in  current  line.  .    •   ^ 

*  Update  caret  to  show  position  of  carriage  after  message  is  printed. 

*  This  routine  uses  ac3 


PNTSEP:  AOSN 
JRST 
PNTMSG 
EXCH 
ADDI 
ADD 
CAILE 
JRST 
PSP 
MOVEM 
RTN 

PNTSPL:  PMSG 
MOVE  I 

PNTSPN:  ADDM 
RTN 


SEPR/Jf 

PNTSPN 

COMMA 

AC3,CARCT# 

AC3,2 

AC3,CARCT 

AC3,'^D71 

PNTSPL 

AC3,CARCT 

r  ) 

AC3,6 
AC3,CARCT 


; Count  separators  printed 

;First,  don't  print 

;Print  the  comma 

;6et  carriage  position 

;Add  2  for  comma  and  space 

;Add  message 

;Skip  if  result  is  before  end  of  line 

; Continue  on  new  line 

;Print  a  space 

.•Update  caret 

;Print  carriage  return  then  6  spaces 
;New  carriage  position  is  6 
;Plus  message 


r 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
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SEO  03A6 


776A 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 

7775 
7776 
7777 
777S 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
7794 
7795 
7796 


04U1A 
0AU15 
0A1416 
041417 
041420 
041421 
041422 
041423 
041424 
041425 
041426 
041427 
041430 
041431 
041432 
041433 
041434 
041435 
041436 
041437 
041440 
041441 
041442 
041443 
041444 
041445 
041446 


261 
261 


17 
17 


0 
0 


200  00  1 

201  03  0 


200  11 
642  11 
254  00 
202  03 

201  03 
242  11 
642  11 
254  00 


1 
0 
0 
0 
0 
0 
0 
0 


305  03  0 
344  03  0 
602  11  0 
254  00  0 
210  03  0 
270  03  0 
254  00  0 


602  11 
254  00 
262  17 

262  17 

263  17 


200  03  0 
2^'  03  0 
344  00  0 


00  000000 
00  000011 
00  000000 
00  000005 
00  000000 
00  000077 
00  041437 
00  065215 
00  000001 
00  777772 
00  000077 
00  041432 
00  000005 
00  041425 
00  000077 
00  041444 
00  000003 
00  065215 
00  041441 
00  000077 
00  041445 
00  000011 
00  000000 
00  000000 
00  065215 
00  000006 
00  041420 


;*  Compute  length  of  sixbit'z  string  pointed  to  by  address  in  c(0). 
;*  Put  result  in  ac3 


STRLN: 


STRLN1: 
STRLN2: 


STRLN3: 


STRLN5: 


STRLN6: 
STRLN7: 

STRLN8: 


PUT 

PUT 

MOVE 

MOVE  I 

MOVE 

TRCE 

JRST 

MOVEM 

MOVE  I 

LSH 

TRCE 

JRST 

CAIGE 

AOJA 

TRNE 

JRST 

MOVN 

ADD 

JRST 

TRNE 

JRST 

GET 

GET 

RTN 

MOVE 

ADDI 

AOJA 


0 
AC11 

ao 

AC3,5 

AC11,aO 

AC11/  • 

STRLN6 

AC3,AC3S# 

AC3J 

AC11,-6 

AC11,*  • 

STRLN5 

AC3,5 

AC3,STRLN3 

ACll,'  • 

STRLN8" 

AC3,AC3 

AC3,AC3S 

STRLN7 

AC11/  • 

STRLNS^I 

AC11 

0 

AC3,AC3S 

AC3,6 

STRLN1 


Save  ac's 

Get  address  of  string 

Start  with  5 

Get  word  in  string 

Skip  if  last  character  is  zeros 

Save  ac3 

Count  characters  not  in  string 
Shift  one  character  position 
Skip  if  all  zeros 

Look  at  all  characters? 
No,  look  at  next  character 
Skip  if  terminator  character 

No.  of  characters  not  in  string 
Subtact  from  whole  string 

Skip  if  •.• 

Restore  ac's 


.•Restore  ac3 

;Count  6  characters  in  word 

;Look  at  next  word 


L 


DFDXD 
DFDXDM 

7797 

7798 

7799 

7800 

7801 

7802 

7803 

7804 

7805 

7806 

7807 

7808 

7809 

7810 

7811 

7812 

7813 

7814 

7815 

7816 

7817 

7818 

7819 

7820 

7821 

7822 

7823 

7824 

7825 

7826 

7827 

7828 

7829 

7830 

7831 

7832 

7833 

7834 

7835 

7836 

7837 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  6-Apr-85   18:38  STATUS  PRINTER 
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SEQ  0347 


041447 
041450 
041451 
041452 
041453 
041454 
041455 
041456 
041457 
041460 
041461 
041462 
041463 
041464 
041465 
041466 
041467 
041470 
041471 
041472 
041473 
041474 


041475 
041476 
041477 
041500 
041501 
041502 
041503 
041504 
041505 
041506 


200  01 
246  00 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
200  01 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
200  01 
242  01 
246  00 
242  01 
246  00 
242  00 
263  17 


0  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 


000000 
00001 1 
000006 
000001 
000010 
000005 
000002 
000001 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000002 
00001 1 
000001 
00001 1 
000001 
000017 
000000 


242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
242  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000002 
00  000001 
00  000002 
00  000001 
00  000003 
00  000001 
00  000004 
00  000002 
00  000037 
00  000000 


;♦  Merge  the  error  bits  from  the  first  11  sense  bytes  (txOI) 


STPSBM:  MOVE 
LSHC 
LSH 
LSHC 
LSH 
LSHC 
LSH 
LSHC 
MOVE 
LSH 
LSHC 
LSH 
LSHC 
LSH 
LSHC 
MOVE 
LSH 
LSHC 
LSH 
LSHC 
LSH 
RTN 


AC1,(AC2) 

9 

AC1,6 

1 

AC1,8 

5 

AC1,2 

1 

AC1J(AC2) 

AC1J 

1 

AC1J 

1 

AC1,8 

1 

AC1,2(AC2) 

AC1,9 

1 

AC1,*D9 

1 

*D15 


Get  first  word  in  table 
Shift  in  9  bits 
Throw  away  6  bits 
Shift  in  not  capable 

away  track  in  error 

bits 

2  bits 

compare 

word 

1  bit 
tu 


Throw 
Shift 
Throw 
Shift 


in  5 

away 

in  c 
Get  second 
Throw  away 
Shift  in  reject 
Throw  away  ti 
Shift  in  write  trg/vrc 
Throw  away  8 
Shift  in  start  rd  chk 
Get  third  word 
Throw  away  9  bits 
Shift  in  velocity  check 
Throw  away  10  bits 
Shift  in  wtm  not  detect 
Left  justify  bits  in  0 


;♦  Merge  ti,  sub-system,  diag  mode  and  rpq 


SiPSBI 


LSH 

AC1,2 

LSHC 

1 

LSH 

AC1,2 

LSHC 

1 

LSH 

AC1,3 

LSHC 

1 

LSH 

AC1,4 

LSHC 

2 

LSH 

*D31 

RTN 

Shift  out  2  uits 

Shift  in  ti 

Shift  out  two  bits 

Shift  in  Iwr 

Shift  out  three  bits 

Shift  in  sub-system 

Shift  out  4  bits 

Shift  in  diag  mode  and  rpq 
.•Position  bits  to  right 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
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VERSION  0.5 
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SEQ  03A8 


7838 

7839 

7840 

78A1 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 

7883 

7884 

7885 

7886 

7887 


041507 

041510 

041511 

041512 

041513 

041514 

041515 

041516 

041517 

041520 

041521 

041522 

041523 

041524 

041525 

041526 

041527 

041530 

041531 

041532 

041533 

041534 

041535 

041536 

041537 

041540 

041541 


041542 
041543 
041544 
041545 
041546 
041547 
041550 
041551 
041552 
041553 
041554 
041555 
041556 
041557 


200  01  0 
246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
200  01  0 
242  01  0 


246  00 
242  01 
246  00 
242  01 


0 
0 
0 
0 


246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
242  01  0 
246  00  0 
24?  00  0 
2c<  17  0 


02  000000 
00  000011 
00  000006 
00  000001 
00  000010 
00  000005 
00  000002 
00  000001 
02  000001 
00  000001 
00  000001 
00  000001 
00  000001 
00  000002 
00  000001 
00  000003 
00  000005 
00  000002 
00  000001 
00  000006 
00  000004 
00  000001 
00  000001 
00  000001 
00  000001 
00  000005 
00  000000 


200  O: 
246  00 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
242  01 
246  00 
2U2  00 
263  M 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


02 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 
00000 1 
000007 
000004 
000004 
000001 
000002 
000001 
000001 
000001 
000001 
000001 
000033 
000000 


•  ♦♦♦♦*»*»»*»**»****»t*****t**********»****»*********** ♦♦♦*♦♦♦♦♦♦♦♦*♦♦*♦ 

;♦  Merge  error  bits  from  first  7  sense  bytes  (tx02) 


STPMR1 


Get  first  word  in  table 
Shift  in  9  bits 
Throw  away  6  bits 
Shift  in  not  capable 
Throw  away  track  in  error 
Shift  in  5  bits 
Throw  away  2  bits 
Shift  in  c  compare 
Get  second  word 
Throw  away  1  bit 
Shift  in  reject  tu 
Throw  away  ti 
Shift  in  write  trg/vrc 
Throw  away  2  bits 
Shift  in  tu  chk 
Throw  away  3  bits 
Shift  in  5  bits 
Throw  away  2  bits 
Shift  in  wrt  current 
Throw  away  6  bits 
Shift  in  4  bits 
Throw  away  dse 
Shift  in  erase  head 
Throw  away  1  bit 
Shift  in  load  failure 
Left  justify  bits  in  0 


;*  Merge  the  error  bits  from  sense  bytes  8-11  (tx02) 

•  ♦♦•♦♦»♦♦♦♦•»»♦♦*♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦»*♦♦♦*♦**•♦*♦♦♦♦♦♦**♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦ 


MOVE 

AC1,(AC2) 

LSHC 

9 

LSH 

AC1,6 

LSHC 

1 

LSH 

AC1,8 

LSHC 

5 

LSH 

AC1,2 

LSHC 

1 

MOVE 

AC1J(AC2) 

LSH 

AC1J 

LSHC 

1 

LSH 

AC1J 

LSHC 

1 

LSH 

AC1,2 

LSHC 

1 

LSH 

AC1.3 

LSHC 

5 

LSH 

AC1,2 

LSHC 

1 

LSH 

AC1,6 

LSHC 

4 

LSH 

ACM 

LSHC 

1 

LSH 

ACM 

LSHC 

1 

LSH 

5 

RTN 

STPMR2: 


MOVE 

AC1,2(AC2) 

LSHC 

1 

LSH 

AC1,7 

LSHC 

4 

LSH 

AC1,A 

LSHC 

1 

LSH 

AC1,2 

LSHC 

1 

LSH 

AC1J 

LSHC 

1 

LSH 

ACM 

LSHC 

1 

LSH 

"D27 

RTN 

Get  sense 

Shift  in 

Throw 

Shift 

Throw 

Shift 

Throw 

Shift 

Throw 

Shift 

Throw 

Shift 


away 
in  4 
away 
in  cmd 
away  2 
in  rec 
away  1 


word  3 
ibg  det 
y  7  bits 


bits 

4  bits 
Stat 
bits 
not 
bit 


in  tach  st 
away  1  bit 

in  vel  chk 


re  3 
det 
fail 


Left  justify  bits  in  0 


DFDXD       DX20-V100  MAGNETIC   TAPE 
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7888 
7889 
7890 
7891 

7892  041 560     2A2  01  0 

7893  0A1561     2A6  00  0 

7894  041562     2A2  01  0 

7895  0A1563     2A6  00  0 

7896  041 564     242  01  0 

7897  041565     246  00  0 

7898  041566     242  01  0 

7899  041567     246  00  0 

7900  041570     242  01  0 

7901  041571     246  00  0 

7902  041572     242  00  0 

7903  041573     263  17  0 
7904 

7905 
7906 
7907 
7908 
7909 
7910 

7911  041 :  7. 

7912  0415^" 

7913  O^'.Sh 

7914  041  r' 
791';  041600 
791 o  041601  367  02  0 

7917  041602  246  00  0 

7918  041603  5:;-^  00  0 

7919  041604  037  02  0 

7920  041605  262  17  0 

7921  041606  263  17  0 


SUBSYSTEM  DIAGNOSTIC  (RH20) 
STATUS  PRINTER 
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SEQ  0349 


00  000002 
00  000001 
00  000002 
00  000001 
00  000003 
00  000001 
00  000005 
00  000002 
00  000001 
00  000002 
00  000035 
00  000000 


261  17  0 

^Q^  02  0 

400  00  0 
246  00  0 
037  03  0 


00  000002 
00  000004 
00  000000 
00  000010 
00  000000 
00  041576 
00  000004 
00  000000 
00  000000 
00  000002 
00  000000 


•  »»•♦♦♦♦♦*»*♦•♦♦»*♦♦*♦♦♦♦♦••♦*♦♦♦♦•**•♦♦♦*♦♦*♦♦♦♦*♦♦*♦♦♦♦♦♦*♦♦♦**♦*♦♦♦♦ 

;•  Merge  ti.  Iwr,  sub-system,  rpq,  7-trk,  dd  drive,  not  1600 


STPMR3: 


LSH 

AC1,2 

LSHC 

1 

LSH 

AC1,2 

LSHC 

1 

LSH 

AC1,3 

LSHC 

1 

LSH 

AC1,5 

LSHC 

2 

LSH 

AC1,1 

LSHC 

2 

LSH 

*D29 

RTN 

.-Shift  out  2  bits 

; Shi  ft  in  ti 

.•Shift  out  two  bits 

.-Shift  in  Iwr 

.-Shift  out  three  bits 

.-Shift  in  sub-system 

.-Throw  away  5  bits 

.-Shift  in  rpq  and  7-trk 

.-Throw  away  wrt  current 

.-Shift  in  dd  drive  and  not  1600 

.-Left  justify  bits  in  0 


♦♦*♦♦«»•♦♦*♦♦♦♦♦♦♦»»♦♦••♦*♦♦•*•♦*••*•♦♦•*••*♦**♦»*•♦♦♦♦♦♦♦•♦••**♦♦♦♦** 

*  This  routine  prints  the  four  8-bit  bytes  in  a. 

*  If  the  remaining  4  bits  are  not  zero, they  are  also  printed. 

*  This  routine  uses  0,ac1,ac2 
»»»♦♦♦•♦♦♦♦♦♦•»»»*♦♦♦♦♦♦♦••♦♦*•••♦*♦*♦»»«•*♦♦♦♦♦*♦♦♦»♦»**♦♦♦•♦*♦♦♦♦♦♦♦ 


PNTBYT: 


PUT 

MOVE  I 

SETZ 

LSHC 

PNT3 

SOJG 

LSHC 

SKIPE 

PNT2 

GET 

RTN 


AC2 
AC2,4 

8 

AC2,PNTBYT*2 

4 

0 

AC2 


.'Save  ac2 

.-Counter 

.-Clear  0 

.-Shift  a  byte  into  0  from  ad 

.-Print  byte 

.-Count  tne  bytes 

.-Shift  remaining  4  bits  to  0 

.-Skip  if  all  are  zero 

.-Print  remaining  bits 

.-Restore  ac2 

.-Return 


DfDXD 
DFDXDM 

7922 

7923 

792A 

7925 

7926 

7927 

7928 

7929 

7930 

7Q31 

7932 

7933 

793A 

7935 

7936 

7937 

7938 

7939 

79A0 

79A1 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

7974 

7975 

7976 


DX20-V100  MAGNET C   TAPE 
MAC  6-Apr-85   18:38 


SUBSYSTEM  DIAGNOSTIC    (RH20) 
STATUS  PRINTER 
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SEQ  0350 


041607 
041610 
041611 
041612 
041613 
041614 
041615 
041616 
041617 
041620 
041621 
041622 
041623 
041624 
041625 
041626 
041627 
041630 
041631 
041632 
041633 

041634 
041635 
041636 
041637 

041640 
041641 

041642 
041643 
041644 
041645 

041646 
041647 
041650 
041651 
041652 
041653 
041654 
041655 
041656 
041657 
041660 
041661 
041662 
041663 
041664 
041665 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 
000000 

cooooo 
oocooo 

000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 

000000 
000000 

000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


056533 
056535 
056540 
056542 
056544 
056546 
056550 
056553 
056556 
056557 
056561 
056563 
056565 
056567 
056572 
056576 
056600 
056602 
056605 
056610 
056613 

056617 
056621 
056623 
056626 

056631 
056633 

056635 
056637 
056641 
056642 

056533 
056535 
056540 
056542 
056544 
056546 
056550 
056553 
056556 
056557 
056561 
056563 
056565 
056567 
056572 
056576 


;•  Sense  byte  bit  descriptions 

• 

SNSylA:  SIXBTZ  CMD  REJECT 

SIX8T2  INTERVEN  REQ'D 

SIXBTZ  BUS  OUT  CHK 

SIXBTZ  EQUIP  CHK 

SIXBTZ  DATA  CHK 

SIXBTZ  OVERRUN 

SIXBTZ  WORD  CNT  ZERO 

SIXBTZ  DATA  CONVTR  CHK 

SIXBTZ  NOISE 

SIXBTZ  NOT  CAPABLE 

SIXBTZ  R/W  VRC 

SIXBTZ  MTE/LRC 

SIXBTZ  SKEW  ERR 

SIXBTZ  END  DATA  CHK/CRC 

SIXBTZ  ENV  CHK/SKEW  REG  VRC 

SIXBTZ  C  COMPARE 

SIXBTZ  REJECT  TU 

SIXBTZ  WRITE  TRG  VRC 

SIXBTZ  START  RD  CHK 

SIXBTZ  VELOCITY  CHK 

SIXBTZ  WTM  NOT  DETECT  BLOCK 

SNSWiB:  SIXBTZ  SEVEN  TRACK 

SIXBTZ  LOAD  POINT 

SIXBTZ  WRITE  STATUS 

SIXBTZ  FILE  PROTECT 

SNSWIC:  SIXBTZ  1600  BPI 

SIXBTZ  BACKWARD 

SNSWID:  SIXBTZ  NONEXISTANT 

SIXBTZ  NOT  READY 

SIXBTZ  READY 

SIXBTZ  3 

SNSWIE:  SIXBTZ  cMD  REJECT 

SIXBTZ  INTERVEN  REQ'D 

SIXBTZ  BUS  OUT  CHK 

SIXBTZ  EQUIP  CHK 

SIXBTZ  DATA  CHK 

SIXBTZ  OVERRUN 

SIXBTZ  WORD  CNT  ZERO 

SIXBTZ  DATA  CONVTR  CHK 

SIXBTZ  NOISE 

SIXBTZ  NOT  CAPABLE 

SIXBTZ  R/W  VRC 

SIXBTZ  MTE/LRC 

SIXBTZ  SKEW  ERR 

SIXBTZ  END  DATA  CHK/CRC 

SIXBTZ  ENV  CHK/SKEW  REG  VRC 

SIXBTZ  C  COMPARE 


SUBSYSTEM  DIAGNOSTIC  (R 

DPDXD 

DX20-V100  MAGNE 

TIC  TAPE 

H20)     VERSION  0.5 

DFDXDM 

MAC 

6-Apr- 

85  18:38 

STATUS 

PRINTER 

7977 

041666 

OOOOOO 

056600 

SIXBTZ 

REJECT  TU 

7978 

041667 

OOOOOO 

056602 

SIXBTZ 

yRITE  TRG  VRC 

7979 

041670 

OOOOOO 

056643 

SIXBTZ 

TU  CHK 

7980 

041671 

OOOOOO 

056645 

SIXBTZ 

WTM  CHK 

7981 

041672 

OOOOOO 

056647 

SIXBTZ 

IB  BURST  CHK 

7982 

041673 

OOOOOO 

J56605 

SIXBTZ 

START  RD  CHK 

7983 

04167A 

OOOOOO 

056652 

SIXBTZ 

PARTIAL  REC 

798A 

041675 

OOOOOO 

056654 

SIXBTZ 

POSTAMBLE 

7985 

041676 

OOOOOO 

056656 

SIXBTZ 

WRT  CURRENT 

7986 

041677 

OOOOOO 

056660 

SIXBTZ 

COLUMN  TOP  OR  BOTTOM 

7987 

041700 

OOOOOO 

056664 

SIXBTZ 

LEFT  COLUMN  FAIL 

7988 

041 701 

OOOOOO 

05666/ 

SIXBTZ 

RIGHT  COLUMN  FAIL 

7989 

041702 

OOOOOO 

056672 

SIXBTZ 

RESET  KEY 

7990 

041703 

OOOOOO 

056674 

SIXBTZ 

ERASE  HEAD 

7991 
7992 
7993 

0<»1704 

OOOOOO 

056676 

SIXBTZ 

LOAD  FAILURE 

041705 

OOOOOO 

056701 

SNSWIF: 

SIXBTZ 

IBG  DET 

799A 

041706 

OOOOOO 

056703 

SIXBTZ 

6250  CORR 

7995 

041707 

OOOOOO 

056705 

SIXBTZ 

VELOCITY  CHNG 

7996 

041710 

OOOOOO 

056710 

SIXBTZ 

CHAN  BUF 

7997 

041711 

oooooo 

056712 

SIXBTZ 

CRC  III 

7998 

041712 

oooooo 

056714 

SIXBTZ 

CMD  STAT  REJ 

7999 

041713 

oooooo 

056613 

SIXBTZ 

WTM  NOT  DETECT  BLOCK 

8000 

041714 

oooooo 

056717 

SIYBTZ 

TACH  ST  FAIL 

8001 
8002 
8003 

041715 

oooooo 

056610 

SIXBTZ 

VELOCITY  CHK 

041716 

oooooo 

056722 

^MSW2A: 

SIXBTZ 

END  OF  TAPE 

8004 

041717 

oooooo 

056724 

SIXBTZ 

LUR 

8005 

041720 

oooooo 

056725 

SIXBTZ 

3803  MODE 

8006 

041721 

oooooo 

056727 

SIXBTZ 

DIAG  MODE 

8007 
8008 
8009 
8010 
8011 

041722 

OuJOOO 

056731 

SIXBTZ 

RPO 

041723 

oooooo 

056732 

SNSy2C: 

SIXBTZ 

DATA  SECURITY  ERASE 

041 72  A 

oooooo 

056722 

SNSU2D: 

SIXBTZ 

END  OF  TAPE 

8012 

041725 

oooooo 

056724 

SIXBTZ 

LUR 

8013 

041726 

oooooo 

056725 

SIXBTZ 

3803  MODE 

8014 

041727 

oooooo 

056731 

SIXBTZ 

RPQ 

8015 

041730 

oooooo 

056736 

SIXBTZ 

7-TRACK  DRIVE 

8016 

041731 

oooooo 

056741 

SIXBTZ 

DD  DRIVE 

8017 
8018 
8019 
8020 
8021 
S022 
8023 

041732 

oooooo 

0567A3 

SIXBTZ 

NOT  SET  1600 

041733 

oooooo 

056746 

SNSU3A: 

SIXBTZ 

TCU  RESERVED 

041734 

oooooo 

056751 

SNSW36: 

CIXBTZ 

6250  TCU 

041735 

oooooo 

056753 

SNSU4A: 

SIXBTZ 

BASIC  CU 

8024 

041736 

oooooo 

056755 

SIXBTZ 

7-TRACK  NRZI 

8025 

041737 

oooooo 

056760 

SIXBTZ 

9-TRACK  NRZI 

8026 
8027 
8028 
8029 

8030 

041740 

oooooo 

056763 

SIXBTZ 

789-TRACK  NRZI 

041741 

oooooo 

056766 

SNSW5A: 

SIXBTZ 

2CS  FEATURE 

041742 

oooooo 

056770 

SNSy6A; 

SIXBTZ 

MOD  IV 

8031 

XALL 
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SEQ  0351 


DFDXD 
DFDXDM 

8032 

8033 

803A 

8035 

8036 

8037 

8038 

8039 

80A0 

8041 

80A2 

80A3 

804A 

80  A  5 

80A6 

80A7 

80A8 

80A9 

8050 

8051 

8052 

8053 

805A 

8055 

8056 

8057 

8058 

8059 

8060 

8061 

8062 

8063 

8064 

8065 

8066 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 

8081 

8082 

8083 

8084 

8085 

8086 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5 


MACRO  X53A(1152)   18:38    6-Apr-85  Page  120 


SEQ  0352 


041743 

041744 

041745 

041746 

041747 

041750 

041751 

041752 

041753 

041754 

041755 

041756 

041757 

041760 

041761 

041762 

041763 

041764 

041765 

041766 

041767 

041770 

041771 

041772 

041773 

041774 

041775 

041776 

041777 

042000 

042001 

042002 

042003 

042004 

042005 

042006 

042007 

042010 

042011 

042012 

042013 

042014 

042015 

042016 

042017 

042020 

042021 

042022 

042023 


037  02  0 


201  00 

202  00 
210  06 
517  00 


0 
0 
0 
0 


402  00  0 
200  02  0 
332  00  0 
370  00  0 
332  00  0 
370  00  0 

200  03  0 
302  03  0 
230  02  0 
210  04  0 
517  00  0 
541  04  0 
135  01  0 

201  03  0 
332  00  0 
201  03  0 
270  03  0 
200  03  0 
404  03  0 
l6l  02  0 
332  00  0 
260  17  0 
312  03  0 
260  17  0 

253  04  0 
336  00  0 

254  00  0 
200  05  0 
220  05  0 
302  01  0 
254  00  0 
602  02  0 
275  05  0 
213  00  0 
205  00  0 
240  00  0 
332  00  0 
260  17  0 
406  00  0 
312  03  0 


254  00 
336  00 
254  00 


336  QQ   0 


00  056772 
00  000003 
00  065264 
00  065221 
00  000006 
00  065220 
00  065346 
00  065315 
00  000002 
00  065252 
00  000002 
00  065221 
00  00000' 

00  ooooor 

00  000002 
00  000004 
00  066000 
00  056115 
00  042415 
00  065340 
00  042423 
00  000001 

03  000000 
00  065240 
00  042003 
00  065340 
00  042033 

04  000000 
00  042042 
00  041774 
00  065315 
00  042026 

00  065315 

01  042431 
00  000005 
00  042011 
00  000001 
00  000004 
00  000005 
00  400000 

05  000001 
00  065340 
00  042033 
00  000003 
04  000000 
00  042025 
00  065252 
GO  0A2026 
04  QOOQO] 


*  This  routine  prints  the  data  errors  which  occurred  during  a  read  xfer. 


PNTBUF:  PMSG    <''DATA  COMPARISON  ERROR 


AA 


BY^E   CORRECT  DATA 
ADDRESS*_\]* 
MOVEI   0,3 


ACTUAL  DATA 


ADDRESS'^> 


As.A 


MOVEM 

MOVN 

HRLZS 

NEXBLK:  SETZM 
MOVE 
SKIPE 
SOS 
SKIPE 
SOS 
MOVE 
CAIE 
IDIV 
MOVN 
HRLZS 
HRRI 
LD8 
MOVEI 
SKIPE 
MOVEI 
ADD 
MOVE 
AND 
JUMPE 

CMPLP:   SKIPE 
GO 

CAME 
GO 

AOBJN 
SKIPN 
JRST 

LSTWD:   MOVE 
IMUL 
CAIE 
JRST 
TRNE 
SUBI 
MOVNS 
MOVSI 
ASH 
SKIPE 
GO 

ANDM 
CAME 
JRST 
SKIPN 
JRST 
SKIPN 


0,LLIMCT# 

AC6,BL0KCT 

AC6 

BLKPT# 

AC2, WORDS 

REMAIN 

AC2 

HIDRFW 

AC2 

AC3,8L0KCT 

AC3,1 

AC2,AC3 

AC4,AC2 

AC4 

AC4,8UF1 

AC1, [POINT  4,DM0DE,23J 

AC3,DMASK9 

TRACK7 

AC3,DMASK7 

AC3,AC1 

AC3,(AC3) 

AC3,DPAT 

AC2, LSTWD 

TRACK7 

6TMSK 

AC3,(AC4) 

PNTERR 

AC4, CMPLP 

REMAIN 

CMPDN 

AC5, REMAIN 

AC5,BSIZE(AC1) 

AC1,5 

.+3 

AC2J 

AC5,4 

AC5 

400000 

1(AC5) 

TRACK7 

GTMSK 

AC3 

AC3,(AC4) 

CMPRER 

HIDRFW 

CMPDN 

1(AC4) 


Line  limiter  count 

Get  block  cnt 
Setup  -cnt,,0 
Clear  block  num  pnt  flag 
Get  word  count  for  xfer 
Skip  if  no  remainder  bytes 
Else,  make  count  for  full  words  only 
Skip  if  no  dx20  padding  allowed  for 
Else,  don't  cnt  padded  word 
Get  block  cnt 
Skip  if  only  1 

Else  compute  words  per  block 
Negate  wrd  cnt 
Setup  -wc,,0 
Setup  -wcdata  addr 
Get  data  mode 

Get  start  addr  of  9  trk  mask  table 
Skip  if  9  track 

Else,  get  7  trk  mask  start  addr 
Compute  addr  of  mask  for  current  data 
Get  mask 

Combine  mask  and  data  pattern 
Jump  if  no  full  words 
Skip  if  9  track 

Else,  check  for  special  hi  den  mask 
Compare  actual  data  with  masked  pattern 
Go  print  error  word 
Check  all  full  words 
Skip  if  have  remainder  bytes 
Else,  done 

Get  remainder  byte  cnt 
Compute  #  of  remainder  bits 
Skip  if  hi  density  mode 
"ump  around 
even  U   of  full  words 
St  byte  has  only  4  bits 
Negate  bit  cnt 
Set  bit  0  in  acO 
Create  left  adjust  bit  mask 
Skip  if  9  track 

Else,  check  for  special  hi  den  mask 
Combine  data  mask  with  bit  rr.ask 
Compare  actual  with  pattern 
Record  error 

Skip  if  dx20  padded  a  zero  word 
Else,  done 
Skip  if  padded  word  is  not  all  zeros 


mode 


Else, 
Skip  i 
Else, 
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;6o  print  error  word 
;Check  all  data  blocks 
IN  TRANSFER  =  )*    .-Summary  header 
BYTES  IN  TRANSFER  =  \2 

;Pn'nt  bytes  in  transfer 
End  line 
Return 

Skip  if  high  density  mode 
Else,  no  special  mask  needed 
Get  mask  for  odd  word  hi  den 
Skip  if  current  word  is  odd 
Else,  get  mask  for  even  word  hi  den 
Combine  mask  with  data  pattern 

Go  save  some  acs 

Count  line,  jump  if  within  limit 

Read  the  switches 

Skip  if  print  all  errors 

Don't  print  this  line 

Get  block  cnt 

Skip  if  only  one  block 

Else,  print  block  number 

Get  word  count 

Compute  words  already  checked 

Move  data  mode  to  ac2 

Skip  if  not  hi  density  mode 

Do  special  compute 

Compute  bytes  left 

Plus  1 

Print  byte  number 

Print  3  spaces 

Get  correct  data 
Print  it 
Get  actual  data 
Print  it 
Get  address 
Print  it 
End  line 
Restore  acs 


8087 

042024 

254  00  0  00  042026 

JRST 

CMPDN 

8088 

042025 

260  17  0  00  042042 

CMPRER:  GO 

PNTERR 

8089 

042026 

253  06  0  00  041750 

CMPDN:  AOBJN 

AC6,NEXBLIC 

8090 

PMSG 

(     BYTES 

8091 

042027 

037  02  0  00  057011 

PSIXM 

CSIXBITX 

8092 

042030 

005  00  0  00  065301 

PNTNUM 

NBYTES 

8093 

042031 

037  00  0  00  030242 

PCRL 

809A 

042032 

263  17  0  00  000000 

RTN 

8095 

042033 

302  01  0  00  000005 

GTMSK:   CAIE 

AC1,5 

8096 

042034 

263  17  0  00  000000 

RTN 

8097 

042035 

200  03  0  00  042414 

MOVE 

AC3,HIMS<0 

8098 

042036 

606  04  0  00  000001 

TRNN 

AC4J 

8099 

042037 

200  03  0  00  042413 

MOVE 

AC3,HIMSKE 

8100 

042040 

404  03  0  00  065240 

AND 

AC3,DPAT 

8101 
8102 
8103 

042041 

263  17  0  00  000000 

RTN 

042042 

264  00  0  00  042453 

PNTERR:  JSR 

SAVAC 

81 OA 

042043 

371  00  0  00  065264 

SOSL 

LLIMCT 

8105 

042044 

254  00  0  00  042050 

JRST 

CMPPNT 

8106 

042045 

200  00  0  00  030046 

MOVE 

0,CONSW 

8107 

042046 

606  00  0  00  020000 

TRNN 

ALCOMP 

8108 

042047 

254  00  0  00  042073 

JRST 

COMPLE 

8109 

042050 

200  05  0  00  065221 

CMPPNT:  MOVE 

AC5,BL0KCT 

8110 

042051 

302  05  0  00  000001 

CAIE 

AC5,1 

8111 

042052 

260  17  0  00  042075 

GO 

PNT8LK 

8112 

042053 

574  00  0  00  000004 

HLRE 

AC4 

8113 

042054 

270  00  0  00  000002 

ADD 

AC2 

8114 

042055 

200  02  0  00  000001 

MOVE 

AC2,AC1 

8115 

042056 

306  01  0  00  000005 

CAIN 

;.:i,5 

8116 

042057 

254  00  0  00  042105 

JRST 

DATHID 

8117 

042060 

2^:   00  0  01  042437 

IMUL 

BPW(ACI) 

8118 

042061 

271  00  0  00  000001 

CMPBT:  ADDI 

1 

8119 

042062 

005  10  0  00  000000 

PNTNUM 

8,0 

8120 

PMSG 

(  )" 

8121 

042063 

037  02  0  00  057016 

PSIXM 

CSIXBIT\ 

8122 

042064 

200  01  0  00  000003 

MOVE 

AC1,AC3 
BYTfiT 

8123 

042065 

260  17  0  00  042113 

GO 

8124 

042066 

200  01  0  04  000000 

MOVE 

AC1,(AC4) 

8125 

042067 

260  17  0  00  042113 

GO 

BYT^IT 

8126 

042070 

201  00  0  04  000000 

MOVE  I 

(AC4) 

8127 

042071 

005  10  0  00  000000 

PNTNUM 

8,0 

8128 

042072 

037  00  0  00  030242 

PCRL 

8129 

042073 

264  00  0  00  042464 

COMPLE:  JSR 

RESAC 

8130 

042074 

263  17  0  00  000000 

RTN 

\3 


r 


DFDXD 
DFDXDM 

8131 

8132 

8133 

81 3A 

8135 

8136 

8137 

8138 

8139 

8U0 

81A1 

81A2 

8U3 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 

8161 

8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 

8184 

8185 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    flACRO  X53A(1152)  18:38  6-Apr-85  Page  121 


SEQ  0354 


042075 
042076 
042077 

0<»2100 
042101 
042102 
042103 
042104 

042105 
042106 
042107 
042110 
042111 
042112 

042113 
042114 
042115 
042116 
042117 
042120 

042121 
042122 

042123 
042124 
042125 
042126 
042127 
042130 
042131 
042132 
042133 
042134 
042135 
042136 
042137 
042140 
042141 
042142 
042143 
042144 
042145 
042146 
042147 


332  00  0  00  065220 
263  17  0  00  000000 
476  00  0  00  065220 

037  02  0  00  057017 
550  00  0  00  000006 
037  01  0  00  000000 
037  00  0  00  030242 
263  17  0  00  000000 


231  00 
202  01 
221  00 
332  00 
271  00 
254  00 

476  00 
200  00 
606  00 
254  00 
200  00 
037  13 


0  00  000002 
0  00  065345 
0  00  000011 
0  00  000001 
0  00  000004 
0  00  042061 

0  00  030223 
0  00  030046 
0  00  004000 
0  00  042123 
0  00  000001 
0  00  000000 


037  02  0  00  057022 
263  17  0  00  000000 


200  05  0 
302  02  0 
306  02  0 
3y  00  0 
275  05  0 
306  02  0 
336  00  0 
254  00  0 
037  00  0 
400  00  0 
246  00  0 
037  02  0 
400  00  0 
246  00  1 
306  02  0 
037  02  0 
302  02  0 
037  03  0 
367  05  0 
256  00  0 
263  17  0 


02  042445 
00  000003 
00  000004 
00  000000 
00  000001 
CO  000005 
00  065345 
00  042137 
00  030250 
00  000000 
00  000004 
00  000000 
00  000000 
02  042431 
00  000003 
00  000000 
00  000003 
00  000000 
00  042137 
02  042150 
00  000000 


042150  037  15  0  00  000004 

042151  260  17  0  00  042156 

042152  260  17  0  00  042163 

042153  037  02  0  00  057024 

042154  260  17  0  00  042166 


PNTBLK: 


DATHID: 


BYTEIT: 


SKIPE 

RTN 

SETOM 

PMSG 

PSIXM 

HRRZ 

PNTl 

PCRL 

RTN 

IDIVI 

MOVEM 

IMULI 

SKIPE 

ADD  I 

JRST 

SETOM 

MOVE 

TRNN 

JRST 

MOVE 

PNTHU 

PMSG 

PSIXM 

RTN 


BYTEP:  MOVE 
CAIE 
CAIN 
SKIPA 
SU6I 
CAIN 
SKIPN 
JRST 
PNTMSG 
SETZ 
LSHC 
PNT2 

BYTOUT:  SETZ 
LSHC 
CAIN 
PNT2 
CAIE 
PNT3 
SOJG 
XCT 
RTN 


SPEC8T: 


FATAL 

GO 

GO 

PMSG 

PSIXM 

60 


BLKPT 


BLKPT 

<*BLOCK  NUMBER  >* 

[SIXBIT\*BLOCK  NUMBER 

AC6 


;Skip  if  haven't  printed  bU  ff   yet 
;Else-  don't  print  it 
;Set  blk  0   printed  flag 


AC1,U0RD2# 

9 

ACl 

4 

CMPBT 

PNTSPC 

O.CONSy 

OSTAT 

BYTEP 

ACl 

(        )• 
CSIXBITN 


AC5,BPWP(AC2) 

AC2,3 

AC2,4 

AC5,1 

AC2,5 

U0RD2 

BYTOUT 

HYPEN 


\J 


aBSIZE(AC2) 
AC2,3 

AC2,3 

AC5,8YT0UT 
SPEC8T(AC2) 


DMPSPC 
BYTSPC 
(    )• 
[SIXBITV 
ASCSPC 


\] 


\3* 

;Get  block  number 
;P'-int  it 


; Compute  half  number  of  36-bit  words 

;Save  remainder 

.•Compute  number  of  bytes 

;Skip  if  even  number  of  words 

;Else,  add  4  bytes  for  last  36-bit  word 


;Set  print  space  flag 

;Get  switches  again 

;Skip  if  octal  data  requested 

;Go  to  print  bytes 

;6et  number 

;Print  in  half  words 

;Print  9  spaces 

.-Return 

.-Get  b)ftes  per  word 

.-Skip  if  sixbit  mode 

.-Skip  if  not  ascii  mode 

; Sixbit  &  ascii  not  special  last  byte 

.-Subtact  one  from  bytes  to  print  in  loop 

;Skip  if  not  hi  density  mode 

;Skip  if  odd  number  of  36-bit  words 

.-Else,  just  print  data 

.•Clear  acO  before  shift 
;6et  first  4  bits  in  word 

Clear  acO 

Shift  in  one  byte 

Skip  if  not  sixbit  mode 

Print  2  digit  byte 

Skip  if  sixbit  mode 

Print  3  dioit  byte 

Print  all  Bytes 

Call  special  action  byte 

Return 


;Co'"e  dump  special  routine 
;Byte  mode  special  routine 
; Sixbit  mode,  print  7  spaces 

;Ascii  mode  special  routine 


2 


DFDXD 

DX20-V1 

00  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 

DFDXDM 

HAC 

6-Apr-85  18:38 

STATUS 

PRINTER 

8186 

042155 

260  17  0  00  042173 

GO 

HIDSPC 

8187 

8188 

042156 

400  00  0  00  OOOOOO 

DMPSPC : 

SETZ 

8189 

042157 

246  00  0  00  000004 

LSHf 

4 

8190 

042160 

037  02  0  00  OOOOOO 

PNT2 

8191 

PWS6 

(   )'' 

8192 

042161 

037  02  0  00  057016 

PSIXM 

[SIX8IT\   .\] 

8193 

042162 

263  17  0  00  OOOOOO 

RTN 

8194 

8195 

042163 

326  01  0  00  042156 

BYTSPC: 

JUMPN 

AC1,DMPSPC 

8196 

PMSG 

(      )• 

8197 

042164 

037  02  0  00  057025 

PSiXM 

CSIXBITV      .\3 

8198 

042165 

263  17  0  00  OOOOOO 

RTN 

8199 

8200 

042166 

332  00  0  00  000001 

ASCSPC: 

SKIPE 

ACl 

8201 

PMSG 

<1  >* 

8202 

042167 

037  02  0  00  057027 

PSIXM 

CSIXBITM  \Y 

8203 

042170 

336  00  0  00  000001 

SKIPN 

ACl 

8204 

042171 

TUOSP: 

PMSG 

(  )• 

8205 

042171 

037  02  0  00  057030 

PSIXM 

CSIX8IT\  .\] 

8206 
8207 
8208 

042172 

263  17  0  00  OOOOOO 

RTN 

042173 

332  00  0  00  065345 

HIDSPC: 

SKIPE 

W0RD2 

8209 

042174 

254  00  0  00  042171 

JRST 

TyOSP 

8210 

042175 

246  00  0  00  000005 

LSHC 

5 

8211 

042176 

402  00  0  00  030223 

SETZM 

PNTSPC 

821? 

042177 

037  02  0  00  OOOOOO 

PNT2 

8213 

PMSG 

<-   >• 

8214 

042200 

037  02  0  00  057031 

PSIXM 

CSIXBITV-    \]* 

8215 

042201 

47(S  00  0  00  030223 

SETOM 

PNTSPC 

8216 

042202 

2c-^  17  0  00  OOOOOO 

RTN 

MACRO  X53A(1152)  18:38  6-Apr-85  Page  121-1 


; Hi den  mode  special  routine 


SEO  0355 


•Clear  acO 

;Shift  in  4  bit  bytes 

; Print  2  digit  byte 

; Print  3  spaces 


; Check  if  remaining  bits  are  zero 
;Yes,  print  6  spaces 


;Skip  if  bit  35  clear 


;Skip  if  not 
;Print  2  spaces 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  122 


SEQ  0356 


8217 

8218 

8219 

8220 

8221 

8222 

8223 

822A 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

823A 

8235 

8236 

8237 

8238 

8239 

82A0 

8241 

82A2 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 

8258 

8259 

8260 

8261 

8262 

8263 

826*4 

8265 

8266 

8267 

8266 

8269 


042203 
042203 
042204 
042205 
042206 
042207 
042210 

042211 
042212 
042213 
042214 

042215 
042216 
042217 
042220 
042221 
042222 
042223 
042224 

042225 
042226 
042227 

042230 
042231 
042232 
042233 
042234 

042235 
042236 
042237 

042240 
042241 
042242 

042243 
042244 
042245 

042246 
042247 
042250 
042251 
042252 


037  02  0  00  057032 
135  00  0  00  057036 
005  00  0  00  000000 
037  00  0  00  030245 
135  00  0  00  057037 
005  00  0  00  000000 

037  02  0  00  057040 
201  04  0  00  000044 
200  01  0  00  126013 
260  17  0  00  042274 


037  02 
201  03 
201  04 
260  17 
201  04 
260  17 
201  04 
260  17 


0  00  057044 
0  00  126014 
0  00  000000 
0  00  042253 
0  00  000012 
0  00  042253 
0  00  000024 
0  00  042253 


037  02  0  00  057052 
201  04  0  00  000000 
260  17  0  00  042253 

0:^'  02  0  00  057060 
201  04  0  00  000000 
260  17  0  00  042253 
201  04  0  00  000012 
260  17  0  00  042253 

037  02  0  00  057066 
135  00  0  00  057071 
037  03  0  00  000000 

037  02  0  00  057072 
135  00  0  00  057074 
005  00  0  00  000000 

037  02  0  00  057075 
135  00  0  00  057101 
037  03  0  00  000000 

037  02  0  00  057102 
135  00  0  00  057104 
005  00  0  00  000000 
037  00  0  00  030242 
263  17  0  00  000000 


;*  This  routine  prints  the  extended  status. 

•  ♦♦♦♦♦♦♦♦t********«r*t******»**ft*»* *♦♦♦**♦♦♦*♦♦♦♦*♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦ 


PRTEXT:  PMSG 
PSIXM 
LDB 

PNTNUM 
PNTMSG 
LDB 

PNTNUM 
PMSG 
PSIXM 
MOVE  I 
MOVE 
GO 

PMSG 
PSIXM 
MOVE  I 
MOVE  I 
GO 

MOVE  I 
GO 

MOVE! 
GO 

PMSG 
PSIXM 
MOVE  I 
GO 

PMSG 
PSIXM 
MOVE  I 
GO 

MOVE  I 
GO 

PMSG 
PSIXM 
LDB 
PNT3 
PMSG 
PSIXM 
LDB 

PNTNUM 
PMSG 
PSIXM 
LDB 
PNT3 
PMSG 
PSIXM 
LDB 

PNTNUM 
PCRL 
RTN 


<MICRO-CODE  VERSION:  >-* 
CSIXBIT\MICRO-CODE  VERSION:   \]* 
[POINT  10,TAPMCV,153    ;Get  edit  number 


PERIOD 

[POINT  6,TAPMCV,5] 


;Get  version  number 


<*MICRO-BUS  REGISTERS:>* 

[SIXBIT\*MICRO-BUS  REGISTERS:.*.]* 

AC4,*D36  ;Set  up  register  number 

AC1.TAPMCV  ;Get  data 

REG2  .-Print  the  two  registers 

<*MASSBUS  INTERFACE  REGISTERS :*>'' 

[SIXBIT\*MASSBUS   INTERFACE  REGISTERS:\\3* 

AC3,MBI  .-Address 

AC4-0  .-Register  number 

REG8  .-Print 

AC4-*D10  .-Register  number 

REG8 

AC4.*D20  .-Register  number 

REG8 

<CHANNEL  BUS  INTERFACE  REGISTERS:'^>* 

[SIXBITXCHANNEL  BUS  INTERFACE  REGISTERS:*  \]* 

AC4-0  .-Register  number 

REG8 

<DATA  PATH  INTERFACE  REGISTERS:*>* 

[SIXBITVDATA  PATH  INTERFACE  REGISTERS:*.\]* 

AC4.0  "^   • ^ 

REG8 
AC4  *D10 


.-Register  number 
.-Register  number 


regS 

<last  command:  >* 

[sixbtt\last  command:   \]* 

[POINf  8.LSTCMD,7] 

<T0  DRIVE  >* 
[SIXBITXTO  DRIVE  \V 
[POINT  8,LSTCMD.15] 

<*LAST  ASYNC  STATUS:   >* 
[SIXBIT\*LAST  ASYNC  STATUS:    \]* 
[POINT  8.LSTCMD.23] 

<FROM  DRIVE  >* 
[SIXBITXFROM  DRIVE  W 
[POINT  8.LSTCMD.31]" 


.•Return 


r 


DFDXD 
DFDXDM 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

8280 

8281 

8282 

8283 

828A 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

829A 

8295 

8296 

8297 

8298 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18;38  6-Apr-85  Page  123 


SEQ  0357 


042253 
042254 
042255 
042256 
042257 
042260 
042261 

042262 
042263 
042264 
042265 
042266 
042267 
042270 
042271 
042272 
042273 
042274 
042275 
042276 
042277 
042300 
042301 
042302 
042303 
042304 
042305 
042306 


037  00 
505  03 
200  01 
260  17 
253  03 
037  00 
263  17 


006  03 
037  00 
135  00 
037  03 
271  04 
006  03 
037  00 
135  00 
037  03 
271  04 
006  03 
037  00 
135  00 
037  03 
271  04 
006  03 
037  00 
135  00 
037  03 
271  04 
263  17 


0  00  030247 
0  00  77777t 
0  03  000000 
0  00  042262 
0  00  042255 
0  00  030242 
0  00  000000 

0  00  000004 
0  00  030260 
0  00  057105 
0  00  000000 
0  00  000001 
0  00  000004 
0  00  030260 
0  00  057106 
0  00  000000 
0  00  000001 
0  00  000004 
0  00  030260 
0  00  057107 
0  00  000000 
0  00  000001 
0  00  000004 
0  00  030260 
0  00  057110 
0  00  000000 
0  00  000001 
0  00  000000 


REG8: 
REG8C: 


REG4: 


RE62: 


PNTMSG 

HRLI 

MOVE 

GO 

AOBJN 

PCRL 

RTN 

PDEC 

PNTMSG 

LDB 

PNT3 

ADDI 

PDEC 

PNTMSG 

LDB 

PNT3 

ADDI 

PDEC 

PNTMSG 

LDB 

PNT3 

ADDI 

PDEC 

PNTMSG 

LDB 

PNT3 

ADDI 

RTN 


TAB 

AC3,-2 

AC1,(AC3) 

REG4 

AC3,REG8C 


3,AC4 
SLASH 
[POINT  8,AC1,7] 

AC4J 
3,AC4 
SLASH 
[POINT  8,AC1J5] 

AC4,1 
3,AC4 
SLASH 
[POINT  8,AC1,23] 

AC4J 
3,AC4 
SLASH 
[POINT  8,AC1,31] 

AC4J 


; Print  a  tab 

;Set  up  count 

:Get  data 

;Go  print  it 

.•Increment  address  and  repeat 


.-Print  number 

.•Print  a  slash 

;Get  a  register  data 
.•Print 


5 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  12A 


SEQ  0358 


8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

83U 

8315 

8316 

8317 

8318 

8319 

8320 

8321 

8322 

8323 

8324 

8325 

8326 

8327 

8328 

8329 

8330 

8331 

8332 

8333 

8334 

8335 

8336 

8337 

8338 

8339 

8340 

8341 

8342 


042307 
042310 
042311 
042312 
042313 
042314 
042315 

042316 
042317 
042320 
042321 
042322 
042323 
042324 
042325 
042326 
042327 
042330 
042331 
042332 
042333 
042334 

042335 
042336 
042337 
042340 
042341 
042342 

042343 
042343 
042344 
042345 
042346 

042347 
042350 


261  17  0  00  000000 

261  17  0  00  000001 
200  00  1  00  030113 
202  00  0  00  065306 
214  00  0  00  000000 
243  00  0  00  042316 
364  00  0  00  042323 

200  00  0  00  000001 
231  00  0  00  000003 
275  00  0  00  000014 
335  00  0  00  065306 
275  00  0  00  000001 
135  01  0  00  057111 
270  00  0  00  000001 
323  00  0  00  042330 
037  00  0  00  000040 
367  00  0  00  042326 
200  00  0  00  065306 
037  16  0  00  000003 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 

261  17  0  00  000001 
2uJ  01  0  00  126004 
260  17  0  00  047234 
260  17  0  00  043351 

262  17  0  00  000001 

263  17  0  00  000000 


037  02  0  00  057112 
200  00  0  00  000010 
405  00  0  00  037777 
037  15  0  00  000000 

037  02  0  00  057115 
263  17  0  00  000000 


;*  Print  an  octal  number  in  a  field  of  size  x. 
Call  is:  pntnum  x,adr 


*****•**•*•**•*****••*•*••*•****••**•*♦******•••****•***••*•*••••••••• 


PNTNUM:  PUT 
PUT 
MOVE 
MOVEM 
MOVM 
JFFO 
SOJA 

PNTNUA:  MOVE 
IDIVI 
SUB  I 
SKIPGE 
SUB  I 

PNTNUB:  LDB 
ADD 

JUMPLE 
PSP 
SOJG 

PNTNUC:  MOVE 

PNTOCS 
GET 
GET 
RTN 

ERPNT2:  PUT 
MOVE 
GO 
GO 
GET 
RTN 

PNTSTN:  PMSG 
PSIXM 
MOVE 
AND  I 
PNTDEC 
PMSG 
PSIXM 
RTN 


0 

1 
assvuuo 

PNTNMS* 

PNTNUA 
PNTNUB 

1 

3 

^D12 

PNTNMS 

1 

1, [POINT  4,$SVUU0J2j 

PNTNUC 

.-1 
PNTNMS 


1 
O 


1 

AC1,C0NIAC 
CONIPT 
ERPNT1 
1 


;Save  some  ac's 

;Get  number  to  print 

;Save  it 

;Get  its  magnitude 

; Count  leading  zeros 

;Number  is  zero,  count  one  digit 

;Move  count  to  0 
.•Convert  to  octal  digits 
; Compute  digits  in  number 
;Skip  if  number  is  positive 
; Count  -  sign  as  a  digit 
;Get  field  size 
;No.  of  spaces  to  print 

; Print  spaces 

;Get  number  again 
; Print  number 


;Exit 

;Save  ac 

;Get  saved  coni  status 

; Print  it 

;Print  rest  of  regs 

.-Restore  reg 


<nEST  NUMBER  >'' 
CSIXBITXnEST  NUMBER     \] 
F 
TESTN 

[SIX8IT\.\\]^ 


;Get  test  number 
; Isolate  it 
;Print  it 


r 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFOXDM  MAC     6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  5;53A(1152)  18:38  6-Apr-85  Page  125 


SEQ  0359 


8343 

83AA 

83A5 

83A6 

83A7 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 

8373 

8374 

8375 

8376 

8377 

8378 

8379 

8380 

8381 

8382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 


;*  Data  pattern  table 

« 


042351 
042352 
042353 
042354 
042355 
042356 
042357 
042360 
042361 
042362 
042363 
042364 
042365 
042366 
042367 


000000 

001  001 

002  002 
004  004 
010  010 
020  020 
040  040 
100  100 
200  200 
377  377 
210  104 

273  167 

274  377 
010  010 


000000 

0000000 

0000000 

0000000 

0000000 

0000000 

0000000 

0000000 

0000000 

377  377  17 

042  021  04 

356  333  07 

103  000  00 

010  010  10 


000015 


PATERN:  0 

BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 

PATEND: 


(8)  001,001 

(8)  002,002 

(8)  004,004 

(8)  010,010 

(8)  020,020 

(8)  040,040 

(8)  100,100 

(8)  200,200 

(8)  377,377,377,377  (4)  17 

(8)  210,104,042,021  (4)  04 

(8)  273,167,356,333  (4)  07 

(8)  274,377,103,000  (4)  00 

(8)  010,010,010,010  (4)  10 


Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 
Pattern 


code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


DATAX==PATEND-PATERN-1 
;*  Word  counts  for  all  data  transfer  loops 


042367 
042370 
042371 
042372 
042373 
042374 
042375 
042376 


000000 
000000 
000000 
000000 
GuJOOO 
000000 
000000 
000000 


000001 
000002 
000003 
000004 
000012 
000024 
000764 
002525 

000007 


SIZE:  1 
2 
3 

4 

*D10 
*D20 
*D500 
*D1365 


.•These  word  counts  are  left  over  from  dftue 
;And  have  no  significance  for  this  stuff 
;But  here  they  are  anyway 


;This  one  gets  changed  to  *d512  if  user  mode 
SIZEX==.-SIZE-1 
;*  Byte  size  for  all  partial  word  transfer  loops 


042377 
042400 
042401 
042402 
042403 
042404 
042405 
042406 
042407 
042410 
042411 
042412 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000007 

PSIZE:   7 

000010 

10 

000011 

11 

000012 

12 

000013 

13 

000014 

14 

005452 

5452 

005453 

5453 

005454 

5454 

005455 

5455 

005456 

5456 

005457 

5457 

000013 


PSIZEX==.-PSIZE-1 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC      6-Apr-85  18:38        STATUS  PRINTER 


VERSION  0.5    MACRO  253A(1152)  18:38  6-Apr-85  Page  126 


SEQ  0360 


8396 

8397 

8398 

8399 

8A00 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 

8431 


042413  077  077  077  077  03 

042414  17  077  077  077  077 


042415 
042416 
042417 
042420 
042421 
042422 
042423 
042424 
042425 
042426 
042427 
042430 

042431 
042432 
042433 
042434 
042435 
042436 

042437 
042440 
04244: 
042442 
042443 
042444 

042445 
042446 
042447 
042450 
042451 
042452 


000000 
777777 
177   377 
777777 
}77  }77 
777777 
000000 
077  077 
077  077 
777777 
077  077 
777777 

000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 

Ou-»000 
000000 
000000 
000000 
000000 
000000 


000000 

777777 

377  377  00 

777777 

y77  }77   177  0 

777777 

000000 

077  077  17 

077  077  00 

777777 

077  077  077   0 

777777 

000000 
000010 
000010 
000006 
000007 
00001 C 

000000 
000005 
000004 
000006 
000005 
000011 

000000 
000005 
000005 
000006 
000005 
000005 


HIMSKE:  BYTE  (8)  77 .77 ,77 J7   (4)   3 
HIMSKO:  BYTE  (4)   17  (8)  77 ,77 .77 J7 

DMASK9:  0 

-1 

BYTE  (8)  V7 .177 .177 .177 

-1 

BYTE  (7)  177,177,177,177,177 

-1 
DMASK7:  0 

BYTE  (8)  77.77.77.77   (4)  17 

BYTE  (8)  77.77.77.77 

-1 

BYTE  (7)  77.77.77.77.77 

-1 


BSIZE 


BPU: 


BPWP: 


0 
8 
8 

8 

0 
5 
4 
6 
5 
9 

0 
5 
5 
6 
5 
5 


Table  indices  start  at  1 

Core  dump  mode,  9-track 

Byte  mode 

Sixbit  mode 

ASCII  mode 

Hi  density  mode 

Table  indices  start  at  1 

Core  dump  mode,  7- track 

Byte  mode 

Sixbit  mode 

Ascii  mode 

Hi  density  mode 


Table  indices 
Byte  size  for 


start  at  1 
core  dump  mode 

Byte  mode 

Sixbit  mode 

Ascii  mode 

Hi  density  mode 


Table  indices  start  at  1 
Bytes  per  word,  core  dump  mode 

Byte  mode 
Sixbit  mode 
Ascii  mode 
Bytes  per  2  words,  hi  density  mode 

Table  indices  start  at  1 
Bytes  per  word,  core  dump  mode 

Byte  mode 
Sixbit  mode 
Ascii  mode 
Hi  density  mode 


D^DXD   DX20-V100  MAGNEMC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DFDXDM  MAC      6-Apr-85  18:38        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  X53A(1152)  18:58  6-Apr-85  Page  127 


SEQ  0361 


8432 
8433 
8434 
8435 

8436 
8437 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 


042453 
042454 
042455 
042456 
042457 
042460 
042461 
042462 
042463 


042464 
042465 
042466 
042467 
042470 
042471 
042472 
04247! 
042474 

042475 
042475 
042476 
042477 
042500 
042501 
042502 
042503 
042504 
042505 
042506 
042507 
042510 


000000 
261  17 


261 
261 
261 
261 
261 
261 
254 


17 
17 
17 
17 
17 
17 
00 


000000 

262  17 

262 

262 

262 

262 

262 

262 

254 


01S 
Go  J 
060 
116 
040 
040 
131 
040 
116 
103 
062 
000 


17 
17 
17 
17 
17 
17 
00 


000000 
0  00  000000 
0  00  000001 
0  00  000002 
0  00  000003 
0  00  000004 
0  00  000005 

0  00  000006 

1  00  042453 


000000 
0  00  000006 
0  00  000005 
0  00  000004 
0  00  000003 
0  00  000002 
0  00  000001 

0  00  000000 

1  00  042464 


012 
055 
040 
105 
124 
123 
123 
104 
117 
040 
060 
000 


104 
126 
115 
124 
101 
125 
124 
111 
123 
050 
051 
000 


130 
061 
101 
111 
120 
102 
105 
101 
124 
122 
015 
000 


062 
060 
107 
103 
105 
123 
115 
107 
111 
110 
012 
000 


SUBTTL  SAVE  AND  RESTORE  .^C  ROUTINES 


•  ♦♦♦♦♦♦♦♦♦**♦♦♦»»♦♦*♦♦♦♦♦♦♦♦**♦♦♦♦*♦♦•♦»•♦♦*♦♦♦♦♦♦**•*♦♦♦♦♦♦♦*♦*♦♦♦♦♦•* 

;♦  This  routine  will  save  all  ac's  for  the  tape  op  uuos 

•  »♦♦♦»•♦♦»•*•*♦*♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•**♦••**♦*♦♦♦♦♦*♦♦♦♦•••*♦•*♦♦♦**** 

« 

SAVAC :   0 

PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
JRST 

;•  This  routine  will  restore  all  ac's  after  a  tape  op  uuo 

RESAC: 


0 

GET 

GET 

GET 

GET 

GET 

GET 

GET 

JRST 


t 

4 
3 

2 
1 
0 

dRESAC 


PGMNAM:  ASCIZ/ 

DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 


DfDXD 
DXCOW 

8A73 
8A74 
8475 
8476 

8478 
8479 
8480 
8481 
8482 
8483 
8484 
8485 
8486 
8487 

8488 
8489 
8490 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8501 
8502 
8503 
8504 
:  8505 
8506 
I  8507 
I  8508 
I  8509 
I  8510 
I  8511 
1  8512 
8513 
8514 
8515 
8516 
8517 
8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 


DX20-V100  WAGNEMC   TAPE 
MAC  18-Jdn-85  14:26 


SUBSYSTEM  DIAGNOSTIC    (RH20) 
SAVE   AND  RESTORE   AC 


VERSION  0.5 
ROUTINES 


MACRO  X53Ani52)   18:38     6-Apr-85  Page  2 


SEQ  0362 


042511  476  00  0  00  047061 

042512  200  00  0  00  030046 

042513  602  00  0  00  400000 

042514  255  00  0  00  000000 


042515 
042516 

042517 
042520 
042521 
042522 
042523 
042524 
042525 
042526 
042527 
042530 
042531 
042532 
042533 
042534 
042535 
042536 
042537 
042540 
042541 
042542 
042543 
042544 
042545 
042546 

042547 
042550 
042551 
042552 
042553 
042554 
042555 

042556 
042557 

042560 
042561 
042562 


332  00  0  00  047061 
254  00  0  00  042547 


200  00 
202  00 
200  00 
202  00 
200  00 
202  00 

200  00 
202  00 

201  00 

202  00 

201  00 
20?  00 
2uJ  00 

202  00 
202  00 
202  00 
202  00 

200  00 
202  00 
402  00 

201  00 

202  00 
402  00 
263  17 

200  00 

202  00 

200  00 

202  00 

200  00 

202  00 

200  00 
202  00 

201  00 

202  00 
402  00 
200  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


057116 
044542 
057117 
044543 
057120 
044544 
057121 
044545 
020000 
047062 
000100 
047122 
047123 
047124 
047125 
047126 
047127 

057122 
047437 
047064 
000012 
047120 
047564 
000000 

057123 
044542 
057124 
044543 
057125 
044544 
057126 
044545 
003600 
047062 
047122 
057'>27 


♦•♦♦»•♦♦*♦♦•♦•♦*••»*♦♦♦♦♦»•♦♦»♦♦*•♦*••*♦*•••♦♦•♦•♦♦*•♦♦♦♦♦♦*♦***•*♦*♦♦ 

*  This  IS  the  common  code  area  for  the  dx20  diaqnostks.  this  code  applies 

*  To  dfdxc,  the  dx20  test;  dfdxd,  which  tests  tne  basic  tape  operations; 

*  And  dfdxe  which  is  the  tape  reliability  test. 
»  ! !1 iiyarning! ! : 1 1 

*  If  you  change  anything  here,  make  sure  you  know  that  the  other  tests 

*  Mignt  be  affected. 
•♦♦♦♦»♦♦•*♦***♦♦♦♦•••♦♦•♦*♦♦*•••*♦♦•*****•**♦♦•♦•*♦•*•♦**♦*♦♦*♦•♦*♦•♦♦ 


NITRH:  SETOM 
MOVE 
TRNE 
Setzm 
JFCL 

SKIPE 
JRST 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

MOVEM 

MOVE  I 

MOVEM 

MOVEM 

MOVEM 

MOVEM 

MOVEM 

MOVEM 

MOVE 

MOVEM 

SETZM 

MOVE  I 

MOvEM 

SETZM 

RTN 


INITD: 


MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

MOVEM 

SETZM 

MOVE 


RH20F6 
O.CONSy 
0JB18 
rh20fg 


RH20FG 
INITD 

C27000,,0] 

MBCMIN 

C37400,,0] 

MBCMAX 

[-6,,RHT8L] 

RHWD 

r-^D48,,DEVTBL] 

DEVUD 

"D8192 

MAXWD 

100 

ICUAO 

ICWA1 

ICyA2 

ICyA3 

ICyA4 

icyA5 

[POINT  3,1,3] 

INRNDX 

JMPyD 

'^DIO 

CHK 

R74TBL*1 


C54000,,0] 

MBCMIN 

[57400,, 0] 

MBCMAX 

[-10,,RHTBL] 

RHyD 

[-•D64,,DEVTBL] 

DEVyD 

•D1920 

MAXyD 

icyAO 

[POINT  5,1,5] 


;Rh20 

;Get  console  switches 

;Switch  18  means  rhIO 


;Rh20? 
;Yes 


A  df10  jump  ccw 
#  Of  logojt  words 


per  channel 


;Rh20 


0 


DFDXD 
DXCOM 

8528 

8529 

8530 

8531 

8532 

8533 

85  3A 

8535 

8536 

8537 

8538 

8539 

8540 

8541 

85A2 

85A3 

8544 

8545 

8546 


DX20-V100  MAGMEMC  TAPE 
MAC     18-Jdn-85  14:26 


SUBSYSTEM  DIAGNOSTIC  (RH20) 
SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  X53A(115?)  18:38  6-Apr-85  Page  2-1 


SEQ  0363 


042563 
042564 
042565 
042566 
042567 
042570 
042571 
042572 


202  00 

200  00 
202  00 

201  00 

202  00 
200  00 
202  00 
263  17 


0  00 
0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 


047437 
057130 
047064 
000004 
047120 
057131 
047564 
000000 


042573 

042573  027  00  0  00  000000 

042574  405  01  0  00  ^77777 

042575  516  01  0  00  000016 

042576  200  00  0  00  057132 

042577  202  00  0  00  030514 
042600  263  17  0  00  000000 


MOVEM  INRNDX 

MOVE  [181] 

MOVEM  JMPyD 

MOVE  I  4 

MOVEM  CHK 

MOVE  l7777777B2tl 

MOVEM  R74T8L*1 
RTN 


UPTEST:  RDREG   DX6P0 


;A  kl'O  channel  jump  word 

;#  Of  logout  irfords  per  channel 


*;Read  test  number 


AND  I 

An. 177777 

.-Clear  other  bits 

HRLZM 

AC1,REPT1 

;Save  in  repti 

MOVE 

[GO  UPERR] 

;Set  up  error  hand 

MOVEM 

XERHI3 

RTN 

er 


L- 


DFDXD   DX20-V100  MAGNETIC  TAPE 
DXCOM   MAC    18-Jdn-85  14:26 


85A7 
85A8 
85A9 
8550 
8551 
8552 
8553 
855A 
8555 
8556 
8557 
8558 
8559 
8560 
8561 
8562 
8563 
856A 
8565 
8566 
8567 

8568  042601 

8569  042602 

8570  042603 
8571 

8572 
8573 

8574  042604 

8575  042605 
8576 

8577 
8578 

8579  042606 

8580  042607 

8581  042610 
8382  042611 
8583 

8584 
8585 

8586  042612 

8587  042613 

8588  042614 

8589  042615 

8590  042616 
8591 

8592 
8593 

8594  042617 

8595  0426^0 

8596  042621 

8597  042622 
8!)98  042623 

8599  042624 

8600  042625 

8601  042626 


SUBSYSTEM  DIAGNOSTIC  (RH20) 
SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  3 


SEQ  0364 


261  17  0  00  000004 
261  17  0  00  000003 
261  17  0  00  000002 


200  02  0  00  000044 
202  02  0  00  065351 


332  00  0  00  042664 
254  00  0  00  042612 
554  02  0  00  000120 
202  02  0  00  042664 


200  02  0  00  042664 
200  03  0  00  000002 
270  03  0  CO  000001 
275  03  0  00  00000^ 
200  04  0  00  000003 


336  00 
254  00 
332  00 
254  00 
317  03 
254  00 
047  03 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


030037 
042627 
030516 
042627 
000044 
042627 
00001 1 
042660 


Gtcor  -  gets  core  and  expands  the  size  of  your  program 
This  utility  is  used  primarily  to  expand  core  in  user  mode  and 
Clear  the  new  core  it  expands  in  so  the  pages  will  have  been 
Touched  and  page  faults  won't  occur  when  your  locked  in  core. 
The  routine  is  used  also  in  exec  mode  to  merely  manage  your 
Pointers  and  clear  core,  each  time  this  routine  expands  core 
It  reports  the  size  of  memory  being  used  by  the  program. 

.Jbrel  (rh)  always  highest  available  address  avail  to  user 

You  must  define  a  location  "frecor"  in  your  program,  frecor  should 
Be  initialized  to  the  value  from  .jbsa(LEFT)  which  resets  it  to 
The  first  location  above  the  program,  each  call  to  this  routine  then 
Updates  '"frecor"  so  it  is  always  pointing  to  the  first  free  core 
Location  not  in  use  by  the  program. 


Call  seq: 

Move 

Go 

Rtnl 


GTCOR: 


PUT 
PUT 
PUT 


1,arg1 
gtcor 


4 
3 

2 


it   of  words  of  memory  you  want 

the  call 

■♦•1  ad  points  to  start  of  buffer  (cleared) 

;Save  ac's 


;Save  current  value  of  .jbrel  for  use  at  the  end  of  this  routine 


MOVE    2,. JBREL 
MOVEM   2,.JRLSV# 


;Get  current  value 

;Save  in  a  local  location 


;Code  to  initialize  frecor  if  user  didn't  (or  we  wipe  his  memory) 


SKIPE  FRECOR 

JRST  .+3 

HLR2  2,.JBSA 

MOVEM  2, FRECOR 

;Get  limits  for  new  memory  space 


;Is  frecor  a  valid  number  ? 
;Yes.  no  need  to  init 
;Get  first  non-program  location 
;Now  initialized  properly 


MOVE 

MOVE 

ADD 

SUBI 

MOVE 


2, FRECOR 

3,2 

3J 

4,3 


T'  is  is  the  start 

k   copy  to  ac3 

Ad  now  end  addr^l 

Ad  now  final  addr 

Get  copy  to  dr4  for  later  use 


; Chech  user/exec  mode  and  monitor  types,  if  necessary  do  a  core  uuo. 


SKIPN 
JRST 
SKIPE 
JRST 
CAMG 
JRST 
CORE 
JRST 


USER 
GTC0R1 
MONTYP 
GTC0R1 
3, .JBREL 
GTC0R1 
3, 
GTCORE 


;User/exec  ? 

;Exec 

;Tops10/:ops20  ? 

;Tops20 

;Tops10.  see  'f  we  need  more  core  ? 

;No  we  don't 

;Do  a  core  uuo  ... 

;Error  return 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
DXCOM   MAC     18-Jdn-85  1A:26        SAVE  AND  RESTORE  AC  ROUTINES 


MACRO  3;53A(1152)  18:38  6-Apr-85  Page  3-1 


Seo  0365 


8602 

8603 

860A 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

86U 

8615 

8616 

8617 

8618 

8619 

8620 

8621 

8622 

8623 

862A 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

86A0 

86A1 

86A2 

86  A  3 

86AA 

86A5 

86A6 

86A7 

86A8 

86A9 


0A2627 
0A2630 
0A2631 
0A2632 
0A2633 
0A263A 
0A2635 
0A2636 


0A2637 
0A26A0 
0A26A1 
0A26A2 
0A26A3 
0A26AA 
0A26A5 
0A26A6 
0A26A7 
0A2650 


0A2651 
0A2652 
0A2653 
0A265A 
0A2655 
0A2656 
0A2657 


0A2660 


200  01  0 
350  00  0 
202  OA  0 
200  02  0 
A02  00  0 
350  00  0 
315  02  0 
25A  00  0 


00  0A266A 
00  GOOOOA 
00  0A266A 
00  000001 
02  000000 
00  000002 
00  0A266A 
00  0A2633 


336  00 
25A  00 
336  00 
25A  00 
200  03 
317  03 
25A  00 
275  03 
A35  03 
202  03 


200 
312 
260 
2oi 
262 
262 
263 


02 
02 
17 
17 
17 
17 
17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


030037 
0A26A3 
030516 
042651 
0A266A 
OOOOAA 
0A2651 
000001 
000777 
OOOOAA 


OOOOAA 
065351 
0A2665 
000002 
000003 
OOOOOA 
000000 


0A2660  037  01  0  00  057133 

0A2661  10A  00  0  00  0001A7 

0A2662  0A7  00  0  00  000012 

0A2663  25A  00  0  00  0A2662 

0A266A  000  00  0  OU  000000 


;Set  up  new  pointers  and  clear  the  new  core  area 
GTC0R1 


MOVE 

AOS 

MOVEM 

MOVE 

SETZM 

AOS 

CAMGE 

JRST 


IJRECOR 

A,FRECOR 

2,1 

0(2) 

2 

2,FREC0R 


;Get  users  pointer  to  start 
;Pointing  to  free  core 
;Sa\/e  it  in  pointer 
;Start  addr  to  an  index  reg 
;Clear  location 
;Bump  the  pointer 
;See  of  we're  done 
;Not  done 


;If  exec  mode  or  under  tops20,  adjust  .jbrel 


SKIPN 

JRST 

SKIPN 

JRST 

MOVE 

CAMG 

JRST 

SU8I 

lORI 

MOVEM 

;Exit  code.. 

GTCRX:  MOVE 
CAME 
60 
GET 
GET 
GET 
RTN 


USER 

MONTyP 

GTCRX 

3,FREC0R 

3,.J8REL 

GTCRX 

3,1 

3,777 

3,.J8REL 


User/exec  ? 
Exec  mode....  adjust. 
User  mode.  topsl0/10ps20  ? 
TopslO.  no  need  to  adjust 
Exec  mode  or  under  tops20  if  here 
Update  .jbrel  only  if  frecor  larger 
No  need  to  update  . .. 
Point  to  last  location  used  by  prog 
Round  to  last  location  on  that  page 
Now  have  core  limit  correctly... 


before  we  exit,  see  if  .jbrel  has  changed,  if  so.  report. 


2, .JBREL 

2,.JRLSV 

CORSIZ 

2 

3 

A 


;6et  current  value  of  .jbrel 
;Is  it  the  same  as  the  initial  value 
;Nope  ...  print  new  size  of  memory 
;Done.  restore  ac's 


.-Exit 


;The  error  handler  for  core  uuo 

GTCORE:  PNTMSF   [ASCIZ/ 

CORE  UUO  FAILURE.  SET  CORMIN=0  AND  CORMAX=0  AND  RESTART  PROGRAM. 


n 


RESET 

EXIT 

JRST 


.-1 


; Issue  a  reset 
;Stop  the  job 


FRECOR;  Z 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DXCOM   MAC     18-Jdn-85  14:26        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  4 


SEQ  0366 


8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 

8659 

8660 

8661 

8662 

8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 

8681 

868? 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

3699 

8700 

8701 

8702 

8703 

8704 


042665 
042666 

042667 
0^2670 
0'»2671 
042672 
042673 
042674 
042675 
042676 
042677 
042700 
042701 
042702 
042703 
042704 

042705 
042706 
042707 
042710 


042711 
042712 
042713 
042714 
042715 
042716 
042717 
042720 
042721 
042722 


336  00  0  00  030037 
263  17  0  00  000000 


261  17 
261  17 
037  00 
200  00 
271  00 
231  00 
332  00 
350  00 
260  17 
037  00 
200  00 
271  00 
23'  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
057152 
000044 
000001 
002000 
000001 
000000 
050142 
057156 
000044 
000091 
001000 
050142 


037  00  0  00  057157 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


332 
263 
402 
200 
047 
037 
201 
315 
476 
263 


00 
17 
00 
01 
01 
15 
02 
01 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030516 
000000 
042723 
057161 
000041 
000004 
070200 
000002 
042723 
000000 


042723  000  00  0  00   000000 


Corsiz  —  routine  to  report  the  current  (user  mode)  core  useage 
Prints  nemory  useage  in  both  octal  and  decimal  (k  and  pages) 
With  the  following  typical  message: 

Program  using  100(64. )k  200(128. )pages 

The  calculations  are  all  made  from  .jbrel 

MK   =  [.jbreUI.J  /  1024.  (+1  if  there  is  a  remainder) 
^Pages  =  C.jbreUI.J  /  512. 


Call  seg: 
Rtn 


CORSIZ:  SKIPN 
RTN 

PUT 

PUT 

PNTMS6 

MOVE 

ADDI 

IDIVI 

SKIPE 

AOS 

60 

PNTMS6 

MOVE 

ADDI 

IDIVI 

60 

PNTMS6 


corsiz 


USER 


;the  call 
."♦•I  always 

;User  mode  ? 
;No.  don't  print 

;Sa\/e  ac*s 


0 

1 

CASCIZ/PR06RAM  USIN6  /J 

0, .JBREL       ;6et  .jbrel 


n 


6ET 
6ET 
RTN 


0,1 
0,^D1024 

0 

POCDEC 

CASCIZ/K  /D 

0, .JBREL 

OJ 

0,"D512 

POCDEC 

CASCIZ/PAOES 

1 
0 


;A  rounding  factor 
.•Convert  to  "k" 
;Is  there  a  remainder  ? 
;Yes  ....  round  up 
.-Print  octal  and  decimal 

;6et  .jbrel 
; Rounding  factor 
;6ets  number  of  pages 
.•Print  octal  and  decimal 


.•Restore  ac's 
;Exit 


*6et  topslO  version  number 


TOPlOV:  SKIPE   MONTYP 


RTN 

SETZM 

MOVE 

6ETTAB 

FATAL 

MOVE  I 

CAM6E 

SETOM 

RTN 


V701F6 

AC1.C34..11] 

AC1. 

AC2. 70200 

AC1,AC2 

V/01F6 


TopslO? 

No.  tODs20 

Clear  701  flag 

6et  monitor  version  number 

6o  do  it 

Never  ever 

6et  something  to  compare  with 

Version  702  or  greater? 

No.  set  701  flag 

Yes 


V701FG:  Z 


L 


r 


DFDXD 
DXCC1 

8705 
8706 
8707 
8708 
8709 
8710 
8711 
8712 
8713 
87U 
8715 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     18-Jdn-85  K:26        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  :53A(1152)  18:38  6-Apr-85  Page  A-1 


SEQ  0367 


OA272A 
042725 
0A2726 
0A2727 
0A2730 
0A2731 
0A2732 
0A2733 
0A273A 
0A2735 


261 
261 
200 
135 
250 
037 
202 
262 
262 
263 


17 
17 
00 
01 
01 
16 
01 
17 
17 
17 


0 
0 
1 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
030113 
057111 
03026A 
000000 
030d&A 
000001 
000000 
000000 


.'Save  acs 


PDEC:   PUT  0 

PUT  1 

MOVE  aSSVUUO       ;6et  number  to  print 

LDB  1. [POINT  A.$SVUU0J2]   ;6et  size  field 

EXCH  I.RADLSC       ;Put  in  position 
PNTDS  .-Print  the  number 

MOVEM  1.RADLSC       .-Restore  old  field  size 

GET  1  .'Restore  acs 

GET  0 
RTN 


DFDXD       DX20-V100  MAGNETIC   TAPE   SUBSYSTEW  DIAGNOSTIC   (RH20)  VERSION  0.5 

OXCOM       MAC  18-Jdn-85  14:26  SAVE  AND  RESTORE  AC  ROUTINES 


MACRO  X53A(1152)  18:38     6-Apr-85  Page  5 


SEQ  0368 


8716 

8717 

8718 

8719 

8720 

8721 

8722 

8723 

872A 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 


042736 
042737 
042740 
042741 
042742 
042743 
042744 
042745 
042746 
042747 
042750 
042751 


261 
260 
260 
476 
201 
202 
260 
260 
402 
260 
262 
263 


17 
17 
17 
00 
01 
01 
17 
17 
00 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
046730 
051360 
030050 
000000 
065223 
051205 
036645 
030050 
046707 
000000 
000000 


042752 
042753 
042754 
042755 
042756 
042757 
042760 
042761 
042762 
042763 


261 
037 
135 
260 
037 
135 
260 
037 
262 
263 


17 
01 
00 
17 
01 
00 
17 
00 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  057162 
00  052534 
00  050142 
00  057170 
00  052535 
00  050142 
00  030242 
00  000000 
00  000000 


•♦Read  the  dx20  microcode  version  into  ad 


Call  seq: 

Go     getver 

Rtn 


GETVER:  PUT 
GO 
GO 

SETOM 
MOVE  I 
MOVEM 
GO 
GO 

SETZM 
GO 
GET 
RTN 


0 

DEVREQ 

SP 

RUNFLG 

1,0 

l^CADDR 

RCR 

MS TART 

RUNFLG 

DEVREL 

0 


the  call 

version  is  in  ad  > 

Save  ac*s 

Request  device 

Stop  uprocessor 

No  type  out 

Get  cram  address  to  read 

Store  it 

Code  to  get  contents  of  cram  in  ad 

Restart  ucode 

Restore  flag 

Release  device 


; ♦Print  dx20  u-code  version  from  ad 


0 


This  routine  prints  the  current  dx20  microcode  version  and  edit 
Numbers  from  ad  followed  by  a  crlf.  (printing  is  not  forced). 

The  low  order  16  bits  of  the  ac  contain  the  version 
And  edit  numbers. 

The  high  order  6  bits  is  the  version  and  low  order  10  bits 
Is  the  edit  level. 


Call  seq: 
Move    1,arg1 


Go 
Rtn 


mcodep 


.•get  16  bit  microcode  identifier 
;!he  call 
.•returns  here  > 


MCODEP:  PUT    0  ;Save  the  ac 

PNTMSF  CASCIZ/DX20  MICROCODE:  VERSION  -  /J 
LDB    0. [POINT  6.1.253  -Get  version 
GO     POCDEC        ;Print  it 
PNTMSF   CASCIZ/   EDIT  -  /] 
LDB    0. [POINT  10.1.35]  ;Get  edit  level 
POCDEC         .-Print  it 

.•Advance  to  next  line 
0 

;Exit 


GO 
PCRL 
GET 
RTN 


DFDXD 
DXCOM 

8767 

8768 

8769 

8770 

8771 

8772 

8773 

8774 

8775 

8776 

8777 

8778 

8779 

8780 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERS 
MAC     18-Jdn-85  U:26        SAVE  AND  RESTORE  AC  ROUTINES 


VERSION  0.5    MACRO  253A(1152)  18:38  6-Apr-85  Page  6 


SEQ  0369 


0A276A 
042765 
042766 
042767 
042770 
042771 
042772 
042773 
042774 
042775 


037 
554 
037 
200 
603 
263 
260 
037 
260 
263 


02 
00 
15 
00 
00 
17 
17 
02 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


052630 
000016 
000000 
030046 
000200 
000000 
042776 
052633 
043030 
000000 


•♦Print  test  number 

•   ♦»»t»»* ♦»*#»**♦♦♦*»» t******»*»t******«r*************** ♦♦♦♦♦♦♦♦♦♦♦♦**♦*♦ 


UPERR: 


PMSG 

<*ERROR  IN  TEST 

HLRZ 

REPT1 

PNTDEC 

MOVE 

0,CONSW 

TLNE 

TXTINH 

RTN 

GO 

RDMES 

PMSG 

<  ♦  > 

GO 

TYPMES 

RTN 

;Get  the  number 

; Print  it 

;Get  console  switches 

.-yant  more  info? 

;No 

;Read  message  file 

;Type  test  name 


L- 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DXCOM   MAC     18-Jdn-85  U:26        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  7 


SEQ  0370 


8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 

879A 

8795 

8796 

8797 

8798 

8799 

8800 

8801 

8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 

8811 

8812 

8813 

8814 

8815 

8816 

8817 

8818 

8819 

8820 

8821 

8822 

8823 

8824 

8825 

8826 

SB27 

8828 


042776 

205  00 

042777 

202  00 

043000 

260  17 

043001 

254  00 

043002 

400  05 

043003 

554  03 

043004 

231  03 

043005 

271  04 

043006 

245  04 

043007 

326  03 

043010 

260  17 

04301 1 

254  00 

043012 

302  00 

04301 3 

254  00 

043014 

200  03 

04301 5 

400  02 

043016 

134  00 

043017 

306  00 

043020 

254  00 

043021 

136  00 

043022 

254  00 

043023 

312  02 

043024 

254  00 

043025 

202  00 

043026 

263  17 

043027 
043030 
043031 
043032 
043033 
043034 
043035 
043036 
043037 
043040 
043041 
043042 
043043 
043044 
043045 
043046 

043047 
043050 

043051 
043052 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
306  00  0 
254  00  0 
302  00  0 
306  00  0 
254  00  0 
037  00  0 
254  00  0 
202  00  0 
263  17  0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


556347 
065330 
051633 
043051 
000000 
000016 
00001 2 
000060 
77777^ 
043004 
051605 
043051 
000072 
043010 
057173 
000000 
000004 
000072 
043C23 
000003 
043016 
000005 
043010 
065262 
000000 


037  12 
134  00 
302  00 
254  00 
2oJ  17 
254  00 
302  00 


00  000000 
00  000004 
00  000015 
00  043027 
00  051605 
00  043047 
00  000072 
00  000041 
00  043045 
00  000135 
00  000073 
00  043045 
00  030242 
00  043027 
00  065262 
00  000000 


402  00  0  00  065262 
263  17  0  00  000000 

037  02  0  00  057174 
263  17  0  00  000000 


RDMES:  MOVSI 
MOVEM 
GO 

JRST 
SET2 
HLR2 

NUMCNV:  IDIVI 
ADD] 
ROTC 
JUMPN 

NUMRD :  GO 

JRST 
CAIE 
JRST 
MOVE 
SETZ 

NUMRD I:  ILDB 
CAIN 
JRST 
IDPB 
JRST 

NUMCMP:  CAME 
JRST 
MOVEM 
RTN 


TYPONE: 
TYPMES: 


CRFND: 


PNTCHR 
ILDB 
CAIE 
JRST 
GO 

JRST 
CAIE 
CAIN 
JRST 
CAIE 
CAIN 
JRST 
PCRL 
JRST 
KEYFND:  MOVEM 
RTN 


•MSG' 

SUBEXT 

LOOKPG 

NOMES 

AC5, 

AC3,REPT1 

AC3,'^D10 

AC4/'0" 

AC4,-7 

AC3, NUMCNV 

GTLIN 

NOMES 


;Get  msg  extension 
;Put  In  subname  block 
;Look  up  file 


.•Clear  ac 
;Get  test  number 
.-Divide  by  10 
.-Convert  to  ascii 
.-Shift  into  ac5 
.-Keep  converting 
.-Read  a  line 


digit 


•  •.»• 


NUMRD 

AC3. [POINT 
AC2. 
4 


!•   •• 


NUMCMP 

AC3 

NUMRD I 

AC2.AC5 

NUMRD 

KEYCHR 


4 

15 

TYPONE 

GTLIN 

RDEOF 

":'* 

KEYFND 

I  IT  I  I 
II.  M 

KEYFND 

TYPONE 
KEYCHR* 


RDEOF:  SETZM   KEYCHR 
RTN 


.-Look  for  a  : 
:Not  here,  keep  reading 
7,AC2j      .-Set  up  pointer 
.-Clear  ac2 
.-Get  a  character 
.-Check  for  terminator 
.-Yes.  go  compare 
.-Deposit  character 
.-Get  next 
.-Compare 

.-Not  this  one.  read  on 
.-Save  the  key  character 


.-Print  one  character  from  0 

.-Read  a  character 

.-Check  if  a  cariage  return 

.-No 

.-Read  next  line 

;Eof 

.-Check  for  any  key  character 

;Yes 


.-End  the  line 

.-None  of  these,  keep  typing 

.-Save  the  key  character 


.-Clear  key  character  to  denote  eof 


NOMES:  PMSG    <???  CANNOT  FIND  MESSAGE  FOR  ERROR''> 
RTN 


8 


DFDXD 
DXCOM 

8829 

8830 

8831 

8832 

8833 

883A 

8835 

8836 

8837 

8838 

8839 

88A0 

88A1 

8842 

88A3 

88A4 

88A5 

88A6 

88A7 

88A8 

88A9 

8850 

8851 

8852 

8853 

885A 

8855 

8856 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
MAC     18-Jdn-85  1A:26        SAVE  AND  RESTORE  AC  ROUTINES 
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SEQ  0371 


0A3053 
0A305A 
0A3055 
0A3056 
0A3057 
0A3060 
0A3061 
0A3062 
0A3063 
0A306A 

0A3065 
0A3066 
0A3067 
0A3070 
0A3071 
0A3072 
0A3073 
0A307A 
0A3075 
0A3076 
0A3O77 
0A31OO 
0A3101 


336 
263 
261 
261 
261 
332 
25A 
201 
202 
25A 

201 
200 
10A 
10A 
200 
10A 
200 
10A 
A02 
262 
262 
262 
263 


00 
17 
17 
17 
17 
00 
00 
00 
00 
00 

01 
02 
00 
00 
02 
00 
01 
00 
00 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030037 
000000 
000000 
000001 
000002 
030516 
0A3065 
0A3102 
0001 3A 
0A3075 

AOOOOO 
057202 
000125 
000126 
057203 
000131 
05720A 
000137 
065233 
000002 
000001 
000000 
000000 


;*  Control  c  interrupt  handler 


CTRLCH:  SKIPN 
RTN 
PUT 
PUT 
PUT 
SKIPE 
JRST 
MOVE  I 
MOVEM 
JRST 


CTRLA: 


CTRLB: 


MOVE  I 

MOVE 

SIR 

EIR 

MOVE 

AIC 

MOVE 

ATI 

SETZM 

GET 

GET 

GET 

RTN 


;Which  monitor? 

;Must  be  tops  20 

;Tops  10  address  block  for  Ctrl  c 

;This  is  address  tops  10  looks  at 


USER 

ACO 

AC1 

AC2 

MONTYP 

CTRLA 

INTBLK 

13A 

CTRLB 

ACU.FHSLF  -20  Ctrl  c   intrcpt  and  sftwre  intrpt. 

AC2,CLEVTAB,,CHNTAB]         ;This  is  addresses  of  tables  for  software 

;Tell  monitor  where  they  are 

;Now  enable  them 
AC2,C1B0]      .-This  is  channel  0 

; Activate  channel  .  ^ 

AC1,C.TICCC,,INTCH03    .-Control  c  character,, channel  0 

;Tell  monitor 
CTRLFG*       ;This  will  get  set  on  control  c 
AC2 
AC1 
ACO 


DFDXD 
DXCOM 

8857 

8858 

8859 

8860 

8861 

8862 

8863 

886A 

8865 

8866 

8867 

8868 

8869 

8870 

8871 

8872 

8873 

8874 

8875 

8876 

8877 

8878 

8879 

8880 

8881 

8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 

8895 

8896 

8897 

8898 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
MAC     18-Jdn-85  14:26        SAVE  AND  RESTORE  AC  ROUTINES 
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SEQ  0372 


043102 
043103 
043104 
043105 

043106 
043107 

043152 
043153 
043154 

043155 
043156 
043157 


043160 
043161 

043162 
043163 
043164 
043165 
043166 

043167 
043170 
043171 
043172 


000004 
000000 
000000 
000000 


043167 
000002 
000000 
000000 


000001  043160 


000000 
000000 
000000 

000000 
000000 
000000 


043155 
043156 
043157 

000000 
000000 
000000 


476  00  0  00  065233 

261  17  0  00  000001 

561  01  0  00  057205 
104  00  0  00  000076 

262  17  0  00  000001 
104  00  0  00  000136 
104  00  0  00  000170 

lyjl   01  0  00  065336 

554  01  0  00  043105 

302  01  0  00  000002 

047  00  0  00  000012 


043173  476  00  0  00  065233 


043174 
043175 
043176 
043177 
043200 


051  03 
200  01 
250  01 
402  00 
254  02 


0  00  057207 
0  00  043104 
0  00  065336 

0  00  043104 

1  00  065336 


♦Control  c  intercept  tables 


INTBLK:  4,,CTRLC1 


I 


CHNTAB:  1,,CTRLC2 

BLOCK   ^D35 

LEVTAB:  TABPC 
TABPC1 
TABPC2 

TABPC :  0 
TABPC1:  0 
TABPC2:  0 


CTRLC2:  SETOM 
PUT 
HRROI 

n 

PSOUT 
GET 
DEBRK 
HALTF 


CTRLC1 


n 


MOVEM 
HLRZ 
CAIE 
EXIT 

SETOM 
OUTSTR 

MOVE 
EXCH 
SETZM 

JRSTF 


CTRLFG 
AC1 
1,[ASCIZ/  ^C 


AC1 


1, TEMPI* 

1JNTBLK+3 

1,2 


CTRLFG 
[ASCI2/"C 

1,INTBLK^2 
1, TEMPI 
INTBLK+2 
dTEMPl 


;Tops  10 

;2  In  the  code  for  control  c 

;Gets  user  pc 

;Left  half  gets  reason  for  interrupt 

;Tops  20 

;Rest  of  36  channels 


;Tops  20  interrupt  handler 


;The  flaq  is  set,  now  exit 
;Shouldn^t  get  here 

;Tops  10  interrupt  handler,   sav/e  ad 

;Get  reason 

;Is  it  control  c? 

;No,  what  am  i  doing  here? 

;Set  flag 


;Get  return  pc 

;Swap  ad  and  pc 

; Clear  pc  from  interrupt 

.-Exit 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DXCOM   MAC     18-Jdn-85  U:26        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 
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SEQ  0373 


8899 

8900 

8901 

8902 

8903 

890A 

8905 

8906 

8907 

8908 

8909 

8910 

8911 

8912 

8913 

891 A 

8915 

8916 

8917 

8918 

8919 

8920 

8921 

8922 

8923 

892A 

8925 

8926 

8927 

8928 

8929 

8930 

8931 

8932 

8933 

893A 

8935 

8936 

8937 

8938 

8939 

89A0 

89A1 

8942 

8943 

89AA 

8945 

8946 

8947 

8948 

8949 


043201 
043202 

043203 
043204 
043205 
043206 
043207 
043210 
043211 
043212 
043212 
043213 


336  00  0  00  065233 
263  17  0  00  000000 


402  00 
260  17 
200  00 
202  00 
032  03 
336  00 
254  00 


0  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


065233 
044742 
065333 
000041 
000002 
030516 
043217 


561  01  0  00  057205 
104  00  0  00  000076 


043214  561  01  0  00  057210 

043215  104  00  0  00  000076 
u<»3216  254  00  0  00  043220 


043217 

043217 

043220 
043221 
043222 
043223 
043224 
043225 
043226 
043227 
043230 
043231 
043232 
043233 
043234 
043235 

043236 
043237 
043240 
043241 
043242 

043243 
043244 
043245 
043246 
043247 
043250 
043251 


051  03  0  00  057210 


260 
037 
551 
202 
260 
032 
33? 

«« 

260 
260 
260 
260 
047 
254 


17 
01 
01 
01 
17 
03 
00 
00 
17 
17 
17 
7 
O'i 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


051377 
030242 
000001 
065223 
044742 
000002 
030516 
043236 
051350 
046707 
043252 
043243 
000012 
030643 


260  17  0  00  051350 
260  17  0  00  046707 
260  17  0  00  043243 
104  00  0  00  000170 
254  00  0  00  030643 


332 
254 

047 
402 
263 

104 
263 


00 
00 
00 
00 

17 
00 
17 


0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 


030516 
04325C 
000000 
000134 
000000 
000147 
000000 


TCTRLC:  SKIPN 
RTN 

;IF  ALTMODE  IS 

ATMETR:  SET7M 
GO 

MOVE 
MOVEM 
LDREG 
SKIPN 
JRST 

CTRLDG:  HRROI 

/J 


CTRI.FG 

TYPED  ENTER  HERE 
CTRLFG 
MSTCLR 
0.SV41 
0,41 

DXMTR,DXRES 
MONTYP 
CTRLHI 
1,[ASCIZ/  *C 


;Uas  control  c  typed? 
;No 


.-Clear  the  rh 


;TOPS10 


SYSTEM 
/2 


PSOUT 
HRROI 
MICROCODE 

PSOUT 
JRST 


1.CASCI2/ 
LOADING,  WAIT 


CTRLY 


CTRLHI:  OUTSTR  [ASCIZ/ 
SYSTEM  MICROCODE  LOADING, 
/2 


WAIT 


CTRLY: 
CTRLE1 


CTRLED: 


CTRLF 


DISCTC 


DISCA: 


GO 

PCRLF 

HRRZI 

MOVEM 

GO 

LDREG 

SKIPE 

JRST 

GO 

GO 

GO 

GO 

EXIT 

JRST 

GO 

GO 

GO 

HALTF 

JRST 

SKIPE 

JRST 

CALLI 

SETZM 

RTN 

RESET 

RTN 


GDXMC 

1,1 

1,CADDR 

MSTCLR 

DXMTR,DXRES 

MONTYP 

CTRLF 

ST 

DEVREL 

CLRDMT 

DISCTC 

sfART 

ST 

DEVREL 

DISCTC 

START 

MONTYP 
DISCA 
0 
134 


;Set  ad  to  1 

; Clear  the  rh 

.-SKIP  IF  TOPS10 

;N0,  TOPS20 

;Start  the  microprocessor  at  1 

; Clear  the  diagnostic  bit 
.•Disable  control  c  INTERCEPT 
.-Return  to  monitor  topslO 

.-Start  the  microprocessor  at  1 

.-Disable  control  c  INTERCEPT 

.-Return  to  monitor  tops20 

.-If  continue  is  typed,  then  go  to  beginning 

.-Skip  if  topslO 
;TOPS20 
.-TopslO  reset 
.-TopslO 

.-Tops20  reset 


DFDXD 
DXCOW 

8950 

8951 

8952 

8953 

8954 

8955 

8956 

8957 

8958 

8959 

8960 

8961 

8962 

8963 

8964 

8965 

8966 

8967 

8968 

8969 

8970 

897': 

8972 

8973 

8974 

8975 

8976 

8977 

8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
8991 
8992 


DX20-V100  MAGNEMC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC     18-Jdn-85  14:26        SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 
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SEQ  0374 


043252 
043253 
043254 
043255 
043256 
043257 
043260 
043261 
043262 
043263 
043264 
043265 
043266 
043267 
043270 
043271 
043272 
043273 

043274 
043275 
043276 

043277 
043300 
04330- 
043302 
043303 
043304 
043305 
043306 
043307 
043310 
043311 
043312 
043313 
0433U 
043315 
043316 
043317 
043320 
043321 
043322 


332  00 
263  17 

201  00 

202  00 
200  00 
202  00 
554  00 
242  00 
137  00 
402  00 
200  01 
047  01 
255  00 
350  00 
135  00 
305  00 
254  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


065335 
000000 
002027 
043274 
052037 
043275 
057220 
777772 
057221 
043276 
057222 
000154 
000000 
043275 
057223 
000010 
043264 
000000 


000000  001027 
55  64  70  20  20  20 
000  00  0  00  000000 


037  04 
200  00 
037  17 
037  04 
200  00 
603  00 
254  00 
G:>^  04 
037  17 
254  00 
037  04 
037  01 
037  04 
200  00 
037  17 
037  04 
262  17 
275  00 
037  06 
037  15 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


057224 
043274 
000003 
057231 
043275 
777777 
043311 
057232 
000003 
043313 
037234 
000002 
057236 
000001 
000003 
057241 
000000 
000002 
000001 
000004 


CLRDMT 


CMTA; 


TAPBLI 


TP0P1 : 


FNDR1 : 
FNDR2: 


SKIPE 

RTN 

MOVE  I 

MOVEM 

MOVE 

MOVEM 

HLR2 

LSH 

DP8 

SETZM 

MOVE 

TAPOP. 

JFCL 

AOS 

LDB 

CAIGE 

JRST 

RTN 

.TFDMS 
SIXBIT 
Z 

PMSGF 

MOVE 

PNTOCF 

PMSGF 

MOVE 

TLNE 

JRST 

PMSGF 

PNTOCF 

JRST 

PMSGF 

PNTSXF 

PMSGF 

MOVE 

PNTOCF 

PMSGF 

GET 

SUB  I 

PNT6F 

FATAL 


TAPFLG 


; Testing  tapes? 

;No,  return 

0,.TFDMS^.TFSET  ;Set  diag  mode  bit  to  a  zero 
0, TAPBLI       ;Put  in  place 
0,TAPBLK*1     ;Get  the  mt  that  yas  assigned 
0,TAPBL1*1      ;Now  put  SIXBIT  into  this  arg  block 
0,[SIXBIT/00/] 

0,-6  .-Right  iustify  sixbit  00 

0, [POINT  12,TAPBLUT,35j  ;Set  the  6bit  char  into  the  arg  list 
TAPBLU2       ;MUST  BE  0  TO  CLEAR  BIT  WITH  TAPOP. 
1, [3., TAPBLI]   ;Get  address  of  list 
AC1,  ;Do  it 

.-Failure,  BUT  DON'T  CARE 
TAPBLUI       ;Add  to  the  drive  number 
0, [POINT  ^  MPBlUI.353  ;Are  we  done? 
0,10 
CMTA 


/MTXOOO/ 


<*TAPOP.  UUO  FAILURE. ^CODE  > 


TAPBL 1 

<  TO  > 
TAPBL  U1 
-1 

FNDR1 
<CHANNEL  > 

FNDR2 
<DEVICE  > 


;Get  code  that  failed 
.-Print  it 

.-Get  device  number 
.-Check  if  channel  number 
.-No 

.-Print  channel  number 


.-Print  drive  name 


<*ERROR  CODE  =  > 

AC1  ;Get  code 

.-Print  it 
<     PC  =  > 

0  ;Get  stored  pc 

2  .-Adjust 

.-Print  it 


DFDXD   DX20-\/^00  '>1AGNEMC  TAPE 
DXCOW  ^^C  18-Jdn-85  U:26 


SUBSYSTEM  DJ AGNOSTIC  (RH20) 
SAVE  AND  RESTORE  AC 


VERSION  0.5 
ROUTINES 
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SEQ  0375 


8993 

0 

8994 

;*Pn'nt  all  dx 

20   info 

8995 

•  ******************** 

• 

8996 
8997 

043323 

260  17  0  00  043351 

UPINFO:  60 

ERPNT1 

8998 

043324 

027  06  0  00  000000 

RDREG 

DXGP6 

8999 

043325 

260  17  0  00  047274 

GO 

RE6PNT 

9000 

043326 

027  07  0  00  000000 

RDREG 

DX6P7 

9001 

043327 

260  17  0  00  047274 

GO 

REGPNT 

9002 

043330 

027  10  0  00  000000 

RDREG 

DXDRO 

9003 

043331 

260  17  0  00  047274 

GO 

REGPNT 

900A 

043332 

027  11  0  00  000000 

RDREG 

DXDR1 

9005 

043333 

260  17  0  00  047274 

GO 

REGPNT 

9006 

043334 

027  12  0  00  000000 

RDREG 

DXDR2 

9007 

043335 

260  17  0  00  047274 

GO 

REGPNT 

9008 

043336 

027  13  0  00  000000 

RDREG 

DXDR3 

9009 

043337 

260  17  0  00  047274 

GO 

REGPNT 

9010 

043340 

027  14  0  00  000000 

RDREG 

DXDR4 

9011 

043341 

260  17  0  00  047274 

GO 

REGPNT 

9012 

043342 

027  15  0  00  000000 

RDREG 

DXDR5 

9013 

043343 

260  17  0  00  047274 

GO 

REGPNT 

90U 

043344 

027  16  0  00  000000 

RDREG 

DXDR6 

9015 

043345 

260  17  0  00  047274 

GO 

REGPNT 

9016 

043346 

027  17  0  00  000000 

RDREG 

DXDR7 

9017 

043347 

260  17  0  00  047274 

GO 

REGPNT 

9018 
9019 
9020 

04335C 

263  17  0  00  000000 

RTN 

043351 

261  17  0  00  000001 

ERPNT1:  PUT 

1 

9021 

043352 

026  00  0  00  000000 

RDREG 

DXCTR 

9022 

043353 

260  17  0  00  047274 

GO 

REGPNT 

9023 

043354 

G^r  01  0  00  000000 

RDREG 

DXSTR 

9024 

043355 

260  17  0  00  047274 

GO 

REGPNT 

9025 

043356 

026  02  0  00  000000 

RDREG 

DXERR 

9026 

043357 

260  17  0  00  047274 

GO 

REGPNT 

9027 

043360 

026  03  0  00  000000 

RDREG 

DXMTR 

9028 

043361 

260  17  0  00  047274 

GO 

REGPNT 

9029 

043362 

027  00  0  00  000000 

RDREG 

DXGPO 

9030 

043363 

260  17  0  00  047274 

GO 

REGPNT 

9031 

043364 

027  01  0  00  000000 

RDREG 

DXGPI 

9032 

043365 

260  17  0  00  047274 

GO 

REGPNT 

9033 

043366 

027  02  0  00  000000 

RDREG 

DXGP2 

9034 

043367 

260  17  0  00  047274 

GO 

REGPNT 

9035 

043370 

027  03  0  00  000000 

RDREG 

DXGP3 

9036 

043371 

260  17  0  00  04 727A 

GO 

REGPNT 

9037 

043372 

027  04  0  00  000000 

RDREG 

DXGP4 

9038 

043373 

260  17  0  00  0^727^ 

GO 

REGPNT 

9039 

043374 

027  05  C  00  000000 

RDREG 

DXGP5 

9040 

043375 

260  17  0  00  04727; 

GO 

REGPNT 

9041 

043376 

262  17  0   00  000001 

GET 

1 

9042 

043377 

263  V  0  00  000000 

RTN 

**********************♦*••**•*♦♦**•♦♦♦•♦*•*••*♦♦*♦♦♦**•♦*♦♦♦*♦•***♦♦♦* 


5 


DFDXD 
DXCOM 

9043 
9044 

9045 
9046 
9047 
Q048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
^057 
358 
059 
^060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 
9068 
9069 
9070 


DX20-V100  MAGNEMC  TAPE  SUBSV 
HAC     18-Jdn-85  14:26 


043400 
043401 
043402 
043403 
043404 
043405 
043406 
043407 


043410 
043411 
043412 
043413 
0434U 
043415 
043416 


336 
263 
037 
200 

271 
037 
037 
263 


00 
17 
04 
00 
00 
15 
04 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


030037 
000000 
057243 
030047 
000001 
000001 
057246 
000000 


200  00 
552  01 

201  01 
603  00 
200  01 

202  01 
254  00 


0  00 
0  00 


0 
0 
0 


00 
00 
00 


0  00 

1  00 


030046 
030051 
000001 
000400 
065257 
030115 
030051 


EM  DiAGNOSTIC  (RH20)     VERSION  0.5 
SAVE  AND  RESTORE  AC  ROUTINES 
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SEQ  0376 


•♦This  routine  prints  the  test  pass  count 

•  »•••♦♦•♦»♦••»•••♦♦••♦♦♦♦♦♦♦•♦•••*♦♦••♦••♦•♦»•♦•♦♦♦♦•*♦♦♦*••*»••••••♦•♦ 

ENDPAS: 


SKIPN 

USER 

RTN 

PMSGF 

<••••  END  PASS  > 

MOVE 

PASCNT         ;Get  pass  counter 

ADD  I 

0.1 

PNTDCF 

; Print  U 

PMS6F 

<.  ♦»♦•> 

RTN 

SUBTTL  REPEAT  LOOP  ROUTINE 

•  »♦»»♦♦♦♦♦»••*»♦•♦♦•♦♦♦*♦♦♦»»♦»*♦♦♦••*♦•♦*♦••*♦♦♦♦•♦*•♦♦♦•♦♦♦♦♦♦*♦♦♦*•♦ 

•♦Setrep  -  -  setup  number  of  repeat  loops 

;*This  routine  sets  c(reptu)  yith  the  number  of  test 

.-•Iterations  it  will  do.  if  reliability  switch  is  0  it 

.-♦Does  only  one  iteration  of  a  test. 


SETREP:  MOVE 
HRRZM 
MOVE  I 
TLNE 
MOVE 
MOVEM 
JRST 


O.CONSW 

1.TESTPC 

1.1 

RELIA8 

1. INTERACT 

1.REPTU 

aTESTPC 


;Get  console  switches 

.-Save  the  pc  in  location  testpc 

.-Normally  only  one  iteration 

.-Fast  cycle 

.-Get  number  of  iterations 

.-Save  it 


DFDXD 
DXCOM 

9071 

9072 

9073 

907A 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 

9087 

9088 

9089 

9090 

9091 

9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 

9111 

9112 

9113 

9114 

9115 

9116 
9117 

9118 


0X2O-V10O  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  18-Jdn-85  14:26  REPEAT  LOOP  ROUTINE 
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SEQ  0377 


043417 

043420 

043421 

043422 

043423 

043424 

043425 

043426 

043427 

043430 

043431 

043432 

043433 

043434 

043435 

043436 

043437 

043440 

043441 

043442 

043443 

043444 

043445 

043446 

043447 

043450 

043451 
043452 
043453 
04345A 

043455 
043456 
043457 
043460 
043461 
043462 
043463 
043464 
043465 
043466 
043467 
CA3470 


261 
261 
261 
402 
476 
200 
202 
200 
135 
405 
137 
336 
254 
660 
402 
602 
661 
660 
260 
260 
606 
260 
262 
262 
262 
26^ 


17 
17 
17 
00 
00 
00 
00 
01 
02 
01 
02 
00 
00 
01 
00 
10 
01 
10 
17 
17 
10 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
000002 
065263 
065312 
030114 
065304 
030113 
057250 
^77777 
057251 
065244 
043436 
400000 
065244 
040000 
000010 
100000 
045036 
043451 
100000 
043455 
000002 
000001 
000000 
000000 


476  00  0  CO  065263 

606  10  0  00  400000 

260  17  0  00  043550 

263  17  0  00  000000 


332 
263 
202 
261 
660 
026 
262 
602 
254 
200 
620 
263 


00 
17 
01 
17 
10 
01 
17 
01 
00 
01 
10 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
CO 
00 


0  00 
0  00 
0  00 


065234 
000000 
0652U 
065312 
100000 
000000 
065312 
040000 
043471 
0652U 
100000 
000000 


;*  Uuo-routine  to  determine  which  register  to  load  or  read 


LDREG. 


LDREGX: 


PUT 

PUT 

PUT 

SETZM 

SETOM 

MOVE 

MOVEM 

MOVE 

LDB 

AND  I 

DPS 

SKIPN 

JRST 

TRO 

SETZM 

TRNE 

TLO 

TRO 

GO 

GO 

TRNN 

GO 

GET 

GET 

GET 

RTN 

SETOM 
TRNN 
GO 
RTN 


CKCOMP:  SKIPE 
RTN 
MOVEM 
PUT 
TRO 
RDRE6 
GET 
TRNE 
JRST 
MOVE 
TRZ 
RTN 


? 


2 

LDRAE* 

RDURT/lf 

SSVUPC 

PCSAV/lf 

USSVUUO 

2, [POINT 

\A77777 

2, [POINT 

EVENP 

.♦3 

KGEVC 

EVENP 

F,RAEREP 

1,(1814) 

F,CO«PER 

LDRG 

LDREGX 

F,COMPER 

CKCOMP 

2 

1 

0 


LDRAE 

F,CBTFLG 

CBTOER 


DFDXEF* 

1,AC1SAV# 

RDWRT 

F,COMPER 

DXSTR 

RDURT 

1,CERR 

CMPERR 

1,AC1SAV 

F,COMPER 


5J/I2] 
5,1,53 


; Clear  rae  error  flag 
;Set  rdwrt  flag 
;Get  users  pc 
;S»ve  It 
;Get    uuo 

;Get  bits  8-12 

Clr  unwanted  bits 

Set  in  register  number 

Skip  if  even  parity  request  flag  is  set 

No,  go  around 

Yes,  set  gen  even  control  bus  parity 

Clear  the  flag 

Report  rae's? 

No.  set  bit  14 

Don't  report  composite  errors 

Load  reg. 

Ck  for  cbto 

Report  composite  errors? 

Ck  composite  error 

Restore  ac's 


;Set  error  flag 
.-Report  cbto 
:Yes 


;Are  we  doing  dfdxe? 
;Yes,  return 

;Save  last  state  of  flag 
;So  we  don't  get  in  a  Loop 
;Read  status  register 
.-Restore  flag 
.-Composite  error  set? 
.-Yes. 


DFDXD 
DXCOM 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 

9127 

9128 

9129 

9130 

9131 

9132 

9133 

91 34 

9135 

9136 

9137 

9138 

9139 

9140 

9141 

9142 

9143 

9144 

9145 

9146 

9147 

9148 

9149 

9150 

9151 

9152 

9153 

9154 

9155 

9156 

9157 

9158 

9159 

9160 

9161 

9162 

9163 

9164 

9165 

9166 

9167 

9168 

9169 

9170 
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SEQ  0378 


043471 
043472 
043473 
043474 
043475 
043476 
043477 
043500 
043501 
043502 

043503 
043504 
043505 
043506 
043507 
043510 
043511 
043512 
043513 
043514 
043515 
043516 

043517 
04352C 
043521 
043522 
043523 
043524 
043525 
043526 
043527 
043530 
043531 
043532 
043533 
043534 
043535 
043536 
043537 
043540 

043541 
0435A2 
043543 
043544 

043545 
043546 
043547 


332  00 
037  02 
336  00 
037  02 
135  00  0 
037  16  0 
037  00  0 
260  17  0 
200  01  0 
263  17  0 

026  02  0 
260  17  0 
037  02  0 
200  00  0 
405  00  0 
037  15  0 
037  02  0 
200  00  0 
037  06  0 
037  02  0 
476  00  0 
2o3  17  0 


0  00  065312 

0  00  057252 

0  00  065312 

0  00  057262 

00  057272 

00  000003 

00  030242 

00  043503 

00  065214 

00  000000 

00  000000 
00  047274 
00  057273 
00  000010 
00  037777 
00  000000 
00  057274 
00  065304 
OC  000000 
00  057276 
00  030116 
00  000000 


261 
261 
402 
200 
202 
13S 

2^' 
602 
661 
660 
260 
260 
260 
606 
260 
262 
262 
263 


17 
17 
00 
00 
00 
01 
Oi 
10 
01 
10 
17 
17 
17 
10 
17 
17 
17 
17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


000000 
000002 
065312 
030114 
065304 
057310 
111112 
040000 
000010 
100000 
045143 
043541 
043545 
100000 
043455 
000002 
000000 
000000 


606  10  0  00  400000 
260  17  0  00  043550 
350  00  0  17  000000 
263  17  0  00  000000 

606  10  0  00  200000 
260  17  0  00  043577 
263  17  0  00  000000 


CMPERR 


ERPNT3 


RDREG. 


RDREGX 


RDREGY 


SKI?E 

PMSG 

SKIPN 

PMSG 

LDB 

PNTOCS 

PCRL 

60 

MOVE 

RTN 

RDREG 

GO 

PMSG 

MOVE 

AND] 

PNTDEC 

PMSG 

MOVE 

PNT6 

PMSG 

SETOM 

RTN 

PUT 
PUT 

s:tzm 

MOVE 

MOVEM 

LDR 

ROi 

TRNE 

TLO 

TRO 

60 

60 

60 

TRNN 

60 

GET 

GET 

RTN 

TRNN 
GO 
AOS 
RTN 

TRNN 

GO 

RTN 


RDWRT         :Was  it  a  write 
<*COMPOSITE  ERROR  SET  WHILE  WRITING  REGISTER  n  > 
RDWRT         *Was  it  a  read' 
<*COMPOSITE  ERROR  SET  WHILE  READING  REGICTER  #  > 
[POINT  5,AC1SAV,5]     ;Get  reg.  If 

.-Print  octal 

ERPNT3 
1.AC1SAV 


DXERR 
REGPNT 
<TEST  > 
F 
TES^N 

<  PC  =  > 
PCSAV 


;Pn'nt  error  reg. 
;Print  testpc 

;Print  last  read  or  load  reg.  pc 


<*DIAG.  WILL  LOOP  ON  CURRENT  TEST  IF  LOOP  ON  ERROR  IS  SET^> 
SCOPE         ;Force  error  loop 


0 

2 

RDWRT         ;Clr  rdwrt  flag 

SSVUPC        ;Get  users  pc 

PCSAV         .-Save  it 

1. [POINT  5,$SVUUOJ2]   ;Get  register  number 


U-6 

F,RAEREP 

1,(1814) 

F.COMPER 

RDRG 

RDREGX 

RDREGY 

F,COMPER 

CKCOMP 

2 

0 


F,C8TFLG 

CBTOER 

(P) 


F,CPAFLG 
CPARER 


; Posit  ion 

.-Report  rae's? 

;No.  set  bit  14 

.-Don't  report  composite  errors 

.-Load  reg. 

;If  here,  rae  due  to  cbto  handshake  failure 

.-If  here,  rae  due  to  other  than  cbto 

.-Here  if  ok  report  composite  errors 

.-Yes. 

;Restore  ac's 


.-Report  error? 
.-Yes. 


.-Report  error? 
.-Yes 
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SEQ  0379 


9171 

SUBTTL 

CONTROL 

BUS  TIMEOl 

IT  ERRO 

R  HANDLER 

9172 

.  *••*••*****••♦•***•••••*♦••***•*♦***•**••••**•*****************♦***♦*♦ 

9173 

♦Cbtoer  —  routine  to  t 

'ield  unexpected  cbto's 

9174 

'♦Th-is 

routine 

IS  used  tc 

)  field 

and  report  unexpected  control 

9175 

;*Bus  1 

timeouts 

when  loadi 

nq  or 

reading  device  registers,  a 

9176 

*Cbto 

is  unexpected  after  the 

demand-transfer  logic  has 

9177 

; *Been 

tested. 

this  routines  on 

ly  option  is  to  report 

9178 

;*The 

fact  that 

the  error 

*  occured. 

9179 

;*This 

routine 

must  also 

put  in 

a  device  request  since  the  rn 

9180 

;*May  1 

lave  beer 

1  given  up 

for  error  reporting. 

9181 
9182 

Call  seq: 

9183 

;* 

Go     c 

,btoer 

;call  the  routine 

9184 

;* 

Return 

; returns  here 

9185 

;  -V******** ****•**•**•♦••***•**••**•*•*•*•*•*******♦***♦**♦****** ******* 

9186 
9187 

043550 

261  17  0  00  000000     ( 

:btoer 

:  PUT 

0 

;Save  the  ac 

9188 

043551 

261  17  0  00  000001 

PUT 

1 

9189 

043552 

200  01  0  00  065304 

MOVE 

1,PCSAV 

;Get  users  pc 

9190 

PNTMSG 

CASCIZ/ 

9191 

043553 

037  00  0  00  057311     1 

K-n 

9192 

043554 

200  00  0  00  000001 

MOVE 

1 

; Print  pc 

9193 

043555 

037  06  0  00  000000 

PNT6 

9194 

043556 

336  00  0  00  030050 

SKIPN 

RUNFLG 

;Don't  print  if  in  console  mode 

9195 

043557 

254  00  0  00  043565 

JRST 

CBTOEX 

9196 

043560 

037  02  0  00  057273 

PMSG 

<TEST  > 

9197 

043561 

200  00  0  00  000010 

MOVE 

F 

;Get  test  number 

9198 

043562 

405  00  0  00  037777 

AND  I 

TESTN 

;Clear  other  bits 

9199 

043563 

037  15  0  00  000000 

PNTDEC 

;Print  it 

9200 

PNTMSG 

CASCIZ/ 

9201 

THE  DIAG.  WILL 

LOOP  ON  CURRENT 

TEST  IF  LOOP  ON  ERROR  IS  SET 

9202 

043564 

037  00  0  00  057313 

/] 

9203 

043565 

262  17  0  00  000001 

CBTOEX 

:  GET 

1 

;Restore  ad 

9204 

043566 

261  17  0  00  052502 

PUT 

SHMODE 

;Save  current  print  mode 

9205 

043567 

660  10  0  00  440000 

TRO 

F,CBTFLG 

IRAEREF 

'  ; Inhibit  erro*"  report  for  scope  loop 

9206 

043570 

476  00  0  00  030116 

SETOM 

SCOPE 

;Force  loop  on  test 

9207 

043571 

476  00  0  00  052502 

SETOM 

SHMODE 

.-Force  regpnt  to  octal 

9208 

043572 

260  17  0  00  047274 

GO 

REGPNT 

;Gives  some  indication  of  failure 

9209 

043573 

262  17  0  00  052502 

GET 

SHMODE 

.-Restore  users  printout  mode 

9210 

043574 

260  17  0  00  046730 

GO 

DEVREQ 

.-Request  the  device  again 

9211 

043575 

262  17  0  00  000000 

GET 

0 

.-Restore  the  ac 

9212 

043576 

263  17  0  00  000000 

RTN 
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SEQ  0380 


9213 

92K 

9215 

9216 

9217 

9218 

9219 

9220 

9221 

9222 

9223 

Q22A 

9125 

9226 

9227 

9228 

9229 

9230 

9231 

9232 

9233 

923A 

9235 

9236 

9237 

9238 

9239 

92A0 

92A1 

92A2 

92  A  3 

92AA 

92  A  5 

92A6 

92A7 

92A8 

92A9 

9250 

9251 

9252 

9253 

925A 

9255 


0A3577 
OA3600 
OA3601 
0A3602 
OA3603 

OA360A 
0A3605 
0A3606 
OA3607 
0A361C 
0A3611 
0A3612 
0A3613 
0A361A 


0A3615 
0A3616 
0A3617 
0A3620 
0A3621 
0A3622 
0A3623 
0A362A 
0A3625 
0 A 3626 
0A3627 


602  10  0  00  200000 
263  17  0  00  000000 
261  17  0  00  000000 
261  17  0  00  000001 
200  01  0  00  06530A 


037  00 
200  00 
037  06 
336  00 
25A  00 
037  02 
200  00 
A05  00 
037  15 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


057330 
000001 
000000 
030050 
0A3616 
057273 
000010 
037777 
000000 


037  00  0  00  057313 
262  17  0  00  000001 

261  17  0  00  052502 
660  10  0  00  2AOO00 
A76  00  0  00  030116 
A76  00  0  00  052502 
260  17  0  00  0 A 7274 

262  17  0  00  052502 
260  17  0  00  0A6730 

262  17  0  00  000000 

263  17  0  00  000000 


♦Cparer  —  field  and  report  unexpected  Ctrl  bus  p.e.'s 
♦This  routine  is  used  to  field  and  report  control  bus  parity 
♦Errors  that  happen  to  occur  after  the  control  bus  parity 
*Logic  has  been  tested  and  assumed  operational,  the  only 
♦Option  of  this  routine  is  to  report  the  fact  that  the 
♦Parity  error  occured. 

♦  The  routine  will  also  have  to  do  a  device  request  since 

♦  The  rh  was  given  up  to  report  the  error. 
* 

♦  Calling  seq: 

♦  Go     cparer        ;call  the  routine 

♦  Return  .-returns  here 

*♦•♦»*♦•**•»♦**♦*»♦*♦*♦♦•*•*»♦*♦******♦*****••♦♦**••**♦****•*•**♦*♦♦♦♦ 


CPARER:  TRNE 
RTN 
PUT 
PUT 
MOVE 
PNTMSG 

UNEXPECTED  RAE 
MOVE 
PNT6 
SKIPN 
JRST 
PMSG 
MOVE 
AND  I 
PNTDEC 
PNTMSG 

THE  DIAG.  WILL 

/I 

CPAERX:  GET 
PUT 
TRO 
SETOM 
SETOM 
GO 
GET 
GO 
GET 
RTN 


F,CPAFLG 


;If  flag  -1  don't  report 
;Save  acO 
;Get  users  pc 


0 

1 

l.PCSAV 

CASCIZ/ 
OTHER  THAN  CBTO  AT  PC-/3 

1  .-Print  pc 

.-Print  It 

RUNFLG        .-Don't  print  in  console  mode 

CPAERX 

<TEST  > 

F  .-Get  test  number 

TESTN         .-Clear  other  bits 

.-Print  it 

CASCIZ/ 
LOOP  ON  CURRENT  TEST  IF  LOOP  ON  ERROR  IS  SET 


1 

SHMODE 

F.CPAFLGIRAEREP 

SCOPE 

SHMODE 

REGPNT 

SHMODE 

DEVREQ 

0 


Restore  ad 

Save  the  printout  mode 

Inhibit  error  report  for  scope  loop 

Force  loop  on  test 

Set  to  octal  printout  mode 

Print  the  data 

Recover  printout  mode 

Request  the  device  again 

Restore  the  ac 

And  exit 


I 

DFDXD 
DXCOM 


9256 

9257 

9258 

9259 

9260 

9261 

9262 

9263 

9264 

9265 

9266 

9267 

9268 

9269 

9270 

9271 

9272 

9273 

9274 

9275 

9276 

9277 

9278 

9279 

9280 

9281 

9282 

9283 

9284 

9285 

9286 

9287 
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SEQ  0381 


*Uuo  routine  to  execute  an  instruction  from  the  ir 


043630 
043631 
043632 
043633 
043634 
043635 


261  17  0  00  000000 
200  00  1  00  030113 
202  00  0  00  065226 
260  17  0  00  051332 

262  17  0  00  000000 

263  17  G  00  000000 


.XI: 


PUT 

MOVE 

MOVEM 

GO 

GET 

RTN 


0 

a$svuuo 

CDATA 

XI 

0 


;Save  acO 

;Get  instruction  to  be  executed 

;Put  in  memory 

;CaU  console  package 

.•Restore  0 


*Uuo  to  'oad  an  instruction  into  the  cram 


043636 
043637 
043640 
043641 
043642 
043643 
043644 


261  17  0 
200  00  0 

262  00  0 


262  00 

260  17 

262  17 

263  17 


00  000000 
00  030113 
00  065226 
00  065223 
00  051043 
00  000000 
00  000000 


-LCR: 


PUT 

MOVE 

POP 

POP 

GO 

GET 

RTN 


0 

$SVUUO 

CDATA 

CADDR 

LCR 

0 


;Save  acO 
;Get  the  uuo 
;Load  cdata 
;Load  caddr 
;Load  the  cram 
.•Restore  the  ac 


♦Uuo  routine  to  repeat  test  or  cause  test  to  loop  if  got  composite 
♦Error, parity  error,  or  control  bus  time  outs 


043645  262  17  0  00  000001 

043646  035  02  1  00  030113 

043647  0:)-  00  1  00  030113 
043650  254  00  1  00  000001 


REPET.:  GET  1 

ERLP2  aSSVUUO 

REPTuo  assvuuo 

JRST  ai 


;Get  return  address 
.-Loop  to  test  if  error 
.•Repeat  loop 
.•Return 


DFDXD 
DXCOM 

9288 

9289 

9290 

9291 

9292 

9293 

929A 

9295 

9296 

9297 

9298 

9299 

9300 

9301 

9302 

9303 

930A 

9305 

9306 

9307 

9308 

9309 

9310 

9311 

9312 

9313 

9314 

9315 

9316 

9317 

9318 
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SEQ  0382 


043651 
043652 
043653 
043654 
043655 
043656 
043657 
043660 
043661 
043662 
043663 


043664 
043665 


336 
263 
261 
200 
316 
254 
202 
200 
202 
262 
263 


00 
17 
17 
00 
00 
00 
00 
00 
00 
17 
17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030037 
000000 
000000 
000041 
057340 
043662 
065333 
057340 
000041 
000000 
000000 


260  17  0  00  043201 
2:>     00  1  00  065333 


SUBTTL  USER  MODE  UUO  SUPPORT  ROUTINES 

♦Settrp  -  -  patches  "uuotst"  into  subr  pkg  uuo  handler     .  . 
♦This  routine  does  nothing  in  exec  mode,  in  user  mode  it  modifies 
*The  subroutine  pkges  uuo  handler  to  execute  a  routine  called 
♦"Uuotst"  each  time  the  pgm  executes  a  uuo  and  then  passes 
♦Control  to  the  subroutine  package  for  normal  uuo  processing. 

♦  Eg.    go     settrp  .-patch  in 

♦  Rtn  ; returns  control  here 
»*♦*»♦»♦»♦*♦****»»**♦♦♦#»♦**♦***♦*•*♦**•»***♦*♦**♦**♦***♦**»♦*♦♦*♦♦♦** 


SETTRP:  SKIPN 
RTN 
PUT 
MOVE 
CAMN 
JRST 
MOVEM 
MOVE 
MOVEM 

SETEX:   GET 
RTN 


USER 

0 

0,41 

0,160  UUOTSTJ 

SETEX 

0,SV41# 

0,CGO  UUOTST] 

0,41 

0 


In  user  mode  ? 

No.  return  immediately 

Yes.  save  the  ac 

No.  get  subr  pkg  instruction 

Has  It  been  done  already? 

Yes 

Save  it  to  rtn  Ctrl  later 

The  new  instruction  (trap) 

Now  patched  in 

Restore  the  ac 

And  return 


»«♦♦♦♦»*»♦*»♦♦♦**»***•♦♦*»♦**♦*****♦*♦»♦'**********♦•**♦***********♦♦♦* 
♦Uuotst  —  routine  to  test  for  control  c  prior  to  executing  a  uuo. 
♦This  routine  is  run  each  time  a  '-  to   is  executed  provided  "settrp 

♦Was  previously  called,  (after  pgr  it). 
♦♦»♦♦♦♦♦♦»♦♦»»♦♦*»**♦♦♦♦♦♦*♦♦*»♦*•»*♦**♦***♦******♦*****♦**♦***♦**♦♦♦♦ 


UUOTST:  GO      TCTRLC 
PJRSTa  SV41 


;Tst  for  control  c 

;No.  off  to  complete  uuo. 
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SEQ  0383 


9319 

9320 

9321 

9322 

9323 

9324 

9325 

9326 

9327 

9328 

9329 

9330 

9331 

9332 

9333 

9334 

9335 

9336 

9337 

9338 

9339 

9340 

9341 

9342 

9343 

9344 

9345 

9346 

9347 

9348 

9349 

9350 

9351 

9352 

9353 

9354 

9355 

9356 

9357 

9358 

9359 

9360 

9361 

9362 

9363 

9364 

9365 

9366 

9367 

9368 

9369 

9370 

9371 

9372 

9373 


043666 
043667 
043670 
043671 
043672 
043673 
043674 
043675 
043676 

043677 
043700 
043701 
043702 
043703 
043704 
043705 

043706 
043707 
043710 
04371 1 
043712 
04371 3 
043714 
04371 5 
043716 
04371 7 
043720 
043721 
043722 
043723 
043724 
043725 
043726 
043727 
043730 
043731 
043732 
043733 
043734 
043735 
043736 


261 
261 
261 
261 
261 
402 
402 
332 
254 

260 
260 
260 
037 
200 
602 
254 


17 
17 
17 
17 
17 
00 
00 
00 
00 

17 
17 
17 
01 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00  000000 
00  000001 
00  000002 
00  000003 
00  000004 
00  065317 
00  065241 
00  030037 
00  043744 


00 
00 
00 
00 
00 
00 
00 


043775 
044056 
044146 
030242 
030046 
200000 
043744 


2u.>  01  0 
200  02  0 
661  02  0 
603  02  0 
350  00  0 
603  02  0 
202  02  0 
253  01  0 
200  14  0 
260  17  0 
200  04  0 
200  00  0 


603  00 
254  00 
311  14 
254  00 
260  17 
254  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


200  03  0 
242  03  0 
505  03  0 
200  00  0 
603  00  0 
661  00  0 


00  044544 

01  000000 
00  000002 
00  000001 
00  065317 

00  000001 

01  000000 
00  043707 
00  044542 
00  046601 
00  000001 
04  044546 
00  000002 
00  043730 
00  044543 
00  043751 
00  044656 
00  043717 
00  046601 
00  000001 
00  000003 
00  777770 
03  044556 
00  000001 
00  000002 


SUBTTL  CONFIGURATION  MODULE 

♦Config  —  system  configurator 

♦This  routine  determines  which  controllers  and  dx20  s  are 
♦On  the  system  and  then  allows  for  the  selection  of  which 
♦Ones  are  to  be  tested  by  the  diagnostic. 
♦If  switch  19  is  not  set  the  diagnostic  will  test  all  dx20's 
♦That  are  available  (exec  mode  only). 

♦This  routine  also  calls  a  routine  to  set  up  the  proper  diagnostic 
♦Monitor  call  via  a  uuo  or  jsys  based  on  monitor  type. 
*♦♦♦•***♦***•••*•**•*•♦♦♦****•**♦••****••**•*•***•♦*♦♦•♦♦♦♦♦♦♦*♦♦♦♦♦♦♦ 


CONFIG:  PUT 
PUT 
PUT 
PUT 
PUT 
SETZM 
SETZM 
SKIPE 
JRST 


CFGA: 


CFGC: 


CF6D: 


60 

60 

60 

PCRLF 

MOVE 

TRNE 

JRST 

MOVE 

MOVE 

TLO 

TLNE 

AOS 

TLNE 

MOVEM 

AOBJN 

MOVE 

60 

MOVE 

MOVE 

TLNE 

JRST 

CAML 

JRST 

60 

JRST 

60 

MOVE 

LSH 

HRLI 

MOVE 

TLNE 

TLO 


0 

1 

2 

3 

4 

RHMANY* 

DRMANY* 

USER 

CF6B 

RHTST 

DRVTST 

TELL 

O.CONSU 

1B19 

CF6B 

I^RHUD 

2,(1) 

2,(1B16) 

2,(1B17) 

RHMANY 

2,(1817) 

2,(1) 

1,CF6C+1 

MBCN,MBCMIN 

CHSEL 

4,1 

0,RHTBL(4) 

0,(1816) 

.+5 

MBCN,MBCMAX 

CF6B+5 

INCRH 

CF6D+1 

CHSEL 

3,1 

3,3 

3,-10 

0,DEVTBL(3) 

0,(1817) 

0,(1816) 


;Save  the  ac 


Clr  0   of  controllers 
Clr  M   of  dx20's 
User  mode? 
And  get  devices 

Exec  mode  -  which  rh's  are  present 
Which  dx20*s  are  present 
Normal,  report  configuration 

6et  console  switches 

Sw  set? 

Yes. 

-Size,, start  of  rhtbl 

Fetch  a  table  entry 

Set  the  "test  it"  bit 

Is  rh  available? 

Bump  rh  count 

See  if  available 

Yes.  put  back  in  the  table 

Loop  for  entire  table 

6et  first  device  code 

6et  chan  M 

Now  to  ac4 

6et  an  entry 

Is  the  controller  avail 

Yes.  we're  testing  this  one 

Tried  all  rh's  ? 

Tried  all  rh'2  all  done 

No.  increment  to  next  rh 

Loop 

6et  chan  If   to  ad 

Now  to  ac3 

With  '»   of  dx20's  in  left 

Fetch  an  entry 

Dx20'  available 

Yes.  set  its  test  bit 


DFDXD 
DXCOM 

9374 

9375 

9376 

9377 

9378 

9379 

9380 

9381 

9382 

9383 

9384 

9385 

9386 

9387 

9388 

9389 

9390 

9391 

9392 

9393 

9394 

9395 

9396 

9397 

9398 

9399 

9400 

9401 

9402 

9403 

9404 

9405 

9406 

9407 

9408 

9409 

9410 

9411 
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SEQ  0384 


043737 
043740 
043741 
043742 
043743 

043744 
043745 
043746 
043747 
043750 
043751 
043752 
043753 
043754 
043755 

043756 
043757 
043760 
043761 
043762 
043763 

043764 
04376S 
043766 
043767 
043770 


043771 
043772 


043773 
043774 


603  00  0  00  000002 
350  00  0  00  065241 
202  00  0  03  044556 

253  03  0  00  043734 

254  00  0  00  043724 


260  17 
037  01 
260  17 
037  01 
037  01 
332  00 
254  00 
200  00 
606  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


044244 
030242 
044363 
030242 
030242 
030037 
043756 
030046 
200000 
043764 


CFGB: 


262  17  0  00  000004 
262  17  0  00  000003 
262  17  0  00  000002 
262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 

336  00  0  00  065317 
254  00  0  00  043771 
336  00  0  00  065241 
254  00  0  00  043773 
263  17  0  00  000000 


037  02  0  00  057341 
254  00  0  00  030061 


037  02  0  00  057361 
254  00  0  00  030061 


DEVCK: 


TLNE 

AOS 

MOVEM 

AOBJN 

JRST 

GO 

PCRLF 

GO 

PCRLF 

PCRLF 

SKIPE 

JRST 

MOVE 

TRNN 

GO 

GET 
GET 
GET 
GET 
GET 
RTN 

SKIPN 

JRST 

SKIPN 

JRST 

RTN 


(1B16) 
DRMANY 
0,DEVTBL(3) 
3,. -6 
CFGD'»-6 

ASKRH 

ASKDR 


USER 

.+4 

CONSU 

1B19 

DEVCK 

4 
3 
2 
1 
0 


;Dx20'  available? 

;Bump  dx20  count 

;Entry  goes  back  in  the  table 

;For  all  clx20's  on  this  rh 

;Go  try  next  rh 

;Get  rh's  to  be  tested 

;Get  dx20  to  be  tested 


;User  mode? 

;Yes. 

•Exec  mode  get  console  sw's 

;Auto  mode?  test  all  available  if  exec 

;Yes 


RHMANY 
DEVRHE 
DRMANY 
DEVDRE 


.•Restore  the  ac 
;And  exit 

;Found  any  controllers? 

;No 

; Found  any  dx20's 

;No 


DEVRHE:  PMSG    <COULD  NOT  FIND  A  MASS  BUS  CONTROLLER  TO  TEST  A  DX20  ON.*. 
*SET  SWITCH  19  AND  RESTART  PR06RAM*> 

JRST    $BEND2        ;Back  to  diamon 

DEVDRE:  PMSG    <COULD  NOT  FIND  A  DX20  TO  TEST.-*. 
'^SET  SWITCH  19  AND  RESTART  PROGRAM*> 

JRST    $BEND2        ;Back  to  diamon 
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SEQ  0385 


9412 

9413 

9414 

9415 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9428 

9429 

9430 

9431 

9432 

9433 

9434 

9435 

9436 

9437 

9438 

9439 

9440 

9441 

9442 

9443 

9444 

9445 

9446 

9447 

9448 

9449 

9450 

9451 

9452 

9453 

9454 

9455 

9456 

9457 

9458 

9459 

9460 

9461 

9462 

9463 

9464 

9465 

9466 


043775 
043776 
043777 
044000 
044001 
044002 
044003 
044004 
044005 
044006 
044007 

04401 0 

04401 1 

04401 2 
044013 
0440U 
04401 5 
044016 
044017 
04^020 
044021 

044022 
044023 
044024 
044025 
044026 

044027 
044030 
044031 
044032 
044033 
044034 
044035 
044036 
044037 
044040 
044041 
044042 
044043 
044044 
044045 
044046 
044047 


261  17  0 
261  17  0 
261  17  0 
200  01  0 
402  00  0 


253  01 

200  14 

201  01 
332  00 
435  01 
260  17 
260  17 
200  00  0 
332  00  0 


0 
0 
0 
0 
0 
0 
0 


620  00 
336  00 
630  00 
603  00 
254  00 
336  00 
Ir    00 


0 
0 
0 
0 
0 
0 
0 


00  000000 
00  000001 
00  000002 

00  044544 

01  000000 
00  044001 
00  044542 
00  002000 
00  047061 
00  000200 
00  045361 
00  045377 
00  000001 
00  047061 
00  002200 
00  047061 
00  057374 
00  400000 
00  044046 
00  000000 
00  044030 


037  01  0  00  057375 
037  01  0  00  057411 
135  00  0  00  057412 
242  00  0  00  000002 
037  03  0  00  000001 


037  01 
260  17 

200  02 

201  01 
260  17 
260  17 
606  01 
254  00 
200  00 
661  00 

202  00 
254  00 
200  00 
621  00 
202  00 
316  14 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
02 
00 
02 
00 
02 
00 
00 


057413 
046601 
000001 
000020 
045361 
045377 
000010 
044043 
044546 
000001 
044546 
044046 
044546 
000001 
044546 
044543 
044052 


SUBTTL  RHTST  -  -  EXEC  MODE  SCAN  FOR  AVAILABLE  CONTROLLERS 

♦This  routine  determines  which  controllers  are  available. 

♦A  controller  is  present  and  useable  only  after  2  conditions  are. met. 

*1.  An  rhclr  can  initialize  it  to  where  no  error  conditions  persist. 

♦2.  Must  be  able  to  set  the  pi  address  to  7  and  read  it  back  successfully, 

*  Failure  to  complete  either  of  these  basic  operations  will  cause  the 

*  Program  to  disallow  the  use  of  the  controller. 


RHTST:  PUT 
PUT 
PUT 
MOVE 
SET2M 
A06JN 
MOVE 

RHTL:   MOVEI 
SKIPE 
lORI 
60 
60 
MOVE 
SKIPE 
TRZ 
SKIPN 
TDZ 
TLNE 
JRST 
SKIPN 
JRST 
PNTMSF 

RHCLR  FAILED  TO 
PNTMSF 
LD6 
LSH 
PNT3F 
PNTMSF 

THE  DIAGNOSTIC 


;Save  some  ac's 


Initialize  'Vhtbl' 
Rhwd  contains  -48 


'  to  zero. 

or  -64,,devtbl 


0 

1 

2 

I.RHUD 

(1) 

1,.-1 
MBCN.MBCMIN 

1,2060 

RH20FG 

1,200 

.CONO 

.CONI 

OJ 

RH20FG 

0,2200 

RH20FG 

0,C4000,,40] 

0,(180) 

RHTZ 

0 

RHTT 

CASCI2/ 

INITIALIZE  THE  CONTROLLER  PROPERLY 

CASCIZ/RH-/] 

[POINT  7,MBCN,9] 

2 

.•Prints  the  device  code 
CASCIZ/RUN  CONTROLLER  DIAGNOSTICS  ON  THIS  DEVICE.. 
WILL  NOT  ALLOW  SELECTION  OF  THIS  RH/] 


Get  1st  controller  dev  code 
Massbus  reset 

Resets  the  dp 

Clear  everything 

See  if  it  worked 

Get  status  to  acO  for  diddle 

Ignore  mbxhlt  and  ata  bits 

Ignore  df22  bit  and  ata  bits 
IS  THIS  THE  KLIPA? 
YES,  DON'T  USE  THIS  ONE 
Is  coni  data  now  zero? 
Yes.  its  as  expected 


it  should  be 


1 1 


/] 


RHTT: 


RHTW: 


RHTZ: 


GO 

MOVE 

MOVEI 

GO 

GO 

TRNN 

JRST 

MOVE 

TLO 

MOVEM 

JRST 

MOVE 

TLZ 

MOVEM 

CAMN 

JRST 


CHSEL 

2,1 

1,20 

.CONO 

.CONI 

1,10 

RHTW 

0,RHTBL(2) 

0,(1817) 

0,RHTBL(2) 

RHTZ 

0,RHTBL(2) 

0,(1817) 

0,RHT8L(2) 

M8CN,MBCMAX 

RHTX 


Get  Chan  1   to  ad 

Now  to  ac2 

Get  stop  bit 

Set  it 

Read  them  back 

Skip  if  done  is  set 

No.  error 

Fetch  a  table  entry 

Set  bit  17  of  the  entry 

Put  the  entry  back  in  the  table 

On  to  next  controller 

Get  the  table  entry 

Clear  the  bit 

But  entry  back  in  the  table 

Tried  aLl  rh's  ? 

Yes 
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9A67 

0AA050 

9A68 

0AA051 

9A69 

0AA052 

9A70 

0AA053 

9A71 

0AA05A 

9A72 

0AA055 

9A73 

9A7A 

9A75 

9A76 

9A77 

9A78 

9A79 

9A80 

9A81 

9A82 

9A83 

9A8A 

9A85 

9A86 

9A87 

9A88 

9A89 

9A90 

9A91 

9A92 

9A93 

9A9A 

9A95 

9A96 

0AA056 

9A97 

0AA057 

9A98 

0AA060 

9A99 

0AA061 

9500 

0AA062 

9501 

0AA063 

9502 

OAA06A 

9503 

0AAO65 

950A 

OAA066 

9505 

0AAO67 

9506 

0AA070 

9507 

0AA071 

9508 

OAA072 

9509 

0AA073 

9510 

OAA07A 

9511 

0AAO75 

9512 

OAA076 

9513 

0AA077 

951A 

0AA100 

9515 

0AA101 

9516 

0AA1O2 

9517 

0AA1O3 

9518 

0AA10A 

9519 

0AA105 

9520 

0AA106 

9521 

0AA107 

260  17  0  00  0AA656 

25A  00  0  00  OAAOOA 

262  17  0  00  000002 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


261  17  0 
2o'  17  0 
261  17  0 
261  17  0 
200  01  0 
A02  00  0 
253  01  0 
200  1A  0 
260  17  0 
200  OA  0 
200  03  0 
A02  00  0 
2A2  03  0 
270  03  0 
200  02  0 
603  02  0 
25A  00  0 
200  02  0 
621  02  0 


202  02 
301  13 
25A  00 
350  00 


0 
0 
0 
0 


350  00  0 
25A  00  0 

260  17   0 


00  000001 
00  000002 
00  000003 
00  OOOOOA 

00  0AA5A5 

01  000000 
00  0AA063 
00  0AA5A2 
00  0A6601 
00  000001 
00  000001 
00  000013 
00  000003 
00  000013 
OA  0AA5A6 
00  000001 
00  0AA11A 
03  0AA556 
00  000001 
03  0AA556 
00  000007 
00  0AA107 
00  000013 
00  000003 
00  0AA077 
00  0AA7A2 


RHTX: 


GO 

JRST 

GET 

GET 

GET 

RTN 


INCRH 

RHTL 

2 

1 

0 


.•Increment  the  rh  device  code 
;And  loop 
.•Restore  ac's 


.-And  exit 


**** 

*Drvt 
♦This 
*Rh's 
♦It  i 
♦That 
♦Repo 
♦Read 
♦Type 

* 
* 


♦♦♦♦»»♦♦♦**♦♦**♦*♦♦♦***»»*»***♦»♦♦♦♦♦♦*♦****♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦ 

st  -  -  scans  for  available  dx20's 

routine  determines  which  dx20's  are  on  the  available 

and  sets  up  "devtbl"  accordinaly. 
s  possible  to  detect  dx20*s  only  on  controllers 

have  been  previously  detected,  a  dx20  will  be 
rted  only  it  the  program  can  successfully 

the  dx20's  "drive  type"  register  and  if 

is  one  of  the  valid  device  drive  types. 
Uses  of  the  ac's  during  this  routine 
Ac     function 


the 


? 


Not  used 
Scratch 
Entry  from 
Pointer  to 
Pointer  to 


proper 
devtbl 
rhtbl 


table 


♦♦♦♦»**»******»***»*t*********»***»*********t*****************^*^* 


DRVTST:  PUT 
PUT 


DRVL: 


DRVAA: 


DRVN: 


PUT 

PUT 

MOVE 

SETZM 

AOBJN 

MOVE 

GO 

MOVE 

MOVE 

SETZM 

LSH 

ADD 

MOVE 

TLNE 

JRST 

MOVE 

TL2 

MOVEM 

CAIL 

JRST 

AOS 

AOS 

JRST 

GO 


1 
2 
3 

A 

l-DEVUD 

(1) 

M^CN.MBCMIN 

CHSEL 

A.I 

3.1 

DRIVE 

3. DRIVE 

2,RHTBL(A) 

2.(1B17) 

DRVF 

2,DEVTBL(3) 

2.(1B17) 

2. DEVTBL (3) 

DRIVE. 7 

DRVN 

DRIVE 

3 

DRVAA 

MSTCLR 


;Save  some  ac's 


.'Initialize  devtbl  to  zero 


Get  lowest  rh  dev  code 

Get  chan  #  to  ad 

Also  to  acA 

And  ac3 

Init  to  dx20  0 

Now  have  devtbl  index 

Get  the  rhtbl  entry 

Is  the  controller  there 

Yes 

Get  an  entry 

Clear  bit  17 

Put  it  back 

Tried  a.l  dx20's  ? 

Yes 

Bump  the  dx20  number 

Bump  the  devtbl  pointer 

On  to  next  dx20 

Reset  the  controller 


DFOXD 
DXCOM 

9522 
9523 
952A 
9525 
9526 
9527 

9528 

9529 

9530 

9531 

9532 

9533 

953A 

9535 

9536 

9537 

9538 

9539 

9540 

9541 

9542 

9543 

9544 

9545 

9546 

9547 

9548 

9549 

9550 

9551 

9552 
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SEQ  0387 


044110 

044111 

044112 

044113 

044114 

044115 

044116 

044117 

044120 

044121 

044122 

044123 

044124 

044125 

044126 

044127 

044130 

044131 

044132 

044133 

044134 

044135 

044136 

044137 

044140 

04414; 

044142 

044143 

044144 

044145 


311   14  0 

254  00  0 

260  17  0 

254  00  0 

260  17  0 

200  02  0 

205  01  0 


260  17 
254  00 
254  00 
135  01 
302  01 


0 
0 
0 
0 
0 


306  01  0 
254  00  0 
302  01  0 
306  01  0 
334  00  0 
625  02  0 
661  02  0 
202  02  0 
301  13  0 
254  00  0 
350  00  0 
350  00  0 
254  00  0 


262  17 
262  17 
262  17 
262  17 
26^  17 


00  044543 
00  044141 
00  044656 
00  044066 
00  044/42 
03  044556 
00  060010 
00  045143 
00  044131 
00  044131 
00  057437 
00  050060 
00  010051 
00  044132 
00  010052 
00  010061 
00  000000 
00  000001 
00  000001 
03  044556 
00  000007 
00  044107 
00  000013 
00  000003 
00  044114 
00  000004 
00  000003 
00  000002 
00  000001 
00  OOOOGO 


CAML  MBCN.MBCMAX 

JRST  DRVX 

60  INCRH 

JRST  DRVL 

DRVF:   GO  MSTCLR 

MOVE  2.DEVTBL(3) 

MOVSI  1,(6B511B14) 

GO  RDRG 

JRST  DRVE 

JRST  DRVE 

LDB  1, [POINT  16,1 

CAIE  KDXVIOO 

CAIN  1,DXV200 

JRST  DRVEE 

CAIE  1,DXV400 

CAIN  1.DXV210 

SKIPA 

DRVE:   TLZA  2,(1B17) 

DRVEE:  TLO  2,(1B17) 

MOVEM  2,DEVTBL(3) 

DRW:   CAIL  DRIVE, 7 

JRST  DRVN 

AOS  DRIVE 

AOS  3 

JRST  DRVF 

DRVX:   GET  4 

GET  3 

GET  2 

GET  1 

RTN 


At  the  last  controller  ? 

Yes.  done,  go  exit 

Bump  to  next  rh  number 

And  loop 

Reset  the  controller 

Get  table  entry 

Reg  5,  don't  report  rae's 

Read  register  5 

Rae  error 
-Rae  error 
,35J      ;Gets  the  driv/e  type 
;Check  if  dx20  is 
:Is  a  dx20 
;Any  version 

;100,  200,  210,  220,  Or  400 
;Is  it  rpJO? 


Dx20  not  avail 

Dx20  is  available 

Put  the  entry  back  in  the  table 

Tried  all  dx20's  ? 

Yes 

No.  bump  the  dx20  number 

Bump  the  devtbl  index 

Try  the  next  dx20 

Restore  ac's 


;And  exit 
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SEQ  0388 


9553 

955A 

9555 

9556 

9557 

9558 

9559 

9560 

9561 

9562 

9563 

9564 

9565 

9566 

9567 

9568 

9569 

9570 

9571 

9572 

9573 

9574 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

9584 

9585 

9586 

9587 

9588 

9589 

9590 

9591 


044146 
044147 
044150 
044151 
044152 
044153 
044154 
044155 


261 
261 
261 
261 
261 
20C 
603 
254 


17 
17 
17 
17 
17 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  000001 
00  000002 
00  000003 
00  000004 
00  030046 
00  000200 
00  044171 


044156 
044157 
044160 
044161 
044162 
044163 
044164 
044165 
044166 
044167 
044170 


037  01 
200  14 
2cJ  17 
200  04 
200  02 
603  02 
254  00 
311 
254 
260 


14 
00 
17 


254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
04 
00 
00 
00 
00 
00 
00 


057440 
044542 
046601 
000001 
044546 
000001 
044211 
044543 
044171 
044656 
044160 


♦»»»***»*****»*»***t *♦♦♦♦♦***♦*»**»****♦*»*****♦♦•♦♦♦♦*♦♦♦*♦ ♦♦*♦♦♦♦♦♦* 

*TeU  —  configuration  reoorter 

♦This  routine  scans  rhtbl  \   devtbl  telling  which  dx20*s 

*And  controllers  are  available. 

» 

♦  Use  of  the  ac*s  during  this  routine 

*  Ac     function 

•  0  Used  for  printing 
»  1  A  flag 

*  2  Entry  from  the  current  table 

»  3  Index  into  devtbl 

»      4     Index  into  rhtbl 
*♦♦♦»»♦♦*♦*♦•♦♦****♦♦♦♦♦♦♦♦*»♦♦*•♦♦♦♦**♦*♦♦♦♦♦♦♦♦***♦»♦♦*♦**♦♦♦♦♦♦♦♦** 


TELL: 


PUT 

PUT 

PUT 

PUT 

PUT 

MOVE 

TLNE 

JRST 

PNTMSF 


0 
1 
2 
3 

4 

O.CONSW 

O.TXTINH 

TELLX 

[ASCIZ/ 


;Sa\/e  some  ac's 


;6et  console  switches 
.-Normal  or  short  printout? 
.•Short 


THE  FOLLOWING  RH'S  AND  DX20'S  ARE  DETECTED 


RH*S 
/] 

TELLA: 


TELLC: 


DX20'S 

MOVE 

GO 

MOVE 

MOVE 

TLNE 

JRST 

CAML 

JRST 

GO 

JRST 


M6CN.MBCMIN 

CHSEL 

4.1 

2, RHTBL (4) 

2,(1B17) 

TELLB 

MBCN.MBCMAX 

TELLX 

INCRH 

TELLA 


;Get  lowest  rh  dev  code 

;Get  Chan  U   to  acO 

.'Now  to  ac4 

;Get  an  rhtbl  entry 

;Is  controller  available  ? 

;  Yes. 

;No.  at  last  possible  rh  ? 

;Yes.  Qo  exit 

;Bump  the  rh  dev  code 

.-And  loop 
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SEQ  0389 


9592 
9593 
959A 
9595 
9596 
9597 

9598 

9599 

9600 

9601 

9602 

9603 

960A 

9605 

9606 

9607 

9608 

9609 

9610 

9611 

9612 

9613 

9614 

9615 

9616 

9617 

9618 

9619 

9620 

9621 

9622 

9623 

9624 

9625 

9626 

9627 

9628 

9629 

9630 

9631 

9632 

9633 

9634 

9635 

9636 

9637 

9638 


044171 
044172 
044173 
044174 
044175 
044176 
044177 


402  00 
200  04 
200  01 
603  01 
350  00 
253  04 
326  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
OA 
00 
00 
00 
00 


000000 
044544 
000000 
000001 
000000 
044173 
044203 


044200  037  01  0  00  057455 


044201 

044202 

044203 

044204 

044205 

044206 

044207 

044210 

044211 

044212 

044213 

044214 

044215 

044216 

044217 

044220 

044221 

044222 

044223 

044224 

044225 

044226 

044227 

044230 

044231 

044232 

044233 

044234 

044235 

044236 

044237 

044240 

044241 

044242 

044243 


037  01 
254  00 
262  17 
262  17 
262  17 
262  17 

262  17 

263  17 
135  00 
242  00 
037  03 
402  00 
402  00 

261  17 
260  17 
200  03 

262  17 
242  03 
270  03 
2\j}  02 
607  02 
254  00 
322  01 
037  01 
254  00 
476  00 
037  01 
200  00 
037  01 
301  13 
254  00 
350  00 
254  00 
037  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


057463 

030061 

000004 

000003 

000002 

000001 

000000 

000000 

057412 

000002 

000001 

000013 

000001 

000001 

046601 

000001 

000001 

000003 

000013 

044556 

000001 

044236 

044232 

057476 

044234 

000001 

057477 

000013 

000001 

000007 

0442A2 

00001 3 

044216 

030242 

044165 


TELLX:   SETZM 
MOVE 
MOVE 
TLNE 
AOS 
A06JN 
JUMPN 
PNTMSF 

NO  WORKING  RH*S 

PNTMSF 
THIS  DIAGNOSTIC 
/] 


TELLXl 


TELLB: 


TELLD: 


TELLy 
TELLY 
TELLN 


JRST 

GET 

GET 

GET 

GET 

GET 

RTN 

LDB 

LSH 

PNT3F 

SETZM 

SETZM 

PUT 

GO 

MOVE 

GET 

LSH 

ADD 

MOVE 

TLNN 

JRST 

JUMPE 

PNTMSF 

JRST 

SETOM 

PNTMSF 

MOVE 

PNT1F 

CAIL 

JRST 

AOS 

JRST 

PCRLF 

JRST 


0 

4.RHUD 

1.(4) 

1.(1B17) 

0 

4. .-3 

0, TELLXl 

CASCIZ/ 

EXIST  11/] 

CASCIZ/ 

CAN'T  RUN 

S6END2 

4 

3 

2 

1 

0 


;A  counter 

.'Counter,, pointer 

;Get  an  entry 

;ls  the  rh  av/ail  ? 

;Yes.  count  it 

; Count  avail  rh's 

.'Branch  if  at  least  one  exists 


GOOD-BYE 


1 1 


.'End  the  program 
.'Restore  the  ac's 


[POINT  7 
2 

DRIVE 

1 

1 

CHSEL 

3.1 

1 

3. DRIVE 

2.DEVTBL 

2.(1B17) 

TELLN 

1.TELLU 

CASCIZ/. 

TELLY 

1 

CASCIZ/ 

0. DRIVE 

DRIVE. 7 
.♦3 
DRIVE 
TELLD 

TELLC 


.'And 


exit 
.MBCN.9]       .'Get  device  code 
.'Position  for  printing 
;An  print  the  device  code 
.'Start  with  dx20  zero 
.'Clear  a  general  purpose  flag 
.'Save  the  ac 
.'Get  the  chan  #  to  ad 
.'Now  to  ac3 
.'Restore  the  ac  again 


(3) 


/] 


/] 


.-Get  an  entry 

;Is  the  dx20  there  ? 

;No 

.'Jump  if  the  flag  is  still  zero 


;Set  the  flag 

.'Get  the  dx20  number 

; Print  it 

.'Tried  all  dx20s  on  a  particular  rh  ? 

.'Yes 

.'No.  get  next  dx20  number 

;Try  the  next  one 


L_ 


OFOXD 
DXCOM 

9639 

9640 

9641 

9642 

9643 

9644 

9645 

9646 

9647 

9648 

9649 

9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 

9666 

9667 

9668 

9669 

9670 

9671 

9672 

9673 

9674 

9675 

9676 

9677 

9678 

9679 

9680 

9681 
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Askrh  —  inputs  controller  #*s  to  be  tested 

Allows  for  tne  input  of  a  string  of  numbers  separated  by  commas 

Or  the  character  a"  meaning  all  available. 

Uses  of  the  ac's  during  this  routine 
Ac     function 

0  Used  for  printing 

1  Scratch 

2  Holds  entry  from  proper  table 

3  Not  used 

4  Index  into  rhtbl 


SEQ  0390 


044244 
044245 
044246 
044247 
044250 
044251 
044252 
044253 

044254 
044255 
044256 
044257 
044260 
044261 
044262 
044263 
044264 

044265 
044266 

044267 
044270 

04427] 
044271 
044272 


261 
261 
261 
261 
332 
051 
037 
332 


17 
17 
17 
17 
00 
11 
01 
00 


037  01 
200  00 
607  00 
254  00 
037  01 
254  00 
0:>'  01 
336  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
000002 
000004 
030037 
000000 
030242 
030037 

057500 
030046 
000200 
044262 
057517 
044273 
057521 
047061 
044271 


037  01  0  00  057526 
336  00  0  00  030037 

037  01  0  00  057535 
254  00  0  00  044260 


037  01  0  00  057542 
254  00  0  00  044266 


ASKRH: 


ASfCL : 


/] 


PUT 

PUT 

PUT 

PUT 

SK I PE 

CLRBFI 

PCRLF 

SKIPE 

PNTMSF 


0 
1 
2 
4 
USER 


;Save  ac*s 


;In  user  mode? 
;Clr  input  buffer 


USER  .-PRINT  NEXT  LINE  IF  IN  USER  MODE 

CASCI2/SELECTI0N  OF  AN  RH  NOT  CONNECTED  TO  A  DX20  MAY  CAUSE  A  SYSTEM  CRASH! 


MOVE  O.CONSW       ;6et  console  switches 

TLNN  0,TXTINH       .'Normal  or  short  printout  ? 

JRST  ASKA  .-Normal 

ASKLI:  PNTMSF  CASCIZ/RH*S  =  /] 

JRST  ASKB 

ASKA:   PNTMSF  CASCIZ/SELECT  RH'S  TO  BE  TESTED/3 

SKIPN  RH20F6        ;Rh20?? 

JRST  ASKA1  ;No.  rhIO 

PNTMSF  CASCIZ/ 
540.544.550.554.560.564.570.574  /] 

ASKA2:   SKIPN  USER 

PNTMSF  CASCIZ/OR  "A"  ARE  LEGAL) 
/J 

JRST  ASKLI 

ASKA1:  PNTMSF  [ASCIZ/ 
270.274.360.364.370.374  /] 

jRST  ASKA2 


DFDXD 
DXCOM 

9682 

9683 

968A 

9685 

9686 

9687 

9688 

9689 

9690 

9691 

9692 

9693 

969A 

9695 

9696 

9697 

9698 

9699 

9700 

9701 

9702 

9703 

9704 

9705 

9706 

9707 

9708 

9709 

9710 

9711 

9712 

9713 

97U 

9715 

9716 
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SEQ  0391 


04A273 
0A4274 
04A275 
044276 
044277 
044300 
044301 
044302 
044303 
044304 
044305 
044306 
044307 
044310 
044311 


402  00  0 
200  01  0 
137  00  0 

253  01  0 
037  03  0 

254  00  0 
260  17  0 
254  00  0 
514  14  0 
242  14  0 


260  17 
200  04 


0 
0 


200  00  0 
607  00  0 
254  00  0 


00  000000 
GO  044544 
00  057550 
00  044275 
00  000003 
00  044341 
00  044512 
00  044250 
00  DOOOOO 
00  000006 
00  046601 
00  000001 
04  044546 
00  000004 
00  044321 


044312  037  01  0  00  057551 


044313 
044314 
044315 
044316 
044317 
044320 
044321 
044322 
044323 
044324 

044325 
044326 
044327 
044330 
044331 
044332 


037  01 
135  00 
242  00 
037  03 
037  01 
254  00 
332  00 
254  00 
603  00 
254  00 


0  00 
0  00 
0  00 


00 
00 
00 
00 
0  00 
0  00 
00 


057557 
057412 
000002 
000001 
030242 
044250 
030037 
044333 
000001 
044333 


037  01  0  00  057567 
1 3?  00  0  00  057412 
242  00  0  00  000002 
037  03  0  00  000001 
037  01  0  00  057575 
254  00  0  00  044250 


ASKB:   SETZM  0 

MOVE  1,RHWD 

DPB  [POINT  1,(1  )J63 

AOBJN  1,.-1 
ASKC:   TTIOCT 

JRST  TTIE 

GO  RNGCHK 

JRST  ASKL 

HRLZ  M8CN,0 

LSH  M8CN,6 

GO  CHSEL 

MOVE  4,1 

MOVE  0,RHTBL(4) 

TLNN  0,(1815) 

JRST  ASKD 

CASCIZ/ 

"  /] 


PNTM5F  

WON'T  ALLOW  THIS  ONE  .. 

PNTMSF  CASCIZ/ 
RUN  CONTROLLER  DIAGNOSTIC 


Clear  acO 

-Size,, start  of  rhtbl 

.•Clear  bit  16  of  entry 

Do  entire  table 

Get  octal  input 

Error  return 

Range  test  device  code 

Input  error  or  out  of  range 

Get  the  device  code  in  mbcn 

Now  correct 

Get  the  chan  #  to  ad 
to  ac4 

an  entry  from  rhtbl 
we  allowing  this  one  ? 


Now 
Get 
Are 
yes 


ON  RH  -  /] 


ASKD: 


LDB 

LSH 

PNT3F 

PCRLF 

JRST 

SKIPE 

JRST 

fLNE 

JRST 

PNTMSF 


[POINT  7, MBCN, 9] 
2 


ASKL 

USER 

ASKD1 

0,(1817) 

ASKD1 

[ASCIZ/ 


;Print  the  device  code 

;Get  more  input 

;User  mode 

;Yes 

;Is  the  rh  there  ? 

;Yes 


ATTEMPT  TO  SELECT  NON-X  RH-/] 


LDB 

LSH 

PNT3F 

PNTMSF 

JRST 


[POINT  7, MBCN, 93 
2 


[ASCIZ/ 
ASKL 


; Print  the  device  code 
TRY  AGAIN  !!/] 


DFDXD 
DXCOM 

9717 
9718 
9719 
9720 
9721 
9722 
9723 
972A 
9725 
9726 
9727 
9728 
9729 
9730 
9731 
9732 
9733 
9734 
9735 
9736 
9737 
9738 
9739 
97A0 
9741 
9742 
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SEQ  0392 


044333 
044334 
044335 
044336 
044337 
044340 
044341 
044342 
044343 
044344 
044345 
044346 

044347 
044350 
044351 
044352 
044353 
044354 
044355 
044356 
044357 
044360 
044361 
044362 


661  00 
202  00 
200  00 
306  00 
254  00 
254  00 

332  00 
254  00 
306  00 
254  00 

333  00 
254  00 

037  01 
200  01 
200  02 
661  02 
603  02 
202  02 
253  01 
262  17 
262  17 
262  17 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
04 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
01 
00 
00 
01 
00 
00 
00 
00 
00 
00 


000002 
044546 
030232 
00001 5 
044356 
044277 
030037 
044250 
000101 
044350 
030225 
044250 

057600 
044544 
000000 
000002 
000001 
000000 
044351 
000004 
000002 
000001 
000000 
000000 


ASKDI : 


TTIE: 


TTIEO: 
TTIE1: 


ASKZ: 


TLO 

MOVEM 

MOVE 

CAIN 

JRST 

JRST 

SKIPE 

JRST 

CAIN 

JRST 

SKIPLE 

JRST 

PNTMSF 

MOVE 

MOVE 

TLO 

TLNE 

MOVEM 

AOBJN 

GET 

GET 

GET 

GET 

RTN 


0,(1B16) 

0,RHTBL(4) 

SCHRIN 

0J5 

ASKZ 

ASKC 

USER 

ASKL 

0  ''A" 

TflEO 

STWCNT 

ASKL 

CASCIZ/  A 

1.RHUD 

2,(1) 

2,(1B16) 

2,(1817) 

2,(1) 

1,TTIE1 

4 

2 

1 

0 


Set  bit  16 

Put  entr  back  in  rhtbl 

Get  next  char 

Is  it  a  cr  ? 

Yes 

No.  get  more  input 

User  mode? 

Don't  allow  all 

Is  the  char  an  "a"  ? 

Yes 

Test  for  timeout 

No  timeout 


T-Size,, start  of  rhtbl 
.-Fetch  a  table  entry 
;Set  the  "test  it"  bit 
;See  if  available 
;Yes.  put  back  in  the  table 
;Loop  for  entire  table 
.•Restore  ac*s 


;And  exit 


L 
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DXCOM   MAC 


9743 

97A4 

97A5 

97A6 

97A7 

9748 

9749 

9750 

9751 

9752 

9753 

9754 

9755 

9756 

9757 

9758 

9759 

9760 

9761 

9762 

9763 

9764 

9765 

9766 

9767 

9768 

9769 

9770 

9771 

9772 


18-Jan-85  14:26 


VERSION  0.5    MACRO  3;53A(1152)  18:38  6-Apr-85  Page  21      ^^^   ^,„, 
RHTST  -  -  EXEC  MObE  SCAN  FOR  AVAILABLE  CONTROLLERS  SEQ  0393 


044363 
044364 
044365 
044366 
044367 
044370 
044371 
044372 
044373 
044374 
04437S 
044376 
044377 
044400 
044401 


•♦***•*♦**•♦*•*•••**•♦%*•*♦♦***♦•*••***•*•**•*•*•**••**************♦*♦ 


Askdr  -  -  inputs  dx20s  to  be  tested 
Inputs  a  string  of  dx20  numbers  separated  by  commmas 
Or  will  also  accept  the  character  '^'a  for  all  dx20s 
That  are  available. 

Uses  of  the  ac's  during  this  routine 

0  Used  for  printing 

1  Scratch 

2  Holds  entry  from  proper  table 

3  Index  into  devtbl 

4  Index  into  rhtbl 


261 
261 
261 
261 
261 
20C 
260 
200 
200 
603 
254 
311 
254 
260 
254 


17 
17 
17 
17 
17 
14 
17 
04 
00 
00 
00 
14 
00 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
04 
00 
00 
00 
00 
00 
00 


000000 
000001 
000002 
000003 
000004 
044542 
046601 
000001 
044546 
000002 
044402 
044543 
044472 
044656 
044371 


ASKDR:  PUT  0 

PUT  1 

PUT  2 

PUT  3 

PUT  4 

ASKJ:   MOVE  MBCN^MBCMIN 

ASKM:   GO  CHSEL 

MOVE  4,1 

MOVE  0, RHTBL (4) 

TLNE  0,(1816) 

JRST  ASKN 

ASKP:   CAML  MBCN,MBCMAX 

JRST  ASKX 

GO  INCRH 

JRST  AS/CM 


;Sa\/e  some  ac's 


;Get  1st  device  code 

;Get  chan  #  to  ad 

;Now  to  ac4 

;Get  an  entry 

;Is  the  controller  avail 

;yes.  we're  testing  this 

;Tried  all  rh's  ? 

;Yes 

;No.  increment  to  next  rh 

;Loop 


one 


'1 
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SEQ  0394 


9773 

9774 

9775 

9776 

9777 

9778 

9779 

9780 

9781 

9782 

9783 

978A 

9785 

9786 

9787 

9788 

9789 

9790 

9791 

9792 

9793 

9794 

9795 

9796 

9797 

9798 

9799 

9800 

9801 

9802 

9803 

9804 

9805 

9806 

9807 

9808 

9809 

9810 

9811 

9812 


044402 
044403 
044404 
044405 
044406 
044407 
044410 
044411 
044412 

044413 

044414 

044415 

044416 

044417 

044420 

044421 

044422 

044423 

044424 

044425 

044426 

044427 

044430 

044431 

044432 

044433 

044434 

044435 

044436 

044437 

044440 

044441 

044442 

044443 

044444 

044445 

044446 

044447 

044450 


332  00 

051  11 
037  01 
200  00 
603  00 
254  00 
037  01 
336  00 
037  01 


00 
00 
00 

s§ 

00 
00 
00 
00 


030037 
000000 
030242 
030046 
000200 
04441 5 
057601 
030037 
057605 


037  01 
254  00 
037  01 
135  00 
242  00 


0 
0 
0 
0 

0 

037  03  0 
037  01  0 
402  00  0 
260  17  0 
200  03  0 
242  03  0 
505  03  0 
137  00  0 

253  03  0 
037  03  0 

254  00  0 


301  00 
303  00 


254  00 
200  13 


0 
0 
0 
0 
2oJ  17  0 

200  03  0 
242  03  0 
270  03  0 

201  00  0 
137  00  0 
200  00  0 
306  00  0 
254  00  0 
254  00  0 


00  057607 
00  044416 
00  057611 
00  057412 
00  000002 
00  000001 
00  057520 
00  000000 
00  046601 
00  000001 
00  000003 
00  777770 
00  057614 
00  044427 
00  000003 
00  044451 
00  000000 
00  000007 
00  044402 
00  000000 
00  046601 
00  000001 
00  000003 
00  000013 
00  000001 
00  057614 
00  030232 
00  000015 
00  044376 
00  044431 


ASKN:   SKIPE 
CLRBFI 
PCRLF 
MOVE 
TLNE 
JRST 
PNTMSF 
SKIPN 
PNTMSF 
PNTMSF 

ON  RH-/] 

JRST 


ASKN1 : 
ASKN2 : 


ASKQ: 


PNTMSF 

LDB 

LSH 

PNT3F 

PNTMSF 

SETZM 

GO 

MOVE 

LSH 

HRLI 

DPB 

AOBJN 

TTIOCT 

JRST 

CAIL 

CAILE 

JRST 

MOVE 

GO 

MOVE 

LSH 

ADD 

MOVE  I 

DPB 

MOVE 

CAIN 

JRST 

JRST 


USER 


;In  user  mode? 
;Clr  input  buffer 


O.CONSU 

OJXTINH 

ASKN1         :Short 

CASCIZ/SELECT  DXJO  0-7/] 

USER 

CASCIZ/  OR  "A"/] 

[ASCIZ/ 


;6et  console  switches 

.-Normal  or  short  printout  mode  ? 


ASKN2 

CASCIZ/DX20'S  ON 
[POINT  7,MBCN,9J 
2 

CASCIZ/=  /] 

0 

CHSEL 

3J 

3,3 

3,-10 

[POINT  1,DEVTBL( 

3,.-1 

ASKER 

0,0 

0,7 

ASKN 

DRIVE, 0 

CHSEL 

3,1 

3, DRIVE 

0,1 

[POINT  1,DEVTBL( 

$CHRifi 

0,15 

ASKP 

ASKQ 


/] 

;6et  rh  dev  code 
; Posit ion  for  printing 
;Print  it 


;6et  chan  # 
;Now  to  ad 


to  ad 


;-  M  Of  dx20's  per  controller 

S)-163  ;Clear  bit  16 

;Clears  for  all  dx20's  this  rh 

; Input  some  octal 

;Error  return 

;Normal  return,  ranget  test 

;Out  of  range 
;Get  in  dx20  number 
;6et  chan  M   to  ad 
;Now  to  ac3 


;For  deposit  byte  argument 
S),16]  ;Set  bit  16  ^being 


;Get  the 
;Is  it  a 
;Yes 

;No 


next 
cr  ? 


char 


ng  tested" 


DFDXD 
DXCOM 

9813 

98H 

9815 

9816 

9817 

9818 

9819 

9820 

9821 

9822 

9823 

982A 

9825 

9826 

9827 

9828 

9829 

9830 

9831 

9832 

9833 

9834 

9835 

9836 

9837 

9838 

9839 

9840 

9841 

9842 

9843 

9844 

9845 

9846 
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SEQ  0395 


044451 
044452 
044453 
044454 
044455 
044456 

044457 

044460 

044461 

044462 

044463 

044464 

044465 

044466 

044467 

044470 

044471 

044472 

044473 

044474 

044475 

044476 

044477 

044500 

044501 

044502 

044503 

044504 

044505 

044506 

044507 

044510 

044511 


332  00  0  00  030037 
254  00  0  00  04440? 
306  00  0  00  000101 
254  00  0  00  044460 

333  00  0  00  030225 
254  00  0  00  044402 


ASKER: 


037  01  0 
260  17  0 
200  03  0 
242  03  0 
505  03  0 
200  00  0 
603  00  0 
661  00  0 
202  00  0 

253  03  0 

254  00  0 
402  00  0 
200  03  0 
200  01  0 
603  01  0 
350  00  0 


253  03 
326  00 
037  01 

254  00 
202  00 
262  17 
26?  17 
2oi  17 
262  17 

262  17 

263  17 


00  057600 
00  046601 
00  000001 
00  000003 
00  777770 
03  044556 
00  000001 
00  000002 
03  044556 
00  044464 
00  044376 
00  000000 
00  044545 
03  000000 
00  000002 
00  000000 
00  044474 
00  044503 
00  057615 
00  044370 
00  065253 
00  000004 
00  000003 
00  000002 
00  000001 
00  000000 
00  000000 


n 

ASKERl 


ASKX: 


SKIPE 

JRST 

CAIN 

JRST 

SKIPLE 

JRST 

PNTMSF 

GO 

MOVE 

LSH 

HRLI 

MOVE 

TLNE 

TLO 

MOVEM 

AOBJN 

JRST 

SETZM 

MOVE 

MOVE 

TLNE 

AOS 

AOBJN 

JUMPN 

PNTMSF 

JRST 

MOVEM 

GET 

GET 

GET 

GET 

GET 

RTN 


USER 

ASKN 

O/'A" 

ASKERl 

STWCNT 

ASKN 

CASCIZ/  A 

CHSEL 

3J 

3,3 

3,-10 

0,DEVTBL(3) 

0,(1817) 

0,(1816) 

0,DEVTBL(3) 

3, .-4 

ASKP 

0 

3,DEVUD 

1,(3) 

1,(1816) 

0 

3, .-3 

0,.+3 

CASCIZ/  NO 

ASKJ 

0,HWMANY# 

4 

3 

2 

1 

0 


;Don't  allow  all 
;Is  char  an  "a"  ? 
;Yes 

•Timeout  ? 
:No 


;6et  chan  # 
;Now  to  ac3 


to  acl 


With  -ft  of  dx20's  in  left 

Fetch  an  entry 

Dx20  available  ? 

Yes.  set  its  test  bit 

Entry  goes  back  in  the  table 

For  all  clx20's  on  this  rh 

Go  try  next  rh 

A  counter 

Counter,, pointer 

Fetch  devtbl  entry 

See  if  dx20  selected 

Sump  the  count 

Count  all  dx20s  being  tested 


DX20'S  SELECTED  ?  /2 

.-Holds  *  of  dx20's  being  tested 
.-Restore  ac's 


;And  exit 
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SEQ   0396 


98A7 

98A8 

98A9 

9850 

9851 

9852 

9853 

9854 

9855 

9856 

9857 

9858 

9859 

9860 

9861 

9862 

9863 

9864 

9865 

9866 

9867 

9868 

9869 

9870 

9871 

9872 

9873 

9874 

9875 

9876 

9877 

9878 

9879 

9880 

9881 

9882 

9883 

9884 

9885 

9886 

9887 


0445:? 
044513 
044514 
044515 
044516 
044517 
044520 
044521 
044522 
044523 
044524 

044525 
044526 
044527 
044530 
044531 
044532 
044533 
044534 
044535 
044536 
044537 
044540 
044541 


336  00  0 
263  17  0 
602  00  0 
263  17  0 
336  00  0 
254  00  0 
305  00  0 
263  17  0 
307  00  0 
350  00  0 
263  17  0 


306  00 
254  00 
306  00 

23'r  00 

306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
?06  00 
350  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  030510 
00  000000 
00  000003 
00  000000 
00  047061 
00  044525 
00  000540 
00  000000 
00  000574 
17  000000 
00  000000 

00  000270 
00  044540 
00  000274 
00  044540 
00  000360 
00  044540 
00  000364 
00  044540 
00  000370 
00  044540 
00  000374 
17  000000 
00  000000 


Rngchk  -  -  routine  to  range  test  rh  device  codes      , .^  ^ 
This  routine  tests  the  low  order  9  bits  of  acO  for  a  valid. rh 
Device  code  and  branches  accordingly,  the  non  skip  return  is 
Taken  either  if  the  device  code  is  illegal  or,  the  subroutine 
Package  flag  "ttnbrf"  indicates  that  the  user  has  hit  the 
Delimiting  character  before  entering  the  number,  in  either 
Case,  acO  is  returned  unmodified. 

Calling  sequence: 

Go     rngchk 

Rtn-1  ;out  of  range 

Rtn-2  ;ok 


RNGCHK:  SKIPN  TTNBRF 
RTN 

TRNE  0,3 
RTN 

SKIPN  RH20FG 

JRST  RNG10A 

CAIGE  540 
RTN 

CAIG  574 

AOS  (P) 
RTN 

RNG10A:  CAIN  270 

JRST  RNG10B 

CAIN  274 

JRST  RNG10B 

CAIN  360 

JRST  RNG10B 

CAIN  364 

JRST  RNG10B 

CAIN  370 

JRST  RNG10B 

CAIN  374 

RNG10B:  AOS  (P) 
RTN 


;Any  digits  input  ? 
;No.  error 

; These  bits  must  be  zero 
;Error.  there  not 


;Test  rhIO  codes 
;Test  outer  limits 
;No,  less  than  540 
.•Greater  than  574? 
;No,  therefore  index 


Is  it  270? 

Yes 

Is  it  274? 

Yes 

Is  it  360? 

Yes 

Is  it  364? 

Yes 

Is  it  370? 

Yes 

Is  it  374? 

Bump  pc 


pc  and  exit 


.J 


1 
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SEQ  0397 


9888 

9889 

9890 

9891 

9892 

9893 

9894 

9895 

9896 

9897 

9898 

9899 

9900 

9901 

9902 

9903 

990A 

9905 

9906 

9907 

9908 

9909 

9910 

9911 

9912 

9913 

9914 

9915 

9916 

9917 

9918 

9919 

9920 

9921 

9922 

9923 

9924 

9925 

9926 

9927 

9928 

9929 

9930 

9931 

9932 

9933 

9934 

9935 

9936 

9937 

9938 


*     Constants  and  variables  for  configuration  module 
Bit  meanings  for  rhtbl  ^   .  ^  ..  • 

Bit  15  =  0  no  catastrophic  probs  with  this  rh 

can't  allow  using  this  rh.  (its  sick) 

will  not  be  selected  for  test 

will  be  tested 

rh  does  not  appear  to  exist 

rh  does  not  exist 

rh  is  on  the  system 


Bit  15  =  1 

Bit  16  =  0 

Bit  16  =  1 

Bit  17  =  0 

Bit  17  =  0 

Bit  17  =  1 


Bit  meanings  for  devtbl 

Bi!  16  =  0  dx20  will  not  be  tested 

Bit  16  =  1  dx20  will  be  tested 

Bit  17  =  0  dx20  does  not  appear  to  exist  on  rh 

Bit  17  =  1  dx20  was  detected  on  the  rh 


044542  000000  000000 

044543  000000  000000 

044544  OOCOOO  000000 

044545  000000  000000 
044546 

044556 


044656 
044657 
044660 
044661 
044662 
044663 
044664 
044665 
044666 
044667 


044670 
044671 
044672 
044673 
044674 
044675 


336  00  0 
254  00  0 
270  14  0 
263  17  0 

261  17  0 
260  17  0 
350  00  0 
200  14  0 

262  17  0 

263  17  0 


00  047061 
00  044662 
00  057622 
00  000000 
00  000001 
00  046601 

00  000001 

01  044670 
00  000001 
00  000000 


027000 
027400 
036000 
036400 
037000 
037400 


000000 
000000 
000000 
000000 
000000 
000000 


M6CMIN:  0 

M6CMAX:  0 

RHUD:  0 

DEVUD:  0 

RHTBL:  BLOCK 

DEVTBL:  BLOCK 


'^DS 
^D64 


54000,, 0  Or  27000,, 0  lowest  device  code 
57400,, 0  Or  37400,, 0  highest  device  code 
-10  Or  -6,,''htbl  -si2e,,adr  of  rhtbl 
-*D64  or  -*d48,, devtbl  -si2e,,adr  of  devtbl 
Rh  status  table 
Device  status  table 


*  Incrh  —  routine  to  increment  mbcn  properly 

*  This  routine  increments  mbcn  properly  to  get  it  set  for  the  next 

*  Controller,  it  is  necessary  because  of  the  staggered  rh  device 

*  Codes  that  have  been  assigned. 


INCRH: 


INCRl 


SKIPN 

JRST 

ADD 

RTN 

PUT 

GO 

AOS 

MOVE 

GET 

RTN 


RH20FG 

INCRl 

MBCN, [400,, 0] 

1 

CHSEL 

1 

M8CN,DEVC0D(1) 

1 


;Does  it  for  rh20's 

;Save  ad 

;Get  chan  ff   from  current  de\/  code 

;Bump  it 

;Tbl  lookup  the  new  device  code 

.-Restore  ad 

;And  exit 


;Chan  M   to  device  code  mapping  routine 

DEVCOD:  27000,, 0 
27400,, 0 
36000,, 0 
36400,, 0 
37000,, 0 
37400,, 0 


261  17  0 
336  00  0 
254  00  0 
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9939 
9940 
9941 
9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 

9956  044676 

9957  044677 

9958  044700 

9959  044701 

9960  044702 

9961  044703 

9962  044704 
9965  044705 

9964  044706 

9965  044707 

9966  044710 

9967  04471 1 

9968  044712 

9969  044713 

9970  044714 

9971  04471 5 

9972  044716 

9973  044717 

9974  044720 

9975  044721 

9976  044722 

9977  044723 

9978  044724 

9979  044725 

9980  044726 

9981  044727 

9982  044730 

9983  044731 

9984  044732 

9985  044733 

9986  044734 

9987  044735 

9988  044736 

9989  044737 

9990  044740 

9991  044741 
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SEQ  0398 


0 
0 
0 
0 
0 
0 
0 


350  00 
402  00 
305  13 
344  13 
402  00 
311  14 
254  00 
260  17  0 
254  00  0 
200  14  0 
3f}  00  0 
260  17  0 
200  01  0 
607  01  0 
254  00  0 
260  17  0 
242  01  0 
270  01  0 
200  01  0 
607  01  0 
254  00  0 
202  13  0 
350  00  0 
336  00  0 
254  00  0 
336  00  0 
254  00  0 
0 
0 
0 
0 
0 
0 


312  14 
260  17 

262  17 
402  00 
402  00 

263  17 


00  000001 
00  065323 
00  044703 
17  777777 
00  065323 
00  000007 
00  044720 
00  000013 
00  044543 
00  044712 
00  044656 
00  044714 
00  044542 
17  777777 

00  046601 

01  044546 
00  000002 
00  044706 
00  046601 
00  000003 

00  000013 

01  044556 
00  000002 
00  044703 
00  065313 
17  777777 
00  030037 
00  044736 
00  065235 
00  044736 
00  065235 
00  046707 
00  000001 
00  030052 
00  052502 
00  000000 


SUBTTL  DEVICE  SELECTION  AND  PROGRAM  TRACE  ROUTINES 

Devsel  —  device  selection  routine  #1 
This  routine  will  allow  for  the  selection  of  the 
Next  available  dx20/controller  pair  to  be  tested,  its 
Decisions  are  based  on  the  current  state  of  mbcn  and 
Dx20  alonq  with  information  from  bit  16  from  the  app- 
Ropriate  devtbl"  entry,  the  standard  algorithim  for 
Testing  will  be  done  by  selecting  all  dx20's  on  a  particular 
Controller  before  advancing  to  tne  next  controller. 

Calling  seq: 

Go  devsel        .-select  next  dev  for  test 
Rtnl  .-tried  all.  first  re-selected 

Rtn2  .-next  is  selected. 


DEVSEL 


SEL1: 
SEL2: 

SEL3: 
SEL4: 

SEL5: 


DEVEX: 


PUT  1 

SKIPN  SELFLG* 

JRST  .+3 

ACS  -1 (P) 

SETZM  SELFLG 

CAIGE  DRIVE. 7 

AOJA  DRIVE. SEL5 

SETZM  DRIVE 

CAML  MBCN.MBCMAX 

JRST  SEL3 

GO  INCRH 

JRST  SEL4 

MOVE  MBCN.MBCMIN 

SOS  -1 (P) 

GO  CHSEL 

MOVE  I.RHTBL(I) 

TLNN  1.(1B16) 

JRST  SEL2 

GO  CHSEL 

LSH  1.3 

ADD  1. DRIVE 

MOVE  l.DEVTBL(l) 

TLNN  1.(^316) 

JRST  SEL1 

MOVEM  DRIVE. REFDRV* 

AOS  -1(P) 

SKIPN  USER 

JRST  DEVEX 

SKIPN  DIAGCR* 

JRST  DEVEX 

CAME  MBCN.DIAGCR 

GO  DEVREL 

GET  1 

SETZM  ERRPC 

SETZM  SHMODE 

RTN 


Save  ad 

Initializing  ? 

No. 

Yes.  adjust  return 

Clear  the  flag  for  init 

See  if  last  dx20  ? 

Bump  dx20  number  and  branch 

Clear  the  dx20  number 

Tried  all  the  rh's  ? 

Yes 

No.  bump  rh  device  code 


.-Reset  the  controller  number 

.-Decrement  the  return  address 

.-Chan  #  to  ad 

.-Fetch  an  entry 

.-See  if  rh  is  being  tested  ? 

.-No 

.-Get  chan  M   to  ad 


Get  a  devtbl  entry 

Dx20  being  tested  ? 

No 

Save  as  reference  device 

Bump  the  return 

In  user  mode  ? 

No 

Yes.  do  we  have  the  rh  ? 

No 

Yes,  same  one  were  selecting  ? 

No.  give  it  back  to  monitor 

Restore  the  ac 


;Inits  to  normal  printout 
;And  exit 


L. 


L.„ 
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SEQ  0399 


9992 

9993 

9994 

9995 

9996 

9997 

9998 

9999 

10000 

10001 

10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 

10011 

10012 

10013 

10014 

10015 

10016 

10017 

10018 

10019 

10020 

10021 

10022 

10023 

10024 

10025 

10026 

10027 

10028 

10029 

10030 

10031 

10032 

10033 

10034 

10035 

10036 


SUBTTL  CONTROLLER  INITIALIZATION  ROUTINE 

Mstclr  —  rh  master  clear  routine 
This  routine  does  the  following: 

1.  Clears  all  possible  errors  Tissues  an  rhclr) 

2.  Will  allow  attn's  to  be  seen  in  the  coni  if  rhIO 
(Issues  an  attnen) 

3.  Clears  m-box  errors  (rh20  only)  (issues  rclp) 

4.  Enables  rh20  transceivers  (issues  mbe) 

Calling  seq: 

Ldreg   dxmtr,dxres  ; issue  ox  reset 

Return  ; returns  here  always 


044742 
044743 
044744 
044745 
044746 
044747 
044750 


261 
201 
332 
201 
260 
262 
263 


17 
01 
00 
01 
17 
17 
17 


0  00  000001 
0  00  002040 
0  00  047061 
0  00  002600 
0  00  045361 
0  00  000001 
0  00  000000 


044751 
044752 
044753 
044754 
044755 
044756 
044757 

044760 
044761 
044762 


037  01 
037  01 
254  00 
350  00 
350  00 
037  00 
263  17 


0  00  000026 
0  00  000003 
0  00  044760 
0  17  000000 
0  17  000000 
0  00  030242 
0  00  000000 


333  00  0  00  030225 
254  00  0  00  044755 
254  00  0  00  044756 


MSTCLR:  PUT 
MOVE  I 
SKIPE 
MOVE  I 
GO 
GET 
RTN 


1 


;Sav/e  the  ac 
;Rhclrlattnen 


1J825I1B30 

RH20FG 

1,1B25I1B2711B28       ;Rhclr!mbe!rclp 

.CONO         ;To  the  actual  i/o  routine 

1 

;And  exit 


SUBTTL  SOME  TTY  INPUT  UTILITY  ROUTINES 

;*  Qstn  —  routine  to  input  answers  (y  or  n)  and,  branch 

;♦  This  routine  automatically  outputs  the  "y  or  n"  promt  msg. 

;♦  Calling  sequence: 

;♦  Go     qstn         ;caU  the  routine 

;♦  Rtn-1               .-timeout 

;♦  Rtn-2               ; answer  was  a  no 

;♦  Rtn-3               .-answer  was  a  yes 


QSTN: 


QSTNA: 


QSTNB: 


PFORCE 

TTIYES 

JRST 

AOS 

AOS 

PCRL 

RTN 

SKIPLE 

JRST 

JRST 


QSTNB 

(P) 

(P) 


STWCNT 

QSTNA 

QSTNA+1 


.-Force  this  to  print 
.-Input  from  the  terminal 
;No  or  timeout  has  occured 


.-Type  a  crlf 


.-Was  there  a  timeout 
;Nope.  the  answer  was  a  no 
.-There  was  a  timeout 
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SEQ  0400 


10037 

10038 

Nuirnn  - 

-  input  an 

10039 

The  limits  are  Inc 

10040 

Multipl 

e  returns  a 

10041 

10042 

CaUing 

seg: 

0,Clim1,,L 

10043 

Move 

10044 

Go 

numin 

10045 

Rtn-1 

10046 

'  *f 

Rtn-2 

10047 

;  ♦ 

Rtn-3 

10048 
10049 
10050 

•  »*t»»»*t*»***t»**t****-»* 

044763 

261  17  0  00  000000 

NUMIN: 

PUT 

0 

10051 

044764 

270  17  0  00  057623 

ADD 

P,C2,,2] 

10052 

10053 
10054 
10055 

;Set  up 

36  bit 

limits  with 

044765 

572  00  0  17  111117 

HRREM 

0.-1(P) 

10056 

044766 

576  00  0  17  000000 

HLREM 

9-^?^ 

10057 

044767 

200  00  C  17  111111 

HOVE 

0.-1(P) 

10058 

044770 

311  00  0  17  000000 

CAML 

0,(P) 

10059 

044771 

250  00  0  17  000000 

EXCH 

0,(P) 

10060 

044772 

202  00  0  17  mill 

MOVEM 

0,-1(P) 

10061 

10062 
10063 
10064 

; Input 

a  conwer 

table  numbe 

044773 

037  05  0  00  000003 

TTICNV 

10065 

044774 

254  00  0  00  045006 

JRST 

NUMIE 

10066 

044775 

350  00  0  17  lllll'i 

AOS 

-3(P) 

10067 

044776 

3i'  00  0  17  mill 

CAML 

0,-1(P) 

10068 

044777 

313  00  0  17  000000 

CAMLE 

0,(P) 

10069 

045000 

25'.  00  0  00  045003 

JRST 

NUMIEX 

10070 

045001 

250  00  0  17  milt 

EXCH 

0.-2(P) 
-3(P) 

10071 

045002 

350  00  0  17  lllll'i 

AOS 

10072 

045003 

274  17  0  00  057623 

NUMIEX: 

SUB 

P.C2,.2] 

10073 

045004 

262  17  0  00  000000 

GET 

0 

10074 
10075 
10076 

045005 

263  17  0  00  000000 

RTN 

045006 

333  00  0  00  030225 

NUMJE: 

SKIPLE 

STWCNT 

10077 

045007 

350  00  0  17  11111"^ 

AOS 

-3(P) 

10078 

045010 

254  00  0  00  045003 

JRST 

NUMIEX 

ing 


.•specify  the  limits 
;call  the  routine 


.•timeout,  no  response  (acO  unchanged) 
.•illegal  or  out  of  range  (acO  unchanged) 
.-normal.  (36  bit  num  in  acO) 


.'Save  original  acO 
;Get  some  stack  space 

lower  of  the  2  first  on  the  stack 

;Save  36  bit  right  limit 

.•Save  36  bit  left  limit 

;Get  the  first  limit 

;See  if  first  is  smaller  of  the  2 

;No.  exchange 

.•Limits  now  ordered  correctly 


.-Does  tty  input 

l^TTOT   or  timeout 

.•Input  ok.  bunmp  the  return 

.•Range  test  the  number 

;Out  of  range 

;In  range,  put  on  the  stack 

;Bump  the  return 

.•Relinquish  stack  space 

.•Recover  the  number 

.-And  take  the  proper  return 

;Was  there  a  timeout  ? 
;No.  bump  the  return 
.•Timeout. 
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SEQ  0A01 


10079 

10080 

10081 

10082 

10083 

1008A 

10085 

10086 

10087 

10088 

10089 

10090 

10091 

10092 

10093 

10094 

10095 

10096 

10097 

10098 

10099 

10100 

10101 

10102 

10103 

10104 

10105 

10106 

10107 

10108 

10109 

10110 

10111 

10112 

10113 

10114 

10115 

10116 

10117 

10118 

10119 

10120 

10121 


045011 
045012 
045013 
045014 
045015 
045016 
045017 
045020 
045021 
045022 
045023 


261  17 
037  01 
200  00 
037  01 
037  01 
135  00 
242  00 
037  03 
037  01 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
057624 
000013 
000001 
057411 
057412 
000002 
000001 
000026 
000000 
000000 


045024 
045025 
045026 
045027 
045030 
045031 
045032 
045033 
045034 
045035 


261  17 
037  00 
254  00 
350  00 
250  00 
316  00 
350  00 
037  01 

262  17 

263  M 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
17 
17 
17 
M 
00 
00 
00 


000000 
000003 
045033 
111117 
000000 
000000 
111111 
030242 
000000 
000000 


SUBTTL  GENERAL  PRINT  UTILITIES 

♦•♦•»»**♦♦♦*#»»♦♦♦•*♦♦♦♦♦♦•*♦•*•♦•*«•••♦♦•♦*♦♦♦♦♦•♦♦♦♦♦*♦•♦•**♦•♦*♦*♦♦ 

Telwho  —  prints  current  dx20  and  controller  number 

This  routine  prints  "dx20-x  rh-xxx"  without  any  line  control. 

This  routine  is  primarily  used  to  identify  the 

Device  in  the  operator  intervention  messages. 

Calling  seq: 

Go     telwho  ;call  the  routine 

Rtn  ;the  return 

»••*•♦••♦*•♦•••••♦**••♦•♦»♦•♦•••*♦♦•»•*♦♦•♦••*♦*♦♦•«•*♦♦♦♦♦*♦•♦•♦♦♦•♦♦ 


TELWHO:  PUT 

PNTMSF 

MOVE 

PNT1F 

PNTMSF 

LDB 

LSH 

PNT3F 

PFORCE 

GET 

RTN 


CASCIZ/  DX20-/3 
0. DRIVE 


;Save  acO 


;6et  dx20  number 

; Print  it 
CASCIZ/RH-/J 

0, [POINT  7,MBCN,9]     ;Get  device  code 
0,2  .-Position  for  printing 

; Print  it 

.-Force  printout 
0  .-Restor  the  ac 


Char in  —  routine 
Calling  seq: 


Movei 

Go 

Rtn-1 

Rtn-2 

Rtn-3 


O.char 
char  in 


to  input  a  specific  char  from  the  tty 

.-specify  the  character  you  want 

;go  and  do  input 

;no  response,  timeout 

.-wrong  character  (acO  holds  char) 

.-correct  char  (acO  holds  char) 


»»»»♦*•♦•♦♦•♦♦♦♦*•♦••••♦♦•••••»••••♦♦•*♦♦♦♦♦♦♦••♦♦♦••♦♦♦*♦♦♦•♦♦♦»••♦♦* 


CHARIN:  PUT  0 
TTICHR 

JRST  CHARA 

Aos  -y^^) 

EXCH  0.(P) 

CAMN  0,(P) 

AOS  -1(P) 
CHARA:   PCRLF 

GET  0 
RTN 


Save  desired  char  onthe  stack 

Do  tty  input 

Timeout 

Leaal.  bump  the  return 

Put  the  char  on  the  stack 

Is  the  char  as  expected  ? 

Yes.  bump  the  return 

A  free  cr  If  pair 

Get  the  char 

And  take  proper  retuf^n 
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SEQ  0^02 


10122 
10123 
10124 
10125 
10126 
10127 

10128 

10129 

10130 

10131 

10132 

10133 

10134 

10135 

10136 

10137 

10138 

10139 

10140 

10141 

10142 

10143 

10144 

10145 

10146 

10147 

10148 

10149 

10150 

10151 

10152 

10153 

10154 

10155 

10156 

10157 

10158 

10159 


SUBTTL  MASSBUS  CONTROLLER  UTILITY  PKG 
Notes  on  i/o  routine  design 


1. 

2. 
3. 

4. 
5. 


6. 


7. 


8. 


All  coJe  in  this  file  is  re-entrant 
yith  the  exception  of  the  user  mode  stuff  which  need 
Not  be  since  the  pi  system  cannot  be  used  in  user  mode 

The  routines  expect  to  find  the  dx20  number  in  an  ac  labled 
•Drive"  bits  33-35  . 

The  routines  will  expect  to  find  the  controller  device  code 
Ifi  an  ac  labled  "mbcn**  (massbus  controller  number) 
Bits  3-9 

No  ac's  are  modified  unless  they  return  data. 

There  is  a  global  software  flag  called  "shmode"  which 
Overrides  and  works  functionally  identical 
To  the  short  printout  switch  "txtinh".  this 
Is  a  convenient  way  for  the  software  to  force 
The  diagnostic  into  octal  output  mode. 

If  in  (exec  mode)  with  an  rh20  it's  necessary  for  the  chan  routines 
To  do  a  limited  amount  of  pacing,  this  is  accomplished  b/  setting 
Up  a  location  called  "cbase'  to  be  a  paged  address  of  "0*.  the 
The  routines  will  then  work  properly. 

This  pkg  has  been  constructed  to  work  correctly  with  the  das-33 
Extended  status  feature  if  in  exec  mode,  monitor  does  not  support 
The  feature  in  user  mode. 


RhIO's  will  default  to  location  100  for  their  icwa.  to  change 
The  default  address,  write  the  desired  adr  into  locations 
IcwaO  thru  icwa5.  there  is  one  location  for  each  of  the  possible 
RhIO's  (up  to  6) 
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SEQ  0A03 


10160 

10161 

10162 

10163 

10164 

10165 

10166 

10167 

10168 

10169 

10170 

10171 

10172 

10173 

10174 

10175 

10176 

10177 

10178 

10179 

10180 

10181 

10182 

10183 

10184 

10185 

10186 

10187 

10188 

10189 

10190 

10191 

10192 

10193 

10194 

10195 

10196 

10197 

10198 

10199 

10200 

10201 

10202 

10203 

10204 

10205 

10206 

10207 

10208 
10209 
10210 
10211 
10212 
10213 
10214 


045036 
045037 
045040 
045041 
045042 
045043 
045044 
045045 
045046 
045047 
045050 
045051 
045052 


045053 
045054 
045055 
045C56 


261 
661 
261 
261 
261 
332 
661 
621 
137 
200 
200 
434 
256 


17 
01 
17 
17 
17 
00 
01 
01 
13 
03 
02 
02 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


000001 
004000 
000000 
000002 
000003 
047061 
000400 
000030 
057626 
000001 
057627 
C'00014 
00000? 


336  00  0  00  047061 
254  00  0  00  045062 
641  02  0  00  000300 
256  00   0  00   000002 


;get  some  argument 

;rae  detected  after  the  load 
;load  was  successful 


SUBTTL  REGISTER  LOAD  AND  READ  ROUTINES 

♦  Massbus  device  register  load  routines  specification: 

♦  Device  registers  are  loaded  b/  setting  up  ad 

*With  some  app^'opriate  argument  and  then  calling  the  correct 
♦Routine  with  a  pushj.  the  routines  have  a  normal  return  and  an  error 
♦Return. 

♦  Eg.    move   acl,foo 

♦  Go     Idrg 

♦  Rtnl 

♦  Rtn2 

*Ac1: 

♦Specify  register  data  in  bits  20-35 

♦Specify  parity  mode  bit  18 

♦  0  Means  odd 

♦  1  Means  even 

♦Specify  software  option  bits  13-14 

♦  Bit  13=0       clear  rae's 

♦  Bit  13=1       don't  clear  rae's 

♦  Bit  14=0       report  rae's 

♦  Bit  14=1       don't  report  rae's 
♦Specify  register  number  in  bits  0-5 

♦ 

♦Status: 

♦If  no  errors  are  detected,  ad  is  returned  as  it  was 

♦Specified  except  for  the  register  and  drive  fields  which  will  have 

♦Been  supplied  by  the  routine. 

♦Ad  on  return  from  an  rhIO  error  holds  the  present  value 

♦Of  the  dib.  ad  on  return  from  an  rh20  error  holds  the  datao  argument 

♦That  caused  the  rae. 


LDRG: 


PUT 

TLO 

PUT 

PUT 

PUT 

SK I PE 

TLO 

TLZ 

DPB 

MOVE 

MOVE 

I  OR 

XCT 


1 


;Save  ad 
;Set  Ir 
;Save  acO 
;Sdve  ac2 
.-Save  the 


ac 


1,(186) 
0 
2 
3 

RH20F6 

1,(189)        ;Set  disable  rae  stop  bit 

1.(181311814)   ;Clear  software  flags 

DRIVE, [POINT  3,1,17]    .-Include  the  dx20  #  in  bits  15-17 

3,1  .-Save  the  datao  argument 

2,[DATAn  0,1]       ;Build  a  datao  from  ad 

2,MBCN        .-Include  the  device  code 

2  ;Dces  a  datao  rh,1 


;Code  to  test  for  an  rh10/rh20  rae 


SKIPN  RH20FG 

JRST  LDR61 

TLC  2,M810:1B11) 

XCT  2 


;Rh10 

.-Changes  datao  to  a  coni 

.-Does  a  con*  rh.i 


DFDXD 
DXCOM 

10215 

10216 

10217 

10218 

10219 

10220 

10221 

10222 

10223 

1022  A 

10225 

10226 

10227 

10228 

10229 

10230 

10231 

10232 

10233 

1023A 

10235 

10236 

10237 

10238 

10239 

102AO 

10241 

10242 

10243 

10244 
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SEQ  0404 


045057  602  01  0  0  .  004000 

045060  254  00  0  0  )  045107 

045061  254  00  0  00  045101 


045062 
045063 
045064 
045065 
045066 
045067 
045070 
045071 
045072 
045073 
045074 
045075 
045076 
045077 
045100 


045101 
045102 
045103 
045104 
045105 
045106 


621  02 
271  02 
256  00 
205  00 

200  01 
434  01 
256  00 
621  01 
424  00 
424  00 
256  00 

201  01 
242  01 
612  00 
254  00 


00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


0 
0 


00 
00 


0  00 
0  00 
0  00 
0  13 
0  00 
0  00 


000100 
000002 
000002 
540000 
057630 
000014 
000001 
000100 
000000 
000000 
000001 
000001 
000000 
000001 
045107 


;This  IS 
LDRG1 : 


350  00  0  17  llllli^ 
262  17  0  GO  000003 
262  17  0  00  000002 
262  17  0  00  000000 

262  17  0  00  000001 

263  17  0  00  000000 


LDRGC: 


TRNE 

1JB24 

JRST 

LDRGB 

JRST 

LDRGC-1 

rhIO 

code 

TLZ 

2,(1811) 

ADDI 

1.2 

XCT 

2 

MOVSI 

(54B5) 

MOVE 

UDATAOl 

I  OR 

1,MBCN 

XCT 

1 

TLZ 

1,(1811) 

SETA 

SETA 

XCT 

1 

MOVE  I 

1,1 

LSH 

1, (DRIVE) 

TDNE 

0,1 

JRST 

LDRGB 

a  common  exit  fo 

AOS 

-4(P) 

GET 

3 

GET 

2 

GET 

0 

GET 

1 

RTN 

;Was  there  an  rae   ?? 

;Yes. 

;0k  on  rh20 


Changes  datao  rh,1  to  datai  rh,1 

Now  we  have  datai  rh,3 

Do  a  blind  datai 

Rae  register  number 

Get  a  Basic  datao  instruction 

Include  the  device  code 

Do  a  datc.0  rh,0 

Change  datao  to  datai 

Rh10  i/o  stall  is  necessary 

;Does  a  datai  into  acO 

;6et  a  single  bit  mask 

; Posit ion  to  correct  rae  bit 

;Is  there  an  rae  ?? 

;Yes. 


;No  rae.  bump  the  return 

; Clean  up 

;Restore  a  couple  of  ac's 


;And  exit 
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SEQ  0A05 


10245 

102A6 

102A7 

102A8 

102A9 

10250 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 

10259 

10260 

10261 

10262 

10263 

10264 

10265 

10266 

10267 

10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 

10281 

10282 

10283 


045107 
045110 
045111 


045112 
045113 
045114 
045115 
045116 
045117 

045120 
045121 
045122 
045123 


045124 
045125 
045126 


045127 
045130 
045131 
045132 
045133 
045134 
045135 
045136 
045137 
045140 
045141 
045142 


200  01  0  17  inil'i 
603  01  0  GO  000020 
254  00  0  GO  045124 


336  00 
254  GO 
260  17 
405  01 
260  17 
254  GO 


0  GO  G47G61 
0  GO  045120 
G  GO  045377 
0  GO  004447 
0  GO  045361 
0  GO  045124 


200  00  0  GO  G57631 
200  01  0  GO  057630 
434  01  0  GO  000014 
256  00  C  GO  000001 


250  03  0  17  11111^ 
603  03  0  GO  000010 
254  00  0  GO  045102 


037  00 
135  GO 
24?  GO 
03/  16 
332  00 
037  00 
336  00 
037  00 
200  GO 
037  13 
037  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
17 
GO 
GO 
GO 


057632 
057412 
000002 
000003 
047061 
057643 
047061 
057651 

000000 
030242 
045102 


;Here  because  we  had  an  rae  detected  after  a  register  load 


LDRGB:  MOVE 
TLNE 
JRST 


1,-3(P) 

1,(1813) 

LDRGB1 


.-Fetch  original  ad 
;Want  to  clear  the  rae  ?? 
;No. 


;Rh20/rh1G  code  to  clear  rae's 


SKIPN 

JRST 

GO 

AND  I 

GO 

JRST 

LDRGB2:  MOVE 
MOVE 
lOR 
XCT 


RH2GFG 

LDRG62 

.CONI  ;Do  a  com'  .  . 

1JB24I1B27I1B3G17B35       ;Raeclrlmbe!attnen!pKhan 

.CONO  ;Do  correct  clearing  cono 

LDRG61 

C54B5 1186! 377]  ; Ready  to  clear  all  rae's 

I.CDATAO]  ;A  basic  datao 

1,MBCN  .-Include  the  device  code 

1  .-Clears  the  rae 


.-See  if  we  want  to  report  errors 


LDRGB1:  EXCH    3.-3(P) 

TLNE    3.(1814) 

JRST    LDRGC 

PNTMSG  CASCIZ/ 
RAE  WHILE  WRITING  A  DEVICE  REGISTER 
RH=/] 

[POINT  7.MBCN.9] 


;Put  ^TT   argument  on  stack 

.-Want  to  report  ?? 

.-No 


LD8 

LSH 

PNTOCS 

SKIPE 

PNTMSG 

SKIPN 

PNTMSG 

MOVE 

PNTHW 

PCRL 

JRST 


.-Get  device  code 


RH2GFG 

CASCIZ/ 

RH2GFG 

CASCIZ/ 

-3(P) 


LDRGC 


.-Justifjf  for  printing 
.-Print  it 

THE  DATAO  ARGUMENT  WAS:  /3 

READING  ^HE  DIB  GIVES:  /] 

.-Get  it  from  the  stack 
.-Print  it 
.-Print  a  crlf 
.-And  go  exit 


J 


DFDXD 
DXCOM 

1028A 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

1029A 

10295 

10296 

10297 

10298 

10299 

10300 

10301 

10302 

10303 

1030A 

10305 

10306 

10307 

10308 

10309 

10310 

10311 

10312 

10313 

1031A 

10315 

10316 

10317 

10318 

10319 

10320 

10321 

10322 

10323 

1032A 

10325 

10326 

10327 

10328 

10329 

10330 

10331 

10332 

10333 

1033A 

10335 

10336 

10337 

10338 
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SEQ  0A06 


0A51A3 
0A51AA 
OA51A5 
0A51A6 
0A51A7 
OA5150 
OA5151 
0A5152 
0A5153 
OA515A 
OA5155 
0A5156 
0A5157 
0A5160 
0A5161 


0A5162 
0A5163 
0A516A 
0A5165 
0A5166 
0A5167 


261  17 
261  (7 
261  17 
332  00 
661  01 
621  01 
137  13  0 
200  02  0 
A3A  02  0 
256  00  0 
621  02  0 
A2A  00  0 
A2A  00  0 
256  00  0 
261  17  0 


0  00  000001 

0  00  000000 

0  00  000002 

0  00  0A7061 

0  00  OOOAOO 

0  00  000030 

00  057626 

00  057627 

00  00001 A 

00  000002 

00  000100 

00  000000 

00  000000 

00  000002 

00  000001 


336  00 
25A  00 
6A3  01 
350  00 
603  01 
25A  00 


0  00  0A7061 
0  00  0A5171 
0  00  000200 
0  17  nilli, 
0  00  001200 
0  m   0A520A 


♦     Massbus  device  register  read  routines 

♦Spec  1  tic at ion: 

♦Device  registers  are  read  into  ad  by  setting  up  some  argument 

♦In  ad  and  then  calling  the  correct  routine  with  a  pushj  . 

♦The  routines  have  a  normal  return  and  2  error  returns. 


Eg. 


move 

Go 

Rtnl 

Rtn2 

Rtn3 


ad, too 
rdrg 


;some  argument 

;rae  due  to  Ctrl  buss  timeout 
;rae  other  than  Ctrl  buss  timeout 
;read  was  successful 


♦Ad: 

♦Specify  parity  mode  bit  18 
♦     0  Means  odd  parity 
1  Means  even  parity 

S  software  option  bits 
it  13=0 


♦Specify  software  option  bits  13-1 A 

♦  Bit  13=0      clear  rae's 

♦  Bit  13=1       don't  clear  rae's 

♦  Bit  1A=0       report  rae's 

♦  Bit  1A=1       don't  report  rae's 
♦Specify  register  number  in  bits  0-5 

• 

♦Status: 

♦Upon  completing  a  register  read,  all  36  bits  of  the  dib  reg  (rhIO)  or 

♦Prep  reg  (rh20T  are  returned  in  ad.  the  error  returns  are  taken  if  an  rae  is 

♦Detected  by  the  controller  durig  the  read  operation,  the  conditions 

♦That  cause  the  rae  are  differen  for  the  rhID  than  rh20  and  may  be 

♦Analyzed  based  on  the  status  from  ad. 
••••*•••**•**•*••••*•♦•••*•*•*•••***•*•***••••*•***•••**♦*♦♦♦*♦♦♦♦♦♦♦* 


RDRG: 


PUT 

PUT 

PUT 

SKIPE 

TLO 

TLZ 

DPS 

MOVE 

I  OR 

XCT 

TLZ 

SETA 

SETA 

XCT 

PUT 


1 

0 

2 

RH20FG 

1,(189) 

1,(1B13!1B1A) 

DRIVE, [POINT  3,1 

2,CDATA0  0,1] 

2,MBCN 

2 

2, (IBID 


2 
1 


:Save  ad 
;Save  the  ac 
;Save  the  ac 

Set  the  disable  rae  stop  bit 

Clear  the  software  flag  bits 

17]    ; Include  the  dx20  number  in  bits  15-17 

Get  a  basic  datao 

Include  the  device  code 

Does  a  datao  rh,1 

change  to  datai  rh,1 

RhIO  needs  i/o  buss  delay 

Of  3  U.S. 

Do  a  datai  rh,1 

Save  results  on  the  stack 


; Conditional  rh10/rh20  code  to  test  for  an  rae 


SKIPN  RH20FG 

JRST  RDRGA 

TLCE  1,(1810) 

AOS  -i(P) 

TLNE  1,(1B8I1B10) 

JRST  RDR6B 


.•Complement  and  test  the  tra  bit 
;Bump  rtn  if  tra  did  not  fail 
;Rae=pe+(tra  failure) 
;6ot  an  rae 
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10339 

103AO 

103A1 

103A2 

103A3 

103AA 

103A5 

103A6 

103A7 

103A8 

103A9 

10350 

10351 

10352 

10353 

1035A 

10355 

10356 


SEQ  0A07 


0A5170  25A  GO  0  00  0A5175 


0A5171 
OA5172 
0A5173 
0A517A 


0A5175 
0A5176 
0A5 I 77 
OA5200 
OA5201 
0A5202 
0A5203 


607  01  0  00  002000 
350  00  0  17  77777^ 
603  01  0  00  003600 
25A  00  0  00  0A520A 


JRST    RDR6C-1 

;This  is  rh10  code 

RDRGA:  TLNN    K(1B7)        ;Cbto  ? 

AOS    -A(P)         ;No.  bump  the  return 

TLNE        l,(187I1B8!1B9!l6lO)         ;Rae=cbto+cbpe+dlt^Uc 

JRST         RDRGB 


;This  IS  common  exit  code 


350  00  0  17 

262  17  0  00 

250  01  0  17 

262  17  0  00 

262  17  0  00 

262  17  0  00 

263  17  0  00 


77777^ 
000001 
777776 
000002 
000000 
000001 
000000 


AOS 
RDRGC:  GET 
EXCH 
GET 
GET 
GET 
RTN 


-4(P) 
1 

2 
0 
1 


;No  rae.  bump  the  return 

.•Restore  the  ac 

;Some  stack  adjustment 


;And  take  the  proper  return 
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SEQ  0408 


10357 

10358 

10359 

10360 

10361 

10362 

10363 

10364 

10365 

10366 

10367 

10368 

10369 

10370 

10371 

10372 

10373 

10374 

10375 

10376 

10377 

10378 

10379 

10380 

10381 

10382 

10383 

10384 

10385 

10386 

10387 

10388 

10389 

10390 

10391 

10392 

10393 


045204  200  01  0  17  11111^ 

045205  603  01  0  00  000020 

045206  254  00  0  00  045221 


0  00  047061 
0  00  045215 
0  00  045377 
0  00  004447 
0  00  045361 
0  00  045221 


200  00  0  00  057631 
200  01  0  00  057630 
434  01  0  00  000014 
256  00  0  00  000001 


200  01  0  17  lllll'^ 
603  01  0  00  000010 
254  00  0  00  045176 


045207 

336  00 

045210 

254  00 

045211 

260  17 

045212 

405  01 

045213 

260  17 

045214 

254  00 

045215 
045216 
045217 
045220 


045221 
045222 
045223 

045i:24 
045225 
045226 
045227 
045230 
045231 
045232 
045233 
045234 
045235 


037  00 
200  00 
037  13 
037  00 
03/  00 
135  00 
242  00 
037  16 
037  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
17 
00 
00 
00 
00 
00 
00 
00 
00 


057657 
000000 
000000 
030242 
057671 
057412 
000002 
000003 
030242 
045176 


;Here  because  we  had  an  rae  during  a  register  read  operation 
RDRGB: 


MOVE 
TLNE 
JRST 


U-3(P) 

1,(1813) 

RDR6B1 


;Fetch  original  acl 
;Want  to  clear  the  rae  ?? 
;No.  go  report 


;Rh20/rhlO  conditional  code  for  clearing  rae's 


SKIPN 

JRST 

GO 

AND  I 

GO 

JRST 

RDRGB2:  MOVE 
MOVE 
lOR 
XCT 


RH20FG 

RDRG82 

.CONI         ;Get  current  controller  status 

1JB24!1B27!1B30!7B35   ;Raecl.!mbe!attnen!pichan 


.CONO 
RDRG61 

C54B5!1B6!377] 
UCDATAO  0,0] 
1,MBCN 
1 


; Clear  and  restore 


;Ready  to  clear  all  rae's 
;Get  a  basic  datao 
.'Include  the  device  code 
;Which  clears  the  rae  register 


;See  if  we  want  *"  ''eport  rae  errors 


RDRGBl:  MOVE 
TLNE 
JRST 
PNTMSG 


1,  J(P) 

1,(1814) 

RDRGC 

CASCIZ/ 

RAE  WHILE  READING  A  DEVICE  REGISTER  -  -  DATAI :  /J 

MOVE    (P)  ;Get  the  datai  word 


.-Fetch  original  acl 
.-Want  to  report  ?? 
;No 


PNTHW 

PCRL 

PNTMSG 

LDB 

LSH 

PNTOCS 

PCRL 

JRST 


CASCIZ/RH  DEVICE  CODE  WAS  /J 

[POINT  7,MBCN.9]       ;Get  the  device  code 

2  ;Justif)<  for  printing 

.•Print  it 

;A  crlf 
RDRGC 


DFDXD 
DXCOM 

1039A 

10395 

10396 

10397 

10398 

10399 

1OA00 

10401 

10402 

10403 

10404 

10405 

10406 

10407 

10408 

10409 

10410 

10411 

10412 

10413 

10414 

10415 

10416 

10417 

10418 

10419 

10420 

10421 

10422 

10423 

10424 

10425 

10426 

10427 

10428 

10429 

10430 

10431 

10432 

10433 
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045236 
045237 
045240 
045241 
045242 
045243 
045244 
045245 
045246 
045247 
045250 
045251 

045252 
045253 
045254 
045255 
045256 
045257 
045260 


261  17 
434  01 
671  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 
254  00 


261 

43; 


17 
01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
057675 
000013 
045252 
000001 
057676 
045252 
000001 
057677 
045252 
000001 
057700 


261  17  0 
200  00  0 


434  00 
256  00 
262  17 
262  ~ 


0 
0 
0 

17  0 


263  17 


00  000000 
00  057627 
00  000014 
00  000000 
00  000000 
00  000001 
00  000000 


*  Routines  for  wn'tina  rhlO  inte 

*  There  are  4  internal  regs  that 

*  Call  to  the  proper  subroutine. 

*  Entry  points  are: 

*  Ldcr 

*  Ldiar 

*  Lddbuf 

*  Lodrae 


Arguments  are  passed  in  ad.  b 
As  in  the  rhlO  spec,  the  routi 


* 

*  Eg.    move    acl,arg 

*  Go     lodrae 

*  Return 
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rnal  registers 
can  be  written  into  with  a 


;load  thr  control  reg 
;load  the  interrupt  address  reg 
;load  the  daca  buffer  register 
; load  the  rae  reg 

its  are  defined  exactly 
nes  return  to  calUl  always. 

;get  the  data 

;want  to  load  the  rae  reg 

.•returns  here 


SEQ  0409 


LDCR:  PUT 
I  OR 
TCO 
JRST 

LDIAR:  PUT 
I  OR 
JRST 

LDDBUF:  PUT 
I  OR 
JRST 

LODRAE:  PUT 
lOR 


LDIRC: 


PUT 

MOVE 

I  OR 

XCT 

GET 

GET 

RTN 


1 

l.C40B5!1B6] 

1, DRIVE 

LDIRC 

1 

1.C44B5!1B6] 

LDIRC 

1 

1,C50B5!1B6] 

LDIRC 

1 

1.C54B5!1B6] 


O.CDATAO  OJ] 

O.MBCN 

0 

0 

1 


.'Save  the  ac 

.'Include  reg#  and  load  reg  bit 
.'Include  the  dx20  number 
;To  common  code 


.'Save  the  ac 
.'Build  the  datao 
.'Include  the  device  code 
.'Does  a  datao  rh.l 


.'And  exit 


DFOXD 
DXCOM 

1043A 

10A35 

10436 

10A37 

10A38 

10A39 

10A40 

10AA1 

10AA2 

10AA3 

10AAA 

10AA5 

10AA6 

10AA7 

10AA8 

10AA9 

10A50 

10A51 

10A52 

10A53 

10A5A 

10A55 

10A56 

10A57 

10A58 

10A59 

10A60 

10A61 

10A62 

10A63 

10A6A 

10A65 

10A66 

10A67 

10A68 

10A69 

10A70 

10A71 

10A72 

10A73 

10A7A 

10A75 

10A76 

10A77 

10A78 
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SEQ  0A10 


0A5261 
0A5262 
0A5263 
0A526A 
0A5265 
0A5266 
0A5267 
0A5270 
0A5271 
0A5272 
0A5273 
0A527A 
0A5275 

0A5276 
0A5277 
0A5300 
0A5301 
0A5302 
0A5303 
OA530A 
0A5305 
0A5306 


261  17  0 
200  00  0 
A3A  00  0 


25A  00 
205  01 
25A  00 
205  01 
25A  00 
2u?  01 
25A  00 
205  01 
25A  00 
205  0^ 

26'.  17 
200  00 
A3A  00 
256  00 
621  00 
A2A  00 
256  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  057701 
00  00001 A 
00  0A53OA 
00  5A0000 
00  0A5276 
00  AAOOOO 
00  0A5276 
00  500000 
00  0A5276 
00  AOOOOO 
00  0A5276 
00  7A0000 

00  000000 
00  0576:. 
00  00001 H 
00  000000 
00  000100 
00  000000 
00  000000 
00  000000 
00  000000 


♦Routines  for  reading  rhIO  internal  reaisters 
♦There  are  6  internal  rhIO  registers  tnat  can  be  read 
♦Into  ad  with  a  call  th  the  proper  subroutine,  the  routines 
♦Return  to  calUI  always. 


♦The  entry  points  are: 

♦Rddib 

♦Rdrae 

♦Rdiar 

♦Rddbuf 

♦Rdcr 

♦Rdcbuf 

♦Note:  —  the  channel 

♦  Unlike  the  other 

♦  Of  this  property 

♦  Returned  as  part 


rdiar 


♦Eg.   go 
♦     Return 


;read  the  dib  register 

;read  the  rae  register 

;read  the  interrupt  register 

;read  the  data  buffer  register 

;read  the  transfer  register 

;read  the  channel  buffer  register 

buffer  reg  is  36  data  bits  wide 

registers  in  the  rhIO.  because 

,  tne  register  number  is  not 
of  the  data. 

;read  the  current  interrupt  adr 
; return  here 


RDDIB: 

RDRAE : 

RDIAR: 

RDDBUF : 

RDCR: 

RDCBUF: 

RDIRC1: 


RDIRC2: 


PUT 

MOVE 

I  OR 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

PUT 

MOVE 

I  OR 

XCT 

TLZ 

SETA 

XCT 

GET 

RTN 


O.CDATAI  0,13 

0,M8CN 

RDIRC2 

1,(5AB5) 

RDIRC1 

1,(AAB5) 

RDIRC1 

1,(50B5) 

RDIRC1 

1,(A0B5) 

RDIRC1 

U(7AB5) 


CCDATAO  OJ] 
O^MBCN 

0,(1B11) 


;Save  0 

;A  basic  datai 
.•Include  device  code 
;To  common  code 


0 
0 


;Sa\/e  0 

;6uild  the  datao 

; Include  the  device  code 

;Do  a  datao  rhj 

; Change  datao  to  datai 

;I/o  Buss  delay 

;Does  a  datai  rhJ 

;And  return 
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SEQ  0411 


10479 

10480 

10481 

10482 

10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10493 

10494 

10495 

10496 

10497 

10498 

10499 

10500 

10501 

10502 

10503 

10504 

10505 

10506 

10507 

10508 

10509 

10510 

10511 

10512 

10513 

10514 

10515 

10516 

10517 

10518 

10519 

10520 

10521 

10522 


045307 
045310 
045311 
045312 
045313 
045314 
045315 
045316 
045317 
045320 
045321 
045322 
045323 
045324 

045325 
045326 
045327 
045330 
045331 
045332 
045333 
045334 
045335 


261  17 
434  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 
254  00 
261  17 
43;  01 
254  00 
261  17 
434  01 

261  17 
607  01 
671  01 
200  00 
434  00 
256  00 

262  17 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
057702 
045325 
000001 
057703 
045325 
000001 
057704 
045325 
000001 
057705 
045325 
000001 
057706 

000000 
060000 
000013 
057627 
000014 
000000 
000000 
000001 
000000 


♦Routines  for  wn'tina  rh20  internal  registers 
♦There  are  5  internal  registers  in  the  rh20  that  are 
♦Writeable  with  a  call  to  the  proper  subroutine. 


♦The  entry  points  are: 

♦Ldsbar 

♦Ldstcr 

♦Ldivrg 

•Lddcr 

♦Ldwtrg 


;load  the  secondary  block  addr  register 

;load  the  secondary  transfer  control  register 

;load  the  interrupt  vector  register 

;load  the  diagnostic  control  register 

;load  the  write  register 


♦Arguments  are  passed  in  acl  and  the  bits  are  defined  exactly 
♦As  seen  in  the  rh20  spec. the  routines  return  to  call+1  always. 
• 

♦  Eg.    move    ac1,arg       ;some  argument 

•  Go     ldivrg        ; load  the  interrupt  vector  reg 

*  Return  .-return  here 


LDSBAR:  PUT 
I  OR 
JRST 

LDSTCR:  PUT 
I  OR 
JRST 

LDIVRG:  PUT 
lOR 
JRST 

LDDCR:  PUT 
lOR 
JRST 

LDWTRG:  PUT 
I  OR 


LIRC: 


PUT 

TLNN 

TSO 

MOVE 

I  OR 

XCT 

GET 

GET 

RTN 


1 

1,C70B5I1B6] 

LIRC 

1 

1.C71B5!1B6] 

LIRC 

1 

1,C74B5I1B6] 

LIRC 

1 

1,C77B5I1B6] 

LIRC 

1 

1,C76B5!1B6] 

0 

1,(1B3I1B4) 

1, DRIVE 

O.CDATAO  OJ] 

0,MBCN 

0 

0 

1 


;Save  acl 

.•Include  reg*  and  load  reg  bit 

;To  common  code 


;Save  ac 

;See  if  sbar  o-  stcr 

;Yes.  include  the  dx20  number 

;No.  build  appropriate  datao 

.'Include  the  device  code 

.-Does  a  datao  rh.l 


.•Return 
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SEQ  0412 


10523 

10524 

10525 

10526 

10527 

10528 

10529 

10530 

10531 

10532 

10533 

10534 

10535 

10536 

10537 

10538 

10539 

10540 

10541 

10542 

10543 

10544 

10545 

10546 

10547 

10548 

10549 

10550 

10551 

10552 

10553 

10554 

10555 

10556 

10557 

10558 

10559 

10560 

10561 

10562 

10563 


045336 
045337 
045340 
045341 
045342 
045343 
045344 
045345 
045346 
045347 
045350 

045351 
045352 
045353 
045354 
045355 
045356 
045357 
045360 


205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
20S  01 
!:>'  00 
205  01 


261 
200 
434 
256 
621 
256 
262 
263 


17 
00 
00 
00 
00 
00 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


0  00 


700000 
045351 
710000 
045351 
720000 
043351 
730000 
045351 
740000 
045351 
750000 

000000 
057627 
000014 
000000 
000100 
000000 
000000 
000000 


♦Routines  for  readina  the  rh20  internal 
♦There  are  6  internal  registers  within 
♦Read  by  means  of  a  call  to  the  proper 
♦The  registers  are  read  into  ad  andthe 
♦CalUI  always. 
* 

The  entry  points  are: 

Rdsbar 

Rdstcr 

Rdpbar 

Rdptcr 

Rdivrg 

Rdrdrg 


registers 

the  rh20  that  can  be 
subroutine. 

routines  return  to 


;read  the  secondary  block  addr  reg 

;read  the  secondary  xfer  ctrl  reg 

;read  the  primary  block  addr  reg 

;read  the  primary  xfer  ctrl  reg 

;read  the  interrupt  vector  reg 

;read  the  read  register 


The  bits  are  defined  exactly  as  in  the  rh20  spec 


Eg. 


8? 


rdivrg 


♦      ^     Return 


;read  current  interrupt  address 
; address  is  in  ad 


RDSBAR: 
RDSTCR: 
RDPBAR : 
RDPTCR: 
RDIVRG: 
RDRDRG: 
RIRC: 


MOVSI  1,(70B5) 

JRST  RIRC 

MOVSI  1,(71B5) 

JRST  RIRC 

MOVSI  1,(72B5) 

JRST  RIRC 

MOVSI  1,(73B5) 

JRST  RIRC 

MOVSI  1,(74B5) 

JRST  RIRC 

MOVSI  1,(7585) 

PUT  0 

MOVE  0,CDATAO  OJ] 

lOR  0,MBCN 

XCT  0 

TLZ  0,(1811) 

XCT  0 

GET  0 

RTN 


;Fetch  the  register  number 


;Save  acO 

;Get  a  basic  datao 
.•Include  the  device  code 
;Does  a  datao  rhj 
; Change  to  a  datai 
;Does  a  datai  rhJ 
.-Restore  the  ac 
;And  exit 
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SEQ  0413 


10564 

10565 

10566 

10567 

10568 

10569 

10570 

10571 

10572 

10573 

10574 

10575 

10576 

10577 

10578 

10579 

10580 

10581 

10582 

10583 

10584 

10585 

10586 

10587 

10588 

10589 

10590 

10591 

10592 

10593 

10594 

10595 

10596 

10597 

10598 

10599 

10600 

10601 

10602 

10603 

10604 

10605 

10606 

10607 

10608 

10609 

10610 

10611 

10612 

10613 

10614 

10615 

10616 

10617 

10618 


045361 
045362 
045363 
045364 
045365 
045366 
045367 
045370 
045371 
045372 
045373 
045374 
045375 
045376 

045377 
045400 
045401 
045402 

045403 
045404 
045405 

045406 
045407 
0454''0 
045411 


261  17 
434  01 
434  01 
6vz  01 
254  00 

261  17 
510  01 
660  01 
256  00 

262  17 
620  01 
256  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
057707 
000014 
002000 
045374 
000001 
000001 
002000 
000001 
000001 
002000 
000001 
000001 
000000 


200  01  0  00  057710 
434  01  0  00  000014 
256  00  0  00  000001 
263  17  0  00  000000 

261  17  0  00  000001 
434  01  0  00  057711 
254  00  0  00  045410 

261  17  0  00  000001 
434  01  0  00  057712 
434  01  0  00  000014 
256  00  0  00  000001 


*     Controller  cono,com',conso,corisz  (i7o)  routines  specifications: 


* 
It 

it 

* 
* 
* 


move 

Go 

Return 

Go 
Return 

Move 
Go 

Return-1 
Return-2 


ad, too 
.cono 


;so/ne  conditions  for 

;the  call 

;cono  has  been  completed 


cono 


.com 

ac1,foo 
.consz 


:want 
;coni 


to  do  a 
data  is 


;a  mask  for  a 
;the  call  (no 
;not  all  bits 
;all  bits  are 


com 
in  ac1 

consz 
status 
zero 
zero 


is  returned) 


Move   ac1,foo 
Go     .conso 
Return-1 
Return-2 


:a  mask  for  a  conso 

;the  call  (no  conditions  are  returned) 

;no  bits  are  one 

;at  least  one  bit  is  a  one 


*»»*»♦*♦•♦•♦•»♦•♦♦**•••***♦*•*******•******•*••*•*♦*•**•♦*•*•********* 


.CONO:  PUT 
I  OR 
I  OR 
TRNN 
JRST 
PUT 
HLLZ 
TRO 
XCT 
GET 
TRZ 

CNOCMN:  XCT 
GET 
RTN 


•CONI: 


MOVE 
I  OR 
XCT 
RTN 


CONSZ:  PUT 
I  OR 
JRST 

CONSO:  PUT 
I  OR 
lOR 
XCT 


1 

UCCONO] 

1,MBCN 

1JB25 

CNOCMN 

1 

1,1 

1,1825 

1 

1 

1,1825 

1 

1 


1,[C0NI  0,1] 

1,M8CN 

1 


1 

1, [CONSZ] 

.CONSO+2 

1 

1, [CONSO] 

1 ,M8CN 


Save  ad 

Include  the  opcode 

Include  the  device  code 

Is  rhctr  desired  ? 

No 

Yes.  save  the  instruction 

Clear  all  right  side  bits 

Set  the  rhclr  bit 

Execute  the  cono 


;Now  reset  the  rhclr  bit 
;Do  the  cono 
.-Restore  the  ac 
;And  return 

;Get  the  opcode 
.•Include  the  device  code 
;Do  the  i/o 
;And  return 

.-Save  the  ac 
.•Include  the  opcode 
;To  some  common  code 

.-Save  the  ac 
.•Include  the  opcode 
.'Include, device  code 

•Dn  fho  1 /n 


;Do  the  i/o 
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SEO  OAK 


0  0 


?? 


10619  0A5A12  33A  00 

10620  0A5413  350  00  ^ 

10621  0A5AU  262  17  0  00 

10622  0A5415  263  17  0  00 


mm 

SKI  PA 
AOS 

-1(P) 

000001 

GET 

1 

000000 

RTN 

;Rtn-1.  conditions 
;Rtn-c.  conditions 
.-Restore  the  ac 
;Take  the  propper  return 


not  satisfied 
satisfied 
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SEQ  0A15 


10623 

1062A 

10625 

10626 

10627 

10628 

10629 

10630 

10631 

10632 

10633 

1063A 

10635 

10636 

10637 

10638 

10639 

106A0 

10641 

106A2 

1064  3 

106AA 

106A5 

10646 

10647 

10648 

10649 

10650 

10651 

10652 

10653 

10654 

10655 

10656 

10657 

10658 

10659 

10660 

10661 

10662 

10663 

10664 

10665 

10666 

10667 

10668 

10669 

10670 

10671 

10672 

10673 

10674 

10675 

10676 

10677 


SUBTTL  DATA  CHANNEL  SUBROUTINES 


*  Routines  to  interface  with  a  channel  . 

*  There  are  5  routines  available. for  interfacing  with 


A  data  channel  whose  characteristic  differences 
Become  transparent  to  the  user. 


Name 

Chinit 
Genccw 
GetloQ 
Logpnt 
Ccwpnt 


function 

initialize,  re-sync  hardware  and  software 
generate  a  list  of  ccw's  in  core 
snapshot  logout  data  to  a  core  buffer  area 
print  channel  lo'jout  data 
print  a  ccw  list  from  memory 


Notes  on  initial  control  word  addr. 

With  each  controller  is  an  associated  channel  *. 

The  channel  routines  default  to  the  following  (exec  mode) 

Initial  control  word  addresses  for  each  of  the  channels. 


Type   dev.  code 


char.  # 


* 

* 
* 

♦  The  rh20  zero  fill  words  are  located  at  ept  locations 

♦  060  Thru  063  these  locations  are  set  to  zero 

♦  By  "chinit"  if  running  in  exec  mode 

* 

♦  Channel  initialization  routine 

♦  Specification: 

♦  This  routine  synchronizes  the  software  and  hardware  chan  logic. 

* 
* 

* 


Rh20 
Rh20 
Rh20 
Rh20 
Rh20 
Rh20 
Rh20 
Rh20 


540 
544 
550 
554 
560 
564 
570 
574 


? 

4 
5 


icw-adr 

OOO(icwaO) 
0U4(icwa1) 
010(icwa2) 
014(icwa3) 
020(icwa4) 
024(icwa5) 
030(icwa6) 
034(icwa7) 


Eg. 


move 

Go 

Return 


l.argl 
chinit 


.-setup  acl 

;call  the  routine 

;icwa  is  in  acl 


Acl : 

Specify  (acl)r  start  addr  of  channel  command  buffer 
Specify  (acl) I  size  of  the  channel  command  buffer 
Note  -   for  figuring  out  the  size  of  the  command  worj 

Buffer  It  should  be  noted  that  the  genccw  routine 

Will  transfer  a  maximum  of  512.  words  per  ccw. 

5  Additional  words  should  be  allowed  for  as  overhead 


♦  1.  Sets  up  the  intiial  control  word  with  the  proper  jump 

♦  2.  Sets  up  various  software  params  for  channel  routines 


DFDXD 
DXCOM 

10678 

10679 

10680 

10681 

10682 

10683 

1068A 

10685 

10686 

10687 

10688 

10689 

10690 

10691 

10692 

10693 

1069A 

10695 

10696 

10697 

10698 

10699 

10700 

10701 

10702 

10703 

1070A 

10705 

10706 

10707 

10708 

10709 

10710 

10711 
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SEQ  0416 


045416 
045417 
045420 
045421 
045422 
045423 
045424 
045425 
045426 
045427 
045430 
045431 
045432 
045433 
045434 


17 
17 


261 
261 
554  02 
275  02 
270  02 
504  01 

261  17 
260  17 
200  02 

262  17 
202  01 
552  01 
200  02 
270  02 
202  02 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
0  02 
0  02 
0  00 
0  17 


000001 
000002 
000001 
000001 
000001 
000002 
000001 
046601 
000001 
000001 
047110 
047065 
047122 
047063 
mill 


045435 
045436 
045437 
045440 
045441 
045442 
045443 
045444 
045445 
045446 
045447 
045450 
045451 
045452 


332  00 
254  00 
550  01 
434  01 
202  01 
402  00 
402  00 
402  00 
402  00 
40?  00 
4ui  00 
262  17 

262  17 

263  17 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
02 
02 
02 
00 
00 
00 
00 
00 


0  00 
00 


030037 
045450 
000001 
047064 
000000 
000001 
000002 
000060 
000061 
000062 
000063 
000002 
000001 
000000 


CHINIT:  PUT 
PUT 
HLRZ 
SUBI 
ADD 
HRL 
PUT 
60 

MOVE 
GET 
MOVEM 
HRRZM 
MOVE 
ADD 
MOVEM 


1 
2 

CHSEL 

1,CADTBL(2) 
1,SCLP(2) 
2,ICWA0(2) 
2,CBASE 
2,-1 (P) 


;Save  ad 
;Save  ac2 
;Make  ac2/ 


final  adr,, start  adr 


;Sa\/e  ac1 

;Get  chan  #  to  ad 

;Now  to  ac2 

'Restore  acl 

;Save  characteristics  of  ccw  buffer 

;Set  up  software  cmd  list  pointer 

;Ac2=icwa 

.'Causes  paging  to  occur 

.'Becomes  ad  on  return 


*  Clear  2nd  and  3rd  words  of  logout  area  if  in  exec  mode 

*  And  place  a  jump  to  command  list  in  the  ept. 

*  And  clear  the  zero  fill  locations  of  the  ept. 

;Skip  if  we're  in  exec  mode 
.'Jump  cause  we* re  in  user  mode 
.'Ac  1=0., buffer  addr 
.'Makes  a  jump  ccw 
.'Makes  icw  a  jump  to  ccw  buffer 
.'Zero  the  term  control  wd 
;2Nd  and  3rd  wds  now  cleared 
.'Clear  4  zero  fill  locations 


CHIX: 


SKIPE 

USER 

JRST 

CHIX 

HRRZ 

M 

I  OR 

1.JMPWD 

MOVEM 

1.(2) 

SETZM 

1(2) 

SETZM 

im 

SETZM 

60 

SETZM 

61 

SETZM 

62 

SETZM 

63 

GET 

2 

GET 

1 

RTN 

DFDXD 
OXCOM 

10712 

10713 

10714 

10715 

10716 

10717 

10718 

10719 

10720 

10721 

10722 

10723 

10724 

10725 

10726 

10727 

10728 

10729 

10730 

10731 

10732 

10733 

10734 

10735 

10736 

10737 

10738 

10739 

10740 

10741 

10742 

10743 

10744 

10745 

10746 

10747 

10748 

10749 

10750 

10751 

10752 

10753 

10754 

10755 

10756 

10757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 
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SEQ  0417 


* 

* 
* 

t 
• 

* 
* 

* 

* 
* 

* 


Channel  command  word  generator 

Specification: 

This  routine  takes  a  pdp-10  word  count  and  a  core  address  and  translates 

It  to  a  list  of  ccw's  In  a  command  ring  buffer  defined  at  Init  time. 

It  returns  the  starting  address  of  the  list  within  the  ring,  and 

The  M  of  ccw's  for  this  transfer. 


This  routine  has  the  following  properties: 

-  A  maximum  of  512.  words  per  ccw  Is  allowed  (1  page). 

-  No  ccw  will  transfer  accross  a  page  boundrv 

"  The  address  passed  to  this  routine  Is  the  ist  addr  In 
User  buffer  that  data  will  be  transferred  1ntn  or  out 

-  Buffers  need  not  be  page  aligned  In  user  program 


the 
of. 


'"all  seq: 
Move    ?c3.arg3 
Move    ac2,arg2 
Move    acl^argl 
Go     genccw 
Return 


;e  zero  fill  -specifier 
;pos  or  neg  word  count 
;an  addr  up  to  22   bits 
;bu1ld  the  command  list 
.•return?  here 


Acl: 

Contains  a  22   bit  address  specifying  where  transfer  is  to  start. 


? 


to  or 
build 


from  the  device 
a  reverse  ccw 


Ac2: 

Pos  or  neg  word  count  for  #  of  words  to 
A  neg  word  count  will  cause  the  routine 
List  (core  addr  decrements). 

Ac3: 

Not  meaningfull  except  for  disks,  other  devices  should  zero  ac3. 

In  user  mode  under  topslO.  this  routine  will  c  ear  your   ac3  because  zero 

Fill  is  not  allowed  with  topslO  diag  uuo's.  a  positive,  non-zero,  word 

Count  will  cause  the  routine  to  assume  that  zero  fill  command  words  are 

Desired  in  the  list  and  the  appropriate  zero  fill  words  will  be  generated 

Essentially,  zero  fill  says  that  the  size  of  the  xfer  is  an  even  modulo 

Of  the  value  of  ac3.  extra  words  are  paddeo  with  zero's  supplied  by  the 

Channel  on  a  device  write  and  extra  words  are  thrown  away  by  the  channel 

On  a  device  read. 

The  following  method  is  used  to  calculate  the  number  of  words  of  fill: 
Filwds  =  ac3  -  x  where:  x  is  the  remainder  of  (abs  val  ac2)/ac3 

Return: 

On  return  ac1  will  contain  the  following:- 

(Acl)l  =  #  of  command  words  generated  by  the  routine 

(AcDr  =  points  to  fhe  first  word  in  the  List 


Functions  of  the  ac's  UbcJ 
Ac   function 


in  genccw  routine 


0  Holds  remaining  size  in  words 

1  Ccw's  are  manufactured  in  this  ac 

2  Holds  the  current  core  adr  at  any 


time 


^tmmmtimmm' 


t^miimiimaMimtmamii^  itgiii.|nii 
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10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10779 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 

10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

10796 

10797 

10798 

10799 

10800 

10801 

10802 

10803 

10804 

10805 

10806 

10807 

1C308 

10809 

10810 

10811 

10812 

10813 

10814 

10815 

10816 

10817 

10818 

10819 

10820 

10821 


045453 
045454 
045455 
045456 
045457 
045460 
045461 


045462 
045463 
045464 
045465 
045466 
045467 
045470 
045471 
045472 
045473 
045474 
045475 
045476 


336  00 
254  00 
332  00 
254  00 
402  00 
260  17 
263  17 


0  00  030037 
0  00  045462 
0  00  030516 
0  00  045462 
0  00  000003 
0  00  r ^6407 
0  00  jOOOOO 


570  02  0 
261  17  0 


261 
261 
261 
261 
261 
261 


17 
17 
17 
17 
17 
17 


261  17 
261  17 


261 
261 


7 

17 
17 


00  000002 
00  065246 
0  00  000010 
0  00  000011 
0  00  000012 
0  00  000000 
0  00  000001 
0  00  000002 
0  00  000003 
0  00  000004 
0  00  000005 
0  00  000006 
0  00  000007 


045477 
045500 
045501 
045502 
045503 


045504 
045505 
045506 
045507 
045510 


200  00  0  00  OCOOO? 
402  00  0  00  000007 
525  00  0  00  C45504 
476  00  0  00  000007 
213  00  0  00  000000 


402  00  0  00  065246 
322  03  0  00  045524 
200  11  0  00  000000 
332  00  0  00  000011 
254  00  0  00  045517 


*  3  Holds  the  loaical  channel  number  (0-7) 

*  4  Holds  current  software  dp 

*  5  Holds  last  avail  buffer  addr 

*  6  Holds  start  adr  of  ccw  list,,/i^  of  wds  in  list 

*  ?  Holds  the  read  reverse  flag 

*  10  A  scratch  ac 

*  11  A  scratch  ac 

*  12  A  scratch  ac 


GENCCU:  SKIPN  USER 

JRST  GENGO 

SKIPE  MONTYP 

JRST  GENGO 

SET2M  3 

GO  CHP10 
RTN 


;In  user  mode  ? 

:No.  skip  this  special  code 

; Tops 10  or  tops2D  ? 

;Tops20...  do  normal  code. 

.-Clear  users  ac3...2ero  fill  is  illegal 

;Bu''ld  a  special  ccw  list  for  topslO 

;Get  out.  where  done. 


;*  Here  for  either  exec  mode  or  user  mode  under  tops20 


GENGO: 


HRRE 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 


2.2 

FILUDS# 

10 

11 

12 

0 

1 

2 

3 

4 

5 

6 

7 


; Extend  sign  in  case  he  used  immediate  mode 
;Must  preserve  for  re-entrant  possibility 
;Save  ac*s 


Set  up  read  re\/erse 
Will  be  lised  aS  the 


MOVE 
SETZM 
JV>   "GE 
SETOM 
MOVNS 


0,2 

7 

O.CZF 

0,0 


flag  and  take  the  absolute  value  of  size  which 
word  counc  ... 

;G8t  wc  to  acO  where  its  needed  later 
.•AssL-ne  forward  ccw  list 
;Jump  if  list  was  positive 
;Set  flag  for  reverse  ccw  list 
.'Makes  the  word  count  positive 


Calculate  the  nurnber  of  ?ero  fill  words  required  (if  any) 


CZF: 


SETZM 

JUMPE 

MOVE 

SKIPE 

JRST 


FILWDS 

3,ACSET 

ll.O 

11 

CZFD 


.•Assume  no  zero  fill  required 

.-Jump  if  not  doing  zero  fill 

;Get  '♦•wc  to  acll 

;Is  the  numerator  =  0  ? 

;No.  proceed  with  divide  operation 


;*  Here  because  the  users  wc=0  and  must  now  check  for  nnd  set  up  for  the 
;♦  Possibility  that  he  wants  to  transfer  no  words  to  remory  but  instead 
;♦  Do  throw  away  operations  using  zero  fill  only. 
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10822 

10823 

10824 

10825 

10826 

10827 

10828 

10829 

10830 

10831 

10832 

10833 

10834 

10835 

10836 

10837 

10838 

10839 

10840 

10841 

10842 

10843 

10844 

10845 

10846 

10847 

10848 

10849 

1O850 

10851 

10852 

10853 

10854 

10855 

10856 

10857 

10858 

10859 

10860 

10861 

10862 

10863 

10864 

10865 

10866 

10867 

10868 

10869 

iop:o 

10871 
10872 
10873 
10874 


045511 
045512 
045513 
045514 
045515 
045516 


336  00 
037  15 
202  03 
200  00 
402  00 
254  00 


0  00  000003 
0  00  000004 
0  00  065246 
0  00  000003 
0  00  000002 
0  00  045525 


045517 
045520 
045521 
045522 
045523 


045524 
045525 
045526 
045527 
045530 
045531 


230  11  0  00  000003 
322  12  0  00  045524 
200  11  0  00  000003 
274  11  0  00  000012 
202  11  0  00  065246 


200  02 
260  17 
200  03 
200  04 
554  05 
514  06 


0  17  llllll 
0  00  046601 
0  00  000001 
0  03  047065 
0  03  047110 
0  00  000004 


045532  260  17  1  07  045555 


045533 
045534 
045535 
045536 
045537 
045540 
045541 
045542 
045543 
045544 
045545 
045546 
045547 
045550 
045551 
045552 
045553 


045554 
045555 


202 
206 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
332 
260 
263 


04 
06 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 

?9 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


03  047065 
17  llllll 
00  000007 
00  000006 
00  000005 
00  000004 
00  000003 
00  000002 
00  000001 
00  000000 
00  000012 
00  000011 
00  000010 
00  065246 
00  030037 
00  046261 
00  000000 


000000  045606 
000000  045556 


SKIPN 

FATAL 

MOVEM 

MOVE 

SETZM 

JRST 


3,FILWDS 

V 

ACSET1 


;Were  both  mc  and  zero  fill  spec  =  0  ? 

;Yes...  pgm  bug...  fatal... 

;Ye5.  force  remainder  =  divisor 

;Use  zero  fill  spec  as  wc 

;Set  core  addr=0 

;Go  of  and  set  up  rest  of  ac's 


;*  This  calculates  the  number  of  fill  words  (if  any)  when  there  is  also 
;*  Some  words  being  transferred,  the  users  wc  not  0. 


CZFD: 


IDIV 

JUMPE 

MOVE 

SUB 

MOVEM 


11,3 

12,ACSET 

11,3 

11J2 

IKFILWDS 


•'Divide  to  get  remainder  in  ac12 
;No  fill  words  if  remainder  is  zero 
;6et  zero  fill  specifier  to  ac'il 
.•Subtract  remainder  to  get  fill  count 
:Now  have  the  number  of  zero  fill  words 


,♦  Set  up  the  rest  of  the  ac's  for  use  by  this  routine  and  those  it  calls 


ACSET:  MOVE 
ACSET1:  GO 
MOVE 
MOVE 
HLRZ 
HRLZ 


2.-6(P) 

CHSEL 

3J 

4.SCLP(3) 

5.CADTBL(3) 

6.4 


:Gets  the  core  address 

:Get  chan  #  to  ac1 

;Now  to  ac3 

;Gets  software  dp 

;Gets  final  buffer  addr 

;Start  of  ccw  list..*  of  words 


;*  Check  direction  of  transfer  and  branch  to  proper  ccw  builder  routine 

GO     aGRIND(7)      ; Ac 7=0  for  fwd  and  -1  for  reverse 
;*  Done  with  the  list,  time  to  clean  up  and  exit. 


LSTDON:  MOVEM 
MOVSM 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
SKIPE 
GO 
RTN 


4.SCLP(3) 
6.-6(P) 


t 


.'Save  updated  software  dp. 
.'So  we  can  pass  back  to  user 
.'Restore  ac's 


II 

FILUDS 
USER 
CHP20 


.'Restore  zero  fill  count 
.'Skip  if  are  not  we  in  user  mode 
.'Tops20...  build  diag  ccw  list  .< 
.'And  then  exit. 


;*  This  is  the  dispatch  table  to  the  proper  ccw  builder 


GRINDR 
GRIND:  GRINDF 


.'Pointer  to  reverse  ccw  builder 
.'Pointer  to  forward  ccw  builder 
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10875 

10876 

10877 

10878 

10879 

10880 

10881 

10882 

10883 

10884 

10885 

10886 

10887 

10888 

10889 

10890 

10891 

10892 

10893 

10894 

10895 

10896 

10897 

10898 

10899 

10900 

10901 

10902 

10903 

10904 

10905 

10906 

10907 

10908 

10909 

10910 

10911 

10912 

10913 

10914 

10915 

10916 

10917 

10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 

10928 


OA5556     552  02  0  00  000001 


045557 
045560 
045561 
045562 


045563 
0A5564 
045565 
0A5566 
045567 
OA5570 
045571 


045572 
045573 
045574 
045575 
045576 
045577 
045600 
045601 
045602 


045603 
045604 
045605 


135  11  0  00  057713 
201  07  0  00  001000 
322  11  0  00  045563 
274  07  0  00  000011 


317 

**  - 

137 
274 
322 
270 
254 


00 
00 
07 
00 
02 
02 
00 


137  00 
322  02 
336  00 
254  00 
200  00 
402  00 
254  00 
661  01 
402  00 


0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000007 
045572 
057714 
000007 
045571 
000007 
045603 


057714 
045601 
065246 
045601 
065246 
000002 
045603 
200000 
000000 


260  17  Q  00  045642 
327  00  0  00  045556 
263  17  0  00  000000 


*  Subroutine  grindf  builds  a  forward  transfer  ccw  list 

*  This  subroutine  is  called  from  genccw  and  uses  the  values  already  in  ac's 

*  Functions  of  the  ac's  used  in  grindf  routine 

*  Ac   function 


*  — 

*  0 

*  1 

*  2 

*  3 

*  4 

*  5 

*  6 

*  7 

*  10 

*  11 

GRINDF:  HRRZM   2 J  ; Current  addr  goes  into  ccw(r) 

;*  Code  to  set  hzl   to  nunber  of  words  that  remain  on  the  page 


Holds  remaining  size  in  words 

Ccw's  are  manufactured  in  this  ac 

Holds  the  current  core  adr  at  anv  time 

Holds  the  logical  channel  number  (0-7) 

Holds  current  software  dp 

Holds  last  avail  buffer  addr 

Holds  start  adr  of  ccw  list««#  of  wds  in  list 

No  longer  needed  by  genccw  and  may  be  used  as  a  scratch  ac 

A  scratch  ac 

A  scratch  ac 


LDB 
MOVE  I 


11-CPOINT  9,2,35] 
7/D512 


;6et  the  low  order  9  bits  of  address 


..w...«  ..  ..^.w       ;Assume  a  full  page  remains 

JUMPE  11.UCCHK      .-Page  aligned,  full  page  left. 

SUB  7J1         ;Not  aligned,  calculate  size  that  remains 

;*  See  if  words  to  go  will  fit  in  this  ccw  and  process  accordingly 

WCCHK:  CAMG  0,7  ;Will  wc  fit  into  current  space  ? 

JRST  UFIT  'Yes 

DPB  7, [POINT  11,1,135      ;No.  use  ac7  for  ccw(l) 

SUB  0,7  ;Decrement  wc  b^f  amount  just  used 

JUMPE  2,. +2        .-Doing  a  zero  fill  ccw  right  now  ? 

ADD  2 J  :No.  adjust  addr  by  value  of  ac7. 

JRST  STRE         ;And  off  to  common  code 

:*  Here  because  number  of  wds  left  will  fit  in  the  remaining  space 

WFIT:   DPB  0,CPOINT  11,1,133      ;Put  wc  into  ccw(l) 

JUMPE  2,WFIT1       ;Jump  if  we're  doing  zero  fill 

SKIPN  FILWDS        ;No  zero  fill  yet.  any  to  follow  ? 

JRST  UFIT1         ;No.  then  this  is  last  ccw 

MOVE  0, FILWDS      ;Yes.  get  count  for  zero  fill  words 

SET2M  2  ;Zero  Till  uses  an  address  of  0 

JRST  STRE         ;Off  to  common  code 

WFIT1:  TLO  1,(1B1)       ;Sets  the  last  transfer  bit  in  the  ccw 

SETZM  0  ;No  more  words.  wc=0 

;♦  Store  ccw  from  ad  in  buffer,  see  if  done  and  branch  accordingly 

STRE: 


60 

jr  ■  3 

RlN 


ccwsr 

0, GRINDF 


;Puts  ccw  in  buffer 

:Not  done.  loop. 

:Done  exit  ...  ac*s  are  up  to  date. 
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10929 

10930 

10931 

10932 

10933 

10934 

10935 

10936 

10937 

10938 

10939 

10940 

10941 

10942 

10943 

10944 

10945 

10946 

10947 

10948 

10949 

10950 

10951 

10952 

10953 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10%1 

10962 

10963 

10964 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

10972 

10073 

109/'<» 

10975 

10976 

10977 

10978 

10979 

10980 

10981 

10982 

10983 


045606    552  02  0  00  000001 


045607 
045610 
04561 1 
045612 
045613 
045614 


045615 
045616 
04561 7 
045620 
045621 
045622 
045623 


045624 
045625 
045626 
045627 
U<i3630 
045631 
045632 
045633 
045634 


135  11  0  00  057713 
201  07  0  00  001000 
322  02  0  00  045615 
306  11  0  00  000777 
254  00  0  00  045615 
350  07  0  00  000011 


317  00 
254  00 
137  07 
274  00 
322  02 
274  02 
254  00 


137  00 
322  02 
336  00 
254  00 
200  00 
402  00 
254  00 
661  01 
402  00 


0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000007 
045624 
057714 
000007 
045623 
000007 
045635 


057714 
045633 
065246 
045633 
065246 
000002 
045635 
200000 
000000 


045635  612  01-  0  OC  056076 


*  Subroutine  gn'ndr  -  builds  a  reverse  transfer  ccw  list 

*  This  subroutine  is  called  from  genccw  and  uses  the  values  already  in  ac's 
5f  the  ac's  used  in  grindr  routine 


Functions  o1 
Ac   function 


0  Holds  remainina  size  in  words 

1  Ccw's  are  manufactured  in  this  ac 

2  Holds  the  current  core  adr  at  any  time 

3  Holds  the  loaical  channel  number  (0-7) 

4  Holds  current  software  dp 

5  Holds  last  avail  buffer  addr 

6  Holds  start  adr  of  ccw  list«»#  of  wds  in  list 

7  No  longer  needed  by  genccw  and  may  be  used  as  a  scratch  ac 

10  A  scratch  ac 

11  A  scratch  ac 

GRINDR:  HRRZM   2 J  .'Current  addr  goes  into  ccw(r) 

;*  Code  to  set  ac3  to  number  of  words  that  remain  on  the  page 

LDB  ll.CPOINT  9.2.35J      ;6et  the  low  order  9  bits  of  address 

MOVEI  7«''D512       : Assume  a  full  page  remains 

JUMPE  2,.WCCHIC      ;Full  page  per  ccw  if  doing  zero  fill 

CAIN  11,777        ;Skip  if  buffer  is  not  page  aligned 

JRST  .UCCHK        ;Buffer  is  page  aligned,  lull  page  left. 

AOS  7J1         ;Size  left=adr(xxx)+l.  get  also  to  ac7. 

;*  See  if  words  to  go  will  fit  in  this  ccw  and  process  accordingly 


.UrCHK:  CAM6 
JRST 
DP6 
SUB 
JUMPE 
SUB 
JRST 


0,7  ;Will  wc  fit  into  current  space  ? 

UF IT  'Yes 

7. [POINT  11J  J3i      ;No.  use  ac7  for  ccw(l) 

0,7  .'Decrement  wc  by  amount  just  used 

2, .-^2  ;Doing  a  zero  fill  ccw  right  now  ? 

2^7  ;No.  adjust  addr  by  value  of  ac3. 

.STRE  ;And  off  to  common  code 


;♦  Here  because  number  of  wds  left  will  fit  in  the  remaining  space 

.WFIT:  DPB  0, [POINT  11JJ3]      ;Put  wc  into  ccw(l) 

JUMPE  2..WFIT1       ;Jump  if  we're  doing  zero  fill 

SKIPN  FILWDS        ;No  zero  fill  yet.  any  to  follow  ? 

JRST  .WFITl        -No.  then  this  is  last  ccw 

MOVE  0, FILWDS      ;Yes.  get  count  for  zero  fill  words 

SETZM  2  ;Zero  Till  uses  an  address  of  0 

JRST  .STRE         ;Off  to  common  code 

.WFIT1:  TLO  I.CIBI)       ;Sets  the  last  transfer  bit  in  the  ccw 

SETZM  0  ;No  more  words.  wc=0 

;♦  Set  reverse  xfer  bit  only  if  not  doing  zero  fill 

;*  Store  ccw  from  acl  in  buffer,  see  if  done  and  branch  accordingly 

.STRE:  TDNE  ].n7,J777772     ;Skip  if  22   bit  addr  field  is  all  O's 


"1 
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10984  045636  661  01  0  00  100000 

10985  045637  260  17  0  00  045642 

10986  045640  327  00  0  00  045606 

10987  045641  263  17  0  00  000000 


TLO  1,(1B2) 

GO  CCWST 

JUMPG  O.GRINDR 
RTN 


;Set  reverse  transfer  bit 
;Puts  ccw  in  buffer 
;Not  done.  loop. 
;Done  exit  ...  ac's  are  up 


to  date, 
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SEQ  0423 


10988 
10989 
10990 
10991 
10992 
10993 
10994 
10995 
10996 
10997 
10998 
10999 
11000 
11001 
11002 
11003 
11004 
11005 
11006 
11007 
11008 
11009 
11010 
11011 
11012 
11013 


♦  Rh20  ccw  store  routine 

*  1.  Puts  c(ac1)  In  ccw  buffer 

*  2.  Does  buffer  management 

♦  3.  Counts  each  ccw  entered 


r     The  ccw  is  returned  an  ac1  as  received  except  for 
The  "op-data"  bit  (bit-0)  which  is  set 


045642 
045643 
045644 
045645 
045646 
045647 
045650 
045651 
045652 
045653 
045654 
045655 
045656 
045657 
045660 
045661 


261  17  0 
312  04  0 
254  00  0 
200  01  0 
540  01  0 
202  01  0 
350  00  0 
550  04  0 

262  17  0 


661  01 
332  00 
270  01 
202  01 
271 
271 


04 
06 


263  17 


0 
0 
0 
0 
0 
0 
0 


00  000001 
00  000005 
00  045652 
00  047064 

03  047110 

04  000000 
00  000006 
00  000001 
00  000001 
00  400000 
00  065234 
00  065314 
04  000000 
00  000001 
00  000001 
00  000000 


CCWST: 


CCWST1 


PUT 

CAME 

JRST 

MOVE 

HRR 

MOVEM 

AOS 

HRRZ 

GET 

TLO 

SKIPE 

ADD 

MOVEM 

ADD  I 

ADD  I 

RTN 


1 

CCWST1 

UMPUD 

1,CADTBL(3) 

1,(4) 

6 

I-(IBO) 

DFDXEF 

1,REL0C 

1,(4) 

4,1 

6,1 


Save  ac1 

Are  we  at  last  buffer  location  ? 

No.  go  store  the  word 

Yes.  build  a  jump  ccw 

Include  start  adr  of  buffer 

Put  in  the  last  buffer  loc 

Count  the  entry 

Reset  the  dp  to  start  of  buffer 

Recover  original  ccw 

Set  op-data  bit 

IF  DFDXE,  DO  NEXT  INTRUCTION 

Put  in  the  buffer 
Update  counter/pointer 


;And  exit 
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11014 

11015 

11016 

11017 

11018 

11019 

11020 

11021 

11022 

11023 

1102^ 

11025 

11026 

11027 

11028 

11029 

11030 

11031 

11032 

11033 

1103A 

11035 

11036 

11037 

11038 

11039 

110A0 

110A1 

11 042 

11043 

11044 

11045 

11046 

11047 

11048 

11049 

11050 

11051 

11052 

11053 

11054 

11055 

11056 

11057 

11058 

11059 

11060 

11061 

11062 

11063 

11064 

11065 

11066 

11067 

11068 


045662 
045663 
045664 
045665 
045666 
045667 
045670 
045671 
045672 
045673 
045674 
045675 
045676 
045677 
045700 
045701 
045702 
045703 


332 
260 
261 
261 
261 
261 
2oJ 


00 
17 
17 
17 
17 
17 
17 


200  02  0 
220  02  0 


200  01 
402  00 
270  03 
270  01 
332  00 

201  01 
270  02 
402  00 
250  00 


00  030037 
00  046445 
00  000000 
00  000001 
00  000002 
00  000003 
00  046601 
00  000001 

00  047120 

01  047122 
00  000003 
17  777776 
00  047063 
00  030037 
00  046460 
00  047121 

00  000000 

01  000000 


045704 
045705 
045706 
045707 
045710 
04571 1 
045712 


332  00 
254  00 
606  01 
254  00 
640  01 
646  01 
202  00 


8 

0 
0 
0 
0 


00  030037 
00  045713 
00  Q0Q003 
00  045712 
00  000003 

00  000003 

01  000000 


*•••♦♦♦***♦***♦****♦♦♦*♦*****♦*♦*••••••****•••***•••••**•*•••••♦**••** 


*  Get  log  -  routine  to  snapshot 
This  routine  takes  data 
And  places  it  in  a  core 
Will  work  correctly  in 
Area  as  it  transfers  a I 
Before  calling  logpnt. 
Ad  contains  a  pointer 
Be  placed,  if  ad  is  0 


the  channel  logout  area 
from  the  channel  loaout  area 
buffer  so  that  the  logout  printer 

user  mode,  it  zeros  the  logout 

so.  this  routine  must  be  called 

to  a  us'^r   area  where  the  logout  data  should 
at  c?'  time,  no  date  is  put  in  user  area. 


Calling  seq: 

Move    1,arg 
Go     get  log 
Return 


;set  up  pointer 

; snapshot 

.•returns  here  always 


*  Functions  of  the  ac's  during  get  log 

*  Ac   function 


0  Holds  data  to  be  transferred 

1  Pointer  to  actual  logout  area 

2  Counter  &  pointer  to  buffered  logout  area 

3  Pointer  to  user  logout  area 


GETL05 


GLl 


SKIPE 

GO 

PUT 

PUT 

PUT 

PUT 

GO 

MOVE 

IMUL 

MOVE 

SETZM 

ADD 

ADD 

SKIPE 

MOVE  I 

ADD 

SETZM 

EXCH 


USER 
DIAGGL 
0 
1 


CHSEL 

2,CHK 
l.ICWAOd) 

3,-2(P) 

UCBASE 

USER 

1,L0GARG^2 

2,CHCNT 

0 

0.(1) 


;User  mode 

;Yes.  get  logout  data 

;Save  ac*s 


Get  Chan  #  to  ad 

Duplicate  ad  &  ac2 

X4  or  xlO 

Icwa  to  ad 

Clear  ac3 

Set  up  pointer  to  user  area 

Creates  a  paged  address 

User  mode 

Yes.  point  to  arglist  data 

Creates  a  counter  pointer  to  buffer 

Clear  the  data  word 

Fetch  word  and  replace  with  zero 


*  Replace  1st  and  last  words  of  logout  area 

*  They  contain  initial  iump  and  possibly  an  interrupt  vector 
'  '   bits  34.35  both  clear 


1st  word  has 
Last  word  has 

SKIPE 

JRST 

TRNN 

JRST 

TRC 

TRCN 

MOVEM 


bits  3^.35  both  set 


USER 

1J 
1,3 
0,(1) 


;User  mode  ? 

;Yes 

.-First  word  ? 

;Yes.  replace 

;Test  for  the 

.-Last  word  ? 

.'Restore  contents 


it 
last 


word 
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11069 
11070 
11071 
11072 
11073 
11 074 
11075 
11076 
11077 
11078 
11079 
11080 


04571 3 
045714 
04571 5 
045716 
045717 
045720 
045721 
045722 
045723 
045724 
045725 
045726 


255  00  0 
202  00  0 
332  00  0 
202  00  0 
350  00  0 
350  00  0 
253  02  0 


8? 


262  17 
262  17 
262  17 

262  17 

263  17 


0 
0 
0 
0 
0 


00  000000 

0 
0 
00  00QQ01 
00  045702 
00  000003 
00  000002 
00  000001 
00  000000 
00  000000 


JFCL 

MOVEM 

SKIPE 

MOVEM 

AGS 

AOS 

AOBJN 

GET 

GET 

GET 

GET 

RTN 


0-(2) 
-5(P) 
,(3) 


? 


1 
2,GL1 

2 
1 
0 


; Store  in  the  buffer  area 

;Don't  rtn  if  ac1  was  0  at  call 

;Put  in  user  area 

;Bump  user  pointer 

;Bump  the  logout  pointer 

;Bump  counter,  pointer  to  buffer 

;Done.  restore  the  ac's 


;And  exit 
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SEO  0426 


11081 

11082 

11083 

11084 

11085 

11086 

11087 

11088 

11089 

11090 

11091 

11092 

11093 

1109A 

11095 

11096 

11097 

11098 

11099 

11100 

11101 

11102 

11103 

11104 

11105 

11106 

11107 

11108 

11109 

11110 

11111 

11112 

11113 

11114 

11115 

11116 

11117 

11118 

'1119 

11120 

11121 

11122 

11123 

11124 

11125 

11126 


045727 
045730 
045731 
045732 

045733 
045734 
045735 
045736 
045737 

045740 
045741 
045742 
045743 
045744 
045745 
045746 
045747 
045750 
045751 
045752 
045753 
045754 
045755 
045756 
045757 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000002 

261  17  0  00  000003 

037  01  0  00  057715 
260  17  0  00  046601 
200  03  0  00  000001 
200  00  0  00  000003 
037  01  0  00  000000 


03/ 
332 
254 
200 
603 
037 
037 
260 
260 
260 
037 
262 
262 
262 
262 
263 


01 
00 
00 
00 
00 
01 
00 
17 
17 
17 
00 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


057717 
052502 
045745 
030046 
000200 
057723 
030242 
045760 
046004 
046041 
030242 
000003 
000002 
000001 
000000 
000000 


*  Channel  logout  printer 

*  Routine  prints  the  status  of  the  channel  at  loaout  time. 

*  Logout  data  is  printed  from  a  buffered  area,  therefore, 

*  Getlog  should  be  executed  first. 
♦ 

*  Eg.    go     logpnt        ;print 

*  Return  ;and  return 
* 

*  Functions  of  ac's  for  logpnt 

*  Ac   function 

*  0  Used  for  printing 

*  1  Holds  ept  adr  for  current  word 

*  2  Points  to  current  buffered  word 

*  3  Holds  the  logical  channel  number 


LOGPNT 


CHAN-/3 


LOC   /] 


PUT 
PUT 
PUT 
PUT 
PNTMSF 

GO 

MOVE 
MOVE 
PNTl 
PNTMSF 
1 

SKIPE 
JRST 
MOVE 
TLNE 
PMfMSF 
PCRL 
GO 
60 
GO 

PCRL 
GET 
GET 
GET 
GET 
RTN 


? 


;Sa\/e  ac*s 


i 

CASCI2/ 


CHSEL         :Get  Chan  M   to  ad 
3J  :Now  to  ac3 

0,3  ;Ready  to  print 

; Print  it 
CASCIZ/LOGOUT  DATA 

SHMODE        ; Short  printout  mode  ? 
.-^3  ;Yes 

CCONSU       :Get  the  console  switches 
TXTINH        :Normal  or  short  printout? 
CASCIZ/CONTENTS/i      ;Short 

; Norma  I 
ICWPT         ;Print  initial  cw  data 
LOSPT         .-Print  swl  data  if  an  rh20 
TCWPT         ;Prints  term  cw  status 

;A  crlf 
3  .-Restore  the  ac's 


? 


;And  exit 


n 
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SEQ  0^*27 


11127 

11128 

11129 

11130 

11131 

11132 

11133 

11134 

11135 

11136 

11137 

11138 

11139 

11140 

11141 

11142 

11143 

11144 

11145 

11146 

11147 

11148 

11149 

11150 

11151 

11152 

11153 

11154 

11155 

11156 

11157 

11158 

11159 

11160 

11161 

11162 

11163 

11164 

11165 

11166 

11167 

11168 

11169 

11170 

11171 

11172 

11173 

11174 

11175 

11176 

11177 

11178 

11179 

11180 


*  Pointer  for  im'tlal  control  word  S  pointer  setup  routine 


045760 
045761 
045762 
045763 
045764 
045765 
045766 
045767 
045770 
045771 
045772 
045773 
045774 
045775 
045776 
045777 
046000 
046001 
046002 
046003 


046004 
046005 
046006 
046007 
046010 
04601 1 
046012 
046013 
046014 
04601 5 
046016 
046017 
046020 
046021 
046022 
046023 
046024 
046025 
046026 
046027 
046030 
046031 
046032 
046033 
046034 
046035 
046036 
04603/^ 
046040 


200  01 
200  02 
220  02 
271  02 
200  01 
270  01 
200  00 
037  03 
037  01 
332  00 
254  00 
200  00 
607  00 
037  01 
200  00 
332  00 
200  00 
037  13 
037  00 
263  17 


271  01 
271  02 
200  00 
037  03 
037  01 
33i  00 
254  00 
200  00 
607  00 
254  00 
200  00 
037  13 
254  00 
037  01 
261  17 

261  17 
200  01 
332  00 
336  00 
200 
201 
260 
037  01 
135  00 
037  13 

262  17 

l\^  Vo 

263  17 


0' 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 


000003 
000003 
047120 
047140 
047122 
047063 
000001 
000000 
057725 
052502 
045776 
030046 
000200 
057726 
000000 
030037 
052503 
000000 
030242 
000000 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 

S8 

00 


000001 
000001 
000001 
000000 
057725 
052502 
046016 
030046 
000200 
046021 
000000 
000000 
046037 
057730 
000002 
000001 
052504 
065234 
030037 
000000 
047667 
050023 
057732 
057736 
000001 
0^  )001 
0^0002 
030242 
000000 


ICWPT: 


ICWPX 


MOVE 

MOVE 

IMUL 

ADD  I 

MOVE 

ADD 

MOVE 

PNT3 

PNTMSF 

SKIPE 

JRST 

MOVE 

TLNN 

PNTMSF 

MOVE 

SKIPE 

MOVE 

PNTHU 

PCRL 

RTN 


1,3 

2,CHK 

2A06BUF 

IJCWAOd) 

l^CBASE 

OJ 

CASCIZ/   /] 

SHMODE 

ICWPX 

CONSU 

TXTINH 

CASCIZ/ICW:  /] 

(2) 

USER 

TEMPA 


;Ac1  now  has  chan  ft 
.'Duplicate  ac's 
;Offset  into  buffered  area 
;Add  base  addr  of  b:  ffer 
; Fetch  the  icwa  aga  i 
;Add  in  the  ept  base  addr 
;Now  have  the  icw  pointer 
;Prints  the  icw  address 

; Short  printout  mode  ? 

;  Yes 

;6et  the  switches 

.•Normal  or  short  printout  ? 

.'Normal 

.'Fetch  the  initial  cw 

.'USER  MODE? 

.'GET  WHAT  UE  WANT 

;And  print  it 


;And  exit 


;*  The  rh20  status  word-1  printer 


LOSPT: 


LOSPTl 


U.2?12: 


ADD  I 

ADDI 

MOVE 

PNT3 

PNTMSF 

SKIPE 

JRST 

MOVE 

Tl.NN 

JRST 

MOVE 

PNTHW 

JRST 

PNTMSF 

PUT 

PUT 

MOVE 

SKIPE 

SKIPN 

MOVE 

MOVE  I 

GO 

PNTMSF 

LD6 

PNTHWF 

GET 

GET 

PCRL 

RTN 


IJ 
2.1 
0.1 

CASCIZ/   /] 

SHMODE 

.+4 

CONSU 

TXTINH 

LOSPTl 

(2) 

L0SPT2 
CASCIZ/SW1: 


;Bump  the  pointer  correctly 
.'Bump  buffer  pointer 
;To  0  for  printing 
.'Print  swi  address 

.'Short  printout  mode  ? 

.'Yes 

.'Get  console  switches 

.'Normal  or  short  printout 

.'Normal 

.'Fetch  swl 

.'Print  swl 


f 


/] 


.'Save  ac's 


l.TEMPB 
DFDXEF 
USER 
1.(2) 
2.L0STBL 
TYPBIT 

CASCIZ/  CLP 
CPOINT  22.1. 

1 
2 


WANT 


GET  WHAT  UE 
IN  DFDXE? 
USER  MODE? 

Get  swl  to  ad  for  typbit 
Get  the  bit  table  address 
Print  the  sixbit  data  stuff 
POINTS  TO:  /] 

35]  .'Fetch  the  actual  dp  address 
.'Print  in  octal 
.'Recover  the  saved  ac 

.'Print  a  crlf 
.-And  exit 


DFOXD 
DXCOM 

11181 

11182 

11183 

11 184 

11185 

11186 

11187 

11188 

11189 

11190 

11191 

11192 

11193 

11194 

11195 

11196 

11197 

11198 

11199 

11200 

11201 

11202 

11203 

11204 

11205 

11206 

11207 

11208 

11209 

11210 

11211 

11212 

11213 

11214 

11215 

11216 
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*  Print  termination  word  from  the  logout  area 


046041 

^46042 

046043 

046044 

046045 

046046 

046047 

046050 

046051 

046052 

046053 

046054 

046055 

046056 

04605 

046060 

046061 

046062 

046063 

046064 

046065 

046066 

046067 

046070 

046071 

046072 

046073 

046074 

046075 

046076 

046077 

046100 

046101- 

046102 


271  02 
271  01 
200  00 
037  03 
037  01 
332  00 
254  00 
200  00 
607  00 
254  00 
200  00 
332  00 
336  00 
200  00 
037  13 
037  00 
263  17 
037  01 
200  00 
332  00 
336  00 

200  00 
037  13 
037  01 
332  00 
336  00 
334  00 

201  02 
13-  00 
260  17 
037  01 
135  00 
037  13 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 

TCWPT:  ADDI 

000001 

ADD  I 

000001 

MOVE 

000000 

PNT3 

057725 

PNTMSF 

052502 

SKIPE 

046053 

JRST 

030046 

MOVE 

000200 

TLNN 

046062 

JRST 

052505 

MOVE 

065234 

SKIPE 

030037 

SKIPN 

000000 

MOVE 

000000 

PNTHU 

0]  10242 

TCWPT2:  PCRL 

000000 

RTN 

057737 

TCWPT1:  PNTMSF 

052507 

MOVE 

065234 

SKIPE 

030037 

SKIPN 

000000 

MOVE 

000000 

PNTHU 

057743 

PNTMSF 

030037 

SKIPE 

065234 

SKIPN 

000000 

SKIPA 

052507 

MOVE  I 

057745 

LD6 

050103; 

GO 

057746 

PNTMSF 

057750 

LDB 

000001 

PNTHWF 

046060 

JRST 

2J 
U 
0,1 


/] 


Bump  buffer  pointer 
Adjust  the  pointer 
To  0  for  printing 
Print  It 


CASCIZ/ 

SHMODE        .-Short  printout  mode  ? 

.+4  ;Yes 

CONSU        ;Get  the  console  switches 

TXTINH        ;Normal  or  short  printout 

TCWPT1        .-Normal 

TEMPC  .-GET  U:  ii  WE  WANT 

DFDXEF         ;IN  DFD> 

USER  .-USER  MDi;E? 

(2)  .-Short,  get  the  word 

Print  it 

Print  a  crlf 
.And  exit 
CASCIZ/LAST  UPDAtED  CCW:  /] 


TEMPE 
DFDXEF 
USER 
(2) 

CASCIZ/ 

USER 

DFDXEF 

2. TEMPE 

[POINT 

PSDN 

CASCIZ/ 

[POINT 

TCWPT2 


^WC=/] 


GET  WHAT  \JE 
IN  DFDXE? 
USER  MODE? 
Fetch  last 
Print  it 

USER  MODE? 
IN  DFDXE? 
NO! 


WANT 


CCW 


11  (2). 133     .-Gets  word  count 

.-Print  it  in  decimal 
ADR=/] 

22. (2). 35]     .-Gets  address 
.-Print  it  in  octal 
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11217 

11218 

11219 

11220 

11221 

11222 

11223 

11224 

11225 

11226 

11227 

11228 

11229 

11230 

11231 

11232 

11233 

11234 

11235 

11236 

11237 

11238 

11239 

11240 

11241 

11242 

11243 

11244 

11245 

11246 

11247 

11?':5> 

11;/ 

WPS 

lU'ii? 

11253 

11254 

11255 

11256 

11257 

11258 

11259 

11260 

11261 

11262 

11263 

11264 

11265 

11266 

11267 

11268 

11269 

11273 

11271 


046103  322  01  0  00  057751 


n^ 


:05 

6!  06 

0^6107 

04M10 

:.(^^^ 

0..jil2 
046113 
046r4 
04M-5 
0^  (6 
04oil7 
046120 
046121 

046122 
046123 
046124 
046125 
046126 
046127 
046130 
046131 
046132 


33?  00 
254  00 
332  00 
254  00 
260  17 
263  17 


0  00  030037 
0  00  046112 
0  00  030516 
0  00  046112 
0  00  046227 
0  00  000000 


261 
261 
261 
261 
261 
550 
554 
271 


17 
17 
17 
17 
17 
03 
04 
04 


037  01 
260  17 
200  00 
037  01 
037  00 
332  00 
254  00 
200  00 
607  00 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

00 
00 


0  00 


0 
0 
0 
0 
0 
0 


00 
00 

§8 

00 
00 


000000 
000001 
000002 

ooooc^ 

OCOOG^ 
000001 
OOOCOl 

ooooo: 

057752 
046601 
000001 

ws 

052502 
046134 
030046 
000200 


*  Channel  command  list  printer 
* 

*  Runs  through  "core  printing  the  command  list  for  a  particular  transfer, 
* 

*  Eg.    move   ac1,arg       ;#command  wds,,addr  of  first 

*  Go     ccwpnt        ;print 

*  Return  ;and  return 

*  . 

*  Aci: 

*  If  ad  is  0  when  called,  return  is  immediate  specify  (acl)r  address 

*  Of  first  command  word  specify  (ad) I  M  of  words  in  the  list. 

*  (These  params  were  returned  when  genccw  was  called) 

Functions  of  the  ac'  in  ccwpt  routine 


Ac 


function 


? 


Used  for  printing 

Holds  the  current  ccw 

A  scratch  ac 

Pointer  to  the  most  current  ccw 

Counter,   inited  to  expected  #  of  ccw's  •••5 

In  case  of  a  runaway  ccw  list. 


CCWPNT:  JUMPE       l.CRTN]  ;Exit  if  ad   is  zero 

;*  Code  tc  check  for  the  special  ccw  list  print  case  when  your  running 
;*  Under  topslO  in  user  Mods  since  the  ccw  argument  list  is  non-standard 

;In  user  mode  ? 


SKIPN 

JRST 

SKIPE 

JRST 

GO 

RTN 


USER 

CCWPGO 

MONTYP 

CCWPGO 

CCWPIO 


CCWPGO;  PUT 
PUT 


;No.  take  regular  path 
;Yes.  topslO  or  tops20  ? 
;Tops20.  take  regular  path 
; TopslO.  off  to  special  routine 
;Then  exit 

;Save  the  ar's 


CCWS 


PUT 

PUT 

PUT 

HRRZ 

HLRZ 

ADD  I 

PNTMSF 

CHAN-/J 

GO 

MOVE 

PNT1 

PCRL 

SKIPE 

JRST 

MOVE 

TLNN 


4,5 

CAS  iZ/ 

CHSEL 
OJ 


SHMODE 

CONSW 
TXTINH 


;Set  up  the  initial  point?r 
.•■etch  the  initial  count 
.-Adjust  it  by  5 


Get  chan  M   to  ad 

Now  to  acO 

Print  it 

Print  a  crlf 

Short  printout  'rtode  ? 

Yes 

Get  the  console  switches 

^ormdl  or  short  printout 


DFDXD 

DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  X53f\     ,32)   18:38  6-Apr-85  Page  56-1  _^  

DXCOM 

MAC 

18-Jdn-85  14:26 

DATA  CHANNEL  SUBROUTINES                                                SEQ  U43U 

11272 

046133 

254  00  0  00  046136 

JRST 

CCWPT1         ;Normal 

11273 

PNTMSF 

CASCIZ/  LOC      CCW 

1127A 

...      ... 

11275 

046134 

037  01  0  00  057756 

/] 

'.■"■■"             '    ■             .   ^                          '                                                                                                                     -r     ■ 

11276 

046135 

254  00  0  00  046140 

JRST 

CCWPT2 

11277 

11278 

CCUPTl:  PNTMSF 

[ASCIZ/  LOC      +WC     ADR      MISC. 

11279 

— .     ... 

...      ..... 

11280 

046136 

037  0-:  0  00  057765 

/] 

11281 

046137 

254  00  0  00  046140 

JRST 

CCWPT2                       ... 

11282 

046140 

200  01  1  00  000003 

CCWPT2:  MOVE 

1,a3         .-Fetch  current  ccw  from  list 

11283 

046141 

260  17  0  00  046165 

GO 

CCWINT        ;Go  interpret  the  ccw  an  print 

1 1 28'* 

046142 

135  00  0  00  060004 

LDB 

[POINT  3 J, 2]   ;Fetch  Ctrl  part  of  the  ccw 

11285 

046143 

302  00  0  00  000002 

CAIE 

2            ;rs  it  a  jump  ccw  ?? 

11286 

046144 

254  00  0  00  046147 

JRST 

TLASTW         :N»-» 

1 1 287 

046145 

135  03  0  00  057736 

LDB 

3,rP0INT  22.1,353      ;Update  pointer 

11288 

046146 

254  00  0  00  046155 

JRST 

CCWPT3        ;6c  update  the  count 
CCWPT4        ;(0-2)=000  Means  halt 

11289 

046147 

322  00  0  00  046157 

TLASTW:  JUMPE 

11290 

046150 

242  00  0  00  777777 

LSH 

-1   . 

11291 

046151 

306  00  0  00  000003 

CAIN 

3            ;(0-2)  110  Or  111  is  1st  xfer  ccw 

11292 

046152 

254  00  0  00  046157 

JRST 

CCWPT4 

11293 

046153 

271  03  0  00  000001 

ADDI 

3,1          ;Bump  the  pointer 

1129A 

046154 

254  00  0  00  046155 

JRST 

CCWPT3        ;Go  update  the  count 

11295 

046155 

367  04  0  00  046140 

CCWPT3:  SOJG 

4,CCWPT2       .-Count  te  word  just  processed 

11296 

PNTMSF 

CASCIZ/CCW  LIST  IS  TOO  L  0   N    G  .  .  . 

11297 

046156 

037  01  0  00  060005 

/] 

■;;-■'-         -■      '■-             -  -  -         -    _                   -  ,    ' 

11298 

046157 

262  17  0  00  000004 

CCWPT4:  GlT 

4            ;Restore  the  ac's 

11299 

046160 

262  17  0  00  000003 

GET 

3 

11300 

046161 

262  17  0  00  000002 

GET 

2 

11301 

046162 

26?  17  0  00  000001 

GET 

1   ■ 

11302 

046163 

2o^   17  0  00  000000 

GET 

0  ^ 

11303 

046164 

263  17  0  00  000000 

RTN 

;And  exit 

11304 

■-■'■-                                                        \                                                                     .         '       ^      ^              "\'           '                                                                          .;      -       '        ■"■"    '                                 '         -            - 

11305 

;*  Routine  to  interpret  the  channel  command  word  in  ad                             I 

11306 

11307 

046165 

200  00  0  00  000003 

CCWINT:  MOVE 

0.3          ;Get  the  pointer 

11308 

046166 

037  06  0  00  000000 

PNT6 

; Print  it 

11309 

046167 

037  01  0  00  060015 

PNTMSF 

CASCIZ/  /] 

11310 

046170 

332  00  0  00  052502 

SKIPE 

SHMODE 

•Short  printout  mode  ? 

11311 

046171 

254  00  0  00  046175 

JRST 

.H 

;Yes 

11312 

046172 

200  00  0  00  030046 

MOVE 

CONSW 

;Get  the  switches 

11313 

046173 

607  00  0  00  000200 

TLNN 

TXTINH 

;Mormal  or  short  printout  ?? 

11314 

046174 

254  00  0  00  046201 

JRST 

CCWI1 

;Normal 

11315 

046175 

200  00  0  00  000001 

MOVE 

0.1         .  . 

; Short,  get  the  ccw 
;Print  it 

11316 

046176 

037  13  C  00  000000 

PNTHW 

i 

11317 

046177 

037  00  0  00  030242 

CCWIX;  PCRL 

1 

;Print  a  crlf 

11318 

046200 

263  17  0  00  000000 

RTN 

^ 

;And  exit 

11319 

046201 

603  01  0  CO  400000 

CCWI1: 

TLNE    l.(IBO)  < 

;Is  it  an  op-data  ccw 

11320 

046202 

254  00  0  00  046206 

JRST 

CCWI1A 

:Yes 

11321 

046203 

037  01  0  00  060016 

PNTMSF 

CASCIZ/OOOOOO  /] 

11322 

046204 

037  00  0  00  030242 

PCRL 

11323 

046205 

254  00  0  00  046210 
135  00  0  00  057714 

JRST 

CCWI2 

11324 

046206 

CCWI1A;  LDB 

[POINT  11,1.13]  ;6et  the  word  count 

11325 

046207 

260  17  0  00  05010]; 

GO 

PSDN          .-Print  in  decimal 

11326 

046210 

037  01  0  00  060020 

CCWI2:   PNTMSF 

[ASCIZ/  /]     ;This  is  a  tab 

f— ■  ■ 

8 
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SEQ  0431 


11327 
11328 
11329 
11330 
11331 
11332 
11333 
11334 
11335 
11336 
11337 
11338 
11339 
11340 


046211 
046212 
046213 
046214 
046215 
046216 
046217 
046220 
046221 
046222 
046223 
046224 
046225 
046226 


135  00 
037  10 
037  01 
607  01 
254  00 
201  02 
260  17 
254  00 
135  00 
322  00 
037  01 
254  00 
037  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


057736 
000000 
06001 5 
400000 
046221 
047662 
050023 
046177 
060004 
046225 
060021 
046177 
060023 
046177 


LD6 

PNTADR 
PNTMSF 
TLNN 
JRST 
MOVE  I 
60 

JRST 
CCUI2A:  LDB 
JUMPE 
PNTMSF 
JRST 
PNTMSF 
JRST 


[POINT  22,1,35]  ;6et  the  address  portion 

; Print  it 


CASCIZ/  /] 

1,(1B0) 

CCUI2A 

2,CCWTBL 

TYPBIT 

CCWIX 

[POINT  3,1,23 

.+3 

[ASCIZ/JUMP-WD/] 

CCWIX         ;Exit 

[ASCIZ/HALT-WORD/J 

CCWIX 


;Is  it  an  op-data  ccw 

;No 

;Yes.  gert  tbt  addr 

;Type  option  bits  in  sixbit 

;Tnen  exit 

;6et  the  control  bits  of  the  ccw 

:Jump  if  a  halt  word 


DFDXD 
OXCOM 

11341 

113A2 

113A3 

113AA 

11345 

11346 

11347 

11348 

11349 

11350 

11351 

11352 

11353 

11354 

11355 

11356 

11357 

11358 

11359 

11360 

11361 

11362 

11363 

11364 

11365 

11366 

11367 

11368 

11369 

11370 

11371 

11372 

11373 

11374 

11375 

11376 

11377 

11378 

11379 

11380 

11381 

11382 

11383 

11384 

11385 

11386 

11387 
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SCO  (y^32 


046227 
046230 
046231 
046232 


046233 
046234 
046235 
046236 
046237 
046240 
046241 
046242 
046243 
046244 
046245 
046246 
046247 
046250 
046251 
046252 
046253 
046254 
046255 
046256 
046257 
046260 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000002 

261  17  0  00  000003 


037  01  0 
574  02  0 
216  02  0 
550  03  0 
200  00  0 
3ui  00  0 
254  00 
275  03 
037  01 
037  01 
200  00  0 
260  17  0 
037  01  0 
200  00  0 
350  00  0 
037  06  0 
037  00  0 


0 
0 
0 
0 


262  17 

262  17 

262  17 

262  17 

263  17 


00  060025 

01  000000 

00  000002 

01  000000 
01  777776 
00  000012 
00  046244 
00  000001 
00  060042 
00  060046 
00  000002 
00  050142 
00  060050 
00  000003 
00  000000 
00  000000 
00  030242 
00  000003 
00  000002 
00  000001 
00  000000 
00  000000 


This  is  a  special  routine  to  orint  the  ccw  list  used  for  the  diag 
Call  when  running  under  topsiD  in  user  mode,  acl  is  expected  to  contain 
A  pointer  to  the  single  ccw  in  its  right  half,  there  can  be  only  1  ccw 
Of  the  form  -wc,.addr-1  for  forward  transfers  and  -wcaddr  for  reverse 
Transfers,  back  2   locations  from  the  pointer  to  the  word  is  the  diag 
Function  code.  f=4  means  it  is  a  forward  list,  f=12  means  the  list  is 
A  reverse  list  and  should  be  printed  accordingly,  this  routine  obviously 
Handles  a  special  case  condition  and  is  makes  use  of  the  fact  that  it 
Knows  the  format  of  the  ccw  list  that  genccw  built  for  this  situation. 
It  is  necessary  because  topslO  requires  a  single  ccw  in  a  format  similar 
To  old  dflO  style. 


* 

* 
* 
* 

*  Call 


seq: 
Move 
Go 
Rtn 


Uargl 
ccwplO 


;1,. pointer  (to  ccw) 
;call  the  routine 
.•returns  here 


CCWP10:  PUT 

PUT 

PUT 

PUT    3 

PNTMSF  CASCIZ/ 
PROGRAM  REQUESTED  TOPSIO  CCW 

n 


;Save  ac*s 


HLRE 

MOVMM 

HRRZ 

MOVE 

CAIE 

JRST 

SUB! 

PNTMSF 

PNTMSF 

MOVE 

GO 

PNTMSF 

MOVE 

AOS 

PNT6 

PCRL 

GET 

GET 

GET 

GET 

RTN 


2,(1) 

2,2 

3,(1) 

0,-2(1) 

0,12 

3,1 

casciz/(read 
casciz/wd  cnt 

p6cdec 

CASCIZ/  ADDR 


LIST  FOR  THE  FOLLOWING  TRANSFER 

;Get  -wc 

;Take  absolute  value 
;Gets  addr  (or  addr-1) 
.-Fetch  diag  function  code 
;Was  this  a  reverse  operation  ? 
;No.  it  was  normal,  forward 
;Reverse.  make  addr  into  addr-1 
REVERSE)  n 
/] 

;Get  word  count 
; Print  in  octal  and  decimal 
/] 

.-Gets  addr-1 
; Makes  it  addr 
.•Print  virtual  address 

.•Restore  ac's 


;And  exit 
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S£Q  0433 


11388 

11389 

11390 

11391 

11392 

11393 

11394 

11395 

11396 

11397 

11398 

11399 

11400 

11401 

11402 

11403 

11404 

11405 

11406 

11407 

11408 

11409 

11410 

11411 

11412 

11413 

11414 

11415 

11416 

11417 

11418 

11419 

11420 

11421 

11422 

11423 

11424 

11425 

11426 

11427 

11428 

11429 

11430 

11431 

11432 

11433 

11434 

11435 

11436 

11437 

11438 

11439 

11440 

11441 

11442 


046261 
046262 
046263 
046264 
046265 


046266 
046267 


046270 
046271 
046272 


046273 
046274 
046275 
046276 
046277 
046300 
046301 
046302 
046303 


046304 
046305 
046306 
046307 
046310 
046311 


261  17  0  00  000004 

261  17  0  00  000003 

261  17  0  00  000002 

261  17  0  00  000000 

261  17  0  00  000001 


260  17  0  00  046601 
200  03  0  00  000001 


554  00  0  17  000000 
303  00  0  00  000062 
037  15  0  00  000004 


402  00 
210  01 
514  01 
540  01 
200  00 
202  00 
402  00 
350  00 
253  01 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
17 
01 
02 
02 
00 


0  00 


000002 
000000 
000001 
000000 
000000 
046324 
046325 
0000U2 
046277 


260  17  0  00  046760 
202  01  0  00  046323 
271  02  0  00  000002 
210  02  0  00  000002 
514  01  0  00  000002 
541  01  0  00  046322 


*  Chp20  —  builds  a  tops20  user  iiode  channel  program 

*  This  routine  is  used  to  build  a  channel  program 

*  Using  a  diagnostic  monitor  call,  this  routine  is 

*  Set  up  to  operate  with  up  to  50  channel  command  words 

*  Which  is  the  tops20  limit.  (1  page  per  ccw) 
* 

*  This  routine  expects  ad  to  be  set  up  in  the 

*  Following  way: 

*  Acl(r)  =  pointer  to  first  word 

*  Add)  =  #  of  words  in  the  list  (50  or  less) 
♦ 

*  Calling  seq: 

*  Move    1/9^9  ;*  0^  words,, pointer  to  first 

*  Go     cnp20  ;call  the  routine 

*  Return  ; returns  -♦•1  always 


CHP20:  PUT 
PUT 
PUT 
PUT 
PUT 

;*  Get  the  logical  chan  #  to  ac3 


;Save  ac*s 


GO 
MOVE 


CHSEl 
3,1 


;*  Range  check  the  word  count 

HLR2    0,(P) 
CAILE   0,*D50 
FATAL 


;Chan  #  to  ad 
;Now  to  ac3 


;Get  count 

;Less  than  or  equal  to  50 

; Fata  I  out 


;♦  Word  count  ok.  set  up  pointer  &  xfer  to  argument  list 


SETZM 
MOVN 
HRLZ 
HRR 
CHPGMO:  MOVE 
CHPGM1:  MOVEM 
SETZM 
AOS 
A06JN 


2 
1,0 

1,1 

1,(P) 

0,(1) 

0,CHARG*2(2) 

CHARG*3(2) 

2 

1, CHPGMO 


Clear  index 

-Cnt  to  ad 

-Cnt  to  left  half 

Pointer  to  right  half 

Fetch  a  ccw 

Put  in  argument  list 

Zero  next  loc  so  end  of  list  obvious 

Bump  store  pointer 

Loop  till  done 


;♦  Set  up  an  execute  diag  monitor  call 


GO  DEVADR 

MOVEM  1,CHARG^1 

ADDI  2,2 

MOVN  2.2 

HRLZ  1,2 

HRRI  1,CHAR6 


;Get  device  address 

;Put  in  argument  list 

;Ac2  now  holds  0   of  arguments 

.-Make  it  neaative 

.--Count  to  left  hand  side  ad 

.•Pointer  to  arglist 


•~l 
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11443 

04631 2 

256  00  0  00  046655 

11444 

046313 

260  17  0  00  046772 

11445 

046314 

262  17  0  00  000001 

11446 

04631 5 

262  17  0  00  000000 

11447 

046316 

262  17  0  00  000002 

11448 

046317 

262  17  0  00  000003 

11449 

046320 

262  17  0  00  000004 

11450 

046321 

263  17  0  00  000000 

11451 

11452 

11453 

11454 

046322 

000000  000004 

11455 

046323 

000  00  0  00  000000 

11456 

046324 

C20D: 


CHARG: 


XCT 

.DIAG 

GO 

DIAGER 

GET 

1 

GET 

Q 

GET 

5 

GET 

3 

GET 

4 

RTN 

lent  list  for  c 

4 

Z 

BLOCK 

"D51 

;Diag  monitor  call 
; Error 
;No  error 


; Function  code 

.•Reserved  for  device  address  word 

.'Reserved  for  ccw's 
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SEQ  0435 


11 457 

11458 

11459 

11460 

11461 

11462 

11463 

11464 

11465 

11466 

11467 

11468 

11469 

11470 

11471 

11472 

114/3 

11474 

11475 

11476 

11477 

11478 

11479 

11480 

11481 

11482 

11483 

11484 

11485 

11486 

11487 

11488 

11489 

11490 

11491 

11492 

11493 

11494 

11495 

11496 

11497 

11498 

11499 

11500 

11501 

11502 

11503 

11504 

11505 

11506 

11507 

11508 

11509 

11510 


046407 

046410 

046411 

046412 

046413 

046414 

046415 

046416 

046417 

046420 

046421 

046422 

046423 

046424 

046425 

046426 

046427 

046430 

046431 

046432 

046433 

046434 

046435 

046436 

046437 

046440 


046441 
046442 
046443 
046444 


261  17  0 
261  17  0 
261  17  0 
570  02  0 
321  02  0 


201  00 
213  02 


504  02 
540  02 


0 
0 
0 
0 
2'f<  02  0 
254  00  0 

201  00  0 
504  02  0 
540  02  0 

202  00  0 
202  02  0 
260  17  0 
202  01  0 
200  01  0 
256  00  0 


260  17 

262  17 

262  17 

262  17 
200  01 

263  17 


00  000000 
00  000001 
00  000002 
00  000002 
00  046422 
00  000004 
00  000002 
00  000002 
00  000001 
00  000001 
00  046425 
00  000012 
00  000002 
00  000001 
00  046441 
00  046443 
00  046760 
00  046442 
00  060052 
00  046655 
00  046772 
00  000002 
00  000001 
00  000000 
00  060053 
00  000000 


000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 


ChpIO  —  builds  a  topslO  channel  command  list 
This  routine  is  used  to  Duild  a  tops 10  channel  command  list 
Using  the  diag  uuo  monitor  call,  both  forward  and  read  reverse 
Command  lists  are  supported. 

For  a  forward  list  topslO  expects  1  word  of  the  form  -wcaddr-1 
Where  i/o  is  to  take  place,  this  is  done  with  a  diag  function  4 

For  a  read  reverse  list  topslO  expects  1  word  of  the  form  -wc^.addr 
Where  i/o  is  to  take  place,  this  is  done  with  a  diag  function  12 

Calling  seg: 


Move    acT,arg1       .-start  addr  of  buffer  (first  location) 

Move   ac2,arg2      ;word  count  (•••means  fwd.  -means  rev) 

Go     chpiO        ;call  the  routine 

Rtn+1  .-rtn+l  always,  ad  contains  M  of  wds  in 

Ccw  list  and  pointer  to  the  first 
For  compatability  with  ccwpnt 


CHPIO: 


CWBACK: 


CP10C: 


PUT 

PUT 

PUT 

HRRE 

JUMPL 

MOVE  I 

MOVNS 

HRL 

HRR 

SU6I 

JRST 

MOVE  I 

HRL 

HRR 

MOVEM 

MOVEM 

GO 

MOVEM 

MOVE 

XCT 

GO 

GET 

GET 

GET 

MOVE 

RTN 


?'2 

2. CWBACK 

0.4 

2,2 

2.2 

2J 

2.1 

CP10C 

0.12 

2.2 

2.1 

0.CHARG1 

2.CHARGU2 

DEVADR 

1.CHARGU1 

1.C-3..CHARG1] 

.DIAG 

DIAGER 

2 


\ 


.'Save  ac*s 


.•Extend  sign  in  case  user  of  half  wd  operation 

;-Wc  means  reverse  list... 

;+Wc  means  fwd.  get  function  code 

.-Make  ac2/-wc..aadr-1 


Ac2/-wc..addr-l 

To  common  code 

-Wc  means  rev.  get  function  codv- 

Make  ac2/-wc..aadr 

Ac2/-wc..addr 

Put  function  code  in  table 

Put  topslO  ccw  in  table 

Build  device  addr  in  ad 

Put  in  argument  table 

Get  argument  list  pointer  for  diag 

Execute  the  monitor  call 

Error  reporter  .... 

Restore  ac's 


1.C1..CHAR61+2J  ;For  compatability  with  ccwpnt 

.-Exit 


*  Argument  list  for  topslO  diag  ccw  list  builder 


CHAR61:  2 


\ 


.•Function  goes  here 
.•Device  addr  goes  here 
.•Single  ccw  goes  here 
;A  spare  word 
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SEQ  0436 


11511 

11512 

11513 

11514 

11515 

11516 

11517 

11518 

11519 

11520 

11521 

11522 

11523 

11524 

11525 

11526 

11527 

11528 

11529 

11530 

11531 

11532 

11533 

11534 

11535 

11536 

11537 

11538 

11539 

11540 

11541 

11542 

11543 

1 1 544 

11545 

11546 

11547 

11548 

11549 

11550 

11551 

11552 

11553 

11554 

11555 

11556 

11557 

11558 

11559 

11560 

11561 

11562 

11563 


046445 
046446 
046447 
046450 
046451 
046452 
046453 
046454 


046455 
046456 
046457 
046460 
046466 
046526 


261 
260 
202 
200 
256 
260 
262 
263 


17 
17 
01 
01 
00 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000001 
046760 
046457 
046455 
046655 
046772 
000001 
000000 


777732  046456 
000000  000006 
000  00  0  00  000000 


046527 
046530 
046531 
046532 
046533 
046534 
046535 
046536 
046537 
046540 
046541 
046542 
046543 


261  17  0  00  000001 
261  17  0  00  000002 

261  17  0  00  000003 
201  01  0  00  400000 
104  00  0  00  000150 
320  17  0  00  057751 
200  03  0  00  000002 
104  00  0  00  000151 
320  17  0  00  057751 

262  17  0  00  000003 
262  17  0  00  000002 

262  17  0  00  000001 

263  17  0  00  000000 


*  Diaggl  —  get  logout  area  from  monUor  in  user  mode 

*  In  user  mode,  this  routine  executes  a  diaanostic  monitor  calU 

*  Function  -6,  which  moves  logout  data  to  tne  argument  list. 

*  In  user  mode,  it  is  not  possible  to  get  das-33  ext  status. 

*  Calling  seq: 

*  Go     diaggl        ;call  routine 

*  Return  ;data  is  in  the  list 


DIAGGL:  PUT 
GO 

MOVEM 
MOVE 
XCT 
GO 
GET 
RTN 


1 

DEVADR 

1,L0GARG+1 

KLOGPTR 

.DIAG 

DIAGER 

1 


:Save  ac 

;Get  device  address  word 

;Put  in  argument  list 

;A  pointer  word 

.-Execute  diagnostic  function 

; Error 

;No  error 

;Exit 


;*  Argument  list  for  channel  status  snapshot  routine 


LOGPTR:  -*D38,,L0GAR6 
LOGARG:  6 

Z 

BLOCK   6 
PHYLST:  BLOCK   *D32 

BLOCK   1 


;New  pointer  for  physical  ccws 

.•Function 

.•Reserved  for  device  addr  word 

.•Reserved  for  logout  data 

;Room  for  physical  i/o  list 

;A  spare  location 


SUBTTL  ROUTINE  TO  ENABLE  PROCESS  CAPABILITIES  IN  USER  MODE 

♦  Enable  —  enable  capabilities  of  this  process 

*  First  read  capabilities  and  then  enable  them,  same  as 

*  Typing  "ena"  from  exec  level. 

♦  Call  seq: 

*  Go     enable        ;call 

♦  Rtn  .-returns  here 


ENABLE:  PUT 
PUT 
PUT 
MOVE  I 
RPCAP 

ERCAL 
MOVE 
EPCAP 

ERCAL 
GET 
GET 
GET 
RTN 


1..FHSLF 

CRTNJ 
3.2 

[RTN] 


;Save  ac*s 


.•Process  handle 

;Read  capabilities 

.•Ignore  errors 

;Get  capabilities  to  ac3 

;Now  enable 

.•Ignore  errors 

.•Restore 


.-Exit 


•MM** 


0465A4 
046545 
046546 
046547 
046550 
046551 


046552 
046553 
046554 
t 46555 


046556 
046557 
046560 
046561 


046562 
046563 
046564 
046565 


046566 
046567 

046570 
046571 
046572 


261 
261 
336 
254 
336 
254 


17 
17 
00 
00 
00 
00 


0  00  000000 
0  00  000001 
0  00  030037 
0  00  046570 
0  00  030516 
0  00  046556 
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11564 

11565 

11566 

11567 

11568 

11569 

11570 

11571 

11572 

11573 

11574 

11575 

11576 

11577 

11578 

11579 

11580 

11581 

11582 

11583 

11584 

11585 

11586 

11587 

11588 

11589 

11590 

11591 

11592 

11593 

11594 

11595 

11596 

11597 

11598 

11599 

11600 

11601 

11602 

11603 

11604 

11605 

11606 

11607 

11608 

11609 

11610 

11611 

11612 

11613 

11614 

11615 

11616 

11617 

11618 


SUBSYSTEM  DIAGNOSTIC  (RH20) 

ROUTINE  TO  GET  IN  AND 


VERSION  0.5    MACRO 
OUT  OF  USER  lOT  MODE 
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SEQ  0437 


260  17  0  00  046527 
104  00  0  00  000310 
255  00  0  00  000000 
254  00  0  00  046562 


201  01  0  00  000000 
047  01  0  00  000025 
255  00  0  00  000000 
254  00  0  00  046562 


260  17  0  00  046563 
262  17  0  00  000001 
603  01  0  00  004000 
254  00  0  00  046570 


037  01  0  00  060054 
037  15  0  00  000004 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


046573  336  00  0  00   030037 


SUBTTL  ROUTINE  TO  GET  IN  AND  OJT  OF  USER  lOT  MODE 

*  Usn'on  -  usn'of  —  turn  user  i/o  pn'vs  on/off 

*  This  routine  does  nothing  in  e.  :  mode. 

*  Under  tops  20  we  do  an  enable  .  priveleges  and  then  a  user  i/o 

*  Jsys  to  get  user-iot  set.  undt.  topslO,  a  trpset  uuo  gets  us 

*  Into  user-iot  mode,  user ion  will  fatal  you  out  if  you 

*  Don't  have  user  iot  priveleges. 
* 

*  Calling  seq: 

*  Go     usriox        ;call  the  appropriate  routine 

*  Rtn  .-returns  here 


? 


USRION:  PUT 
PUT 

SKIPN  USER 

JRST  USRONX 

SKIPN  MONTYP 

JRST  USR0N1 

;*  TopslO  monitor 

USR0N2:  GO      ENABLE 
USRIO 
JFCL 
JRST    USRCMN 

;*  Tops20  monitor 

USRONl:  MOVE I  1.0 

TRPSET  1. 
JFCL 

JRST  USRCMN 

;*  Common  code 

USRCMN:  GO      .+1 
GET     1 
TLNE 
JRST 


l.(1B6) 
USRONX 
PNTMSFF  [ASCIZ/ 


:Save  acO 

;User  mode  ? 
;No.  then  exit 
; Tops 10  or  tops20  ? 
; Tops 10 


.'Enable  available  priveleges 
;Set  the  user  i/o  bit 

;To  common  code 


.•Setup  for  rttrp  uuo 
;To  common  code 


.•Push  pc  onto  stack 
.-Pop  It  from  stack  into  ad 
;Is  usriot  bit  set  ? 
.•Yes 


USER  DOES  NOT  HAVE  PROPER  PRIVELEGES  TO  RUN  THIS  PROGRAM  !! 
/] 

FATAL  .-Fatal 


USRONX:  GET 
GET 
RTN 


I 


.-Restore  the  ac 


,♦  Code  to  turn  user  i/o  off 
USRIOF:  SKIPN   USER 


.-User  mode  ? 


DF>.aD 
DXCOM 

11619 
11620 
11621 
11622 
11623 
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04657A  254  00  0  00  046577 

046575  254  02  1  00  046576 

046576  010000  046577 

046577  263  17  0  00  000000 
046600  254  00  0  00  046177 


JRST    USROFX 

JRSTF   a.-n 

010000,,.+! 
USROFX:  RTN 

JRST    CCWIX 


VERSION  0.5 
OUT  OF  USER  lOT 

;No 


MACRO  Z53A(1152)  18:38 
MODE 


6-Apr-85  Page  61-1 


SEQ  0438 


;Turn  off  the  privelege 
; Modifies  the  pc  word 

;And  exit 


r 


DFDXD 
DXCOM 

1162A 

11625 

11626 

11627 

11628 

11629 

11630 

11631 

11632 

11633 

11634 

11635 

11636 

11637 

11638 

11639 

11640 

11641 

11642 

11643 

11644 

11645 

11646 

11647 

11648 

11649 

11650 

11651 

11652 

11653 

11654 

11655 

11656 

11657 

11658 

11659 

11660 

11661 

11662 

11663 

11664 

11665 
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VERSION  0.5    MACRO 
OUT  OF  USER  lOT  MODE 
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SEQ  0439 


046601 
046602 
046603 
046604 
046605 
046606 
046607 


135  01  0 
332  00  0 
263  17  0 
607  14  0 
275  01  0 
275  01  0 
263  17  0 


00  060072 
00  047061 
00  000000 
00  010000 
00  000004 
00  000002 
00  000000 


046610 
04661 1 
046612 
046613 
046614 
04661 5 
046616 
046617 
046620 
046621 
046622 
046623 
046624 
046625 
046626 
046627 


332  00  0  00  030037 
263  17  0  00  000000 
331  00  0  00  030041 
263  17  0  00  000000 
2o!  17  0  00  000000 
700000  000000 
606  00  0  00  200000 
254  00  0  00  046646 
261  17  0  00  000001 
261  17  0  00  000002 
261  17  0  00  000003 
261  17  0  00  000004 
200  00  0  00  060073 
7  000  24  0  00  000004 
405  04  0  00  000007 
660  04  0  00  040020 


*♦•*•••♦•♦•♦•******•***••*♦*•****••••*•****••**•**•*••**••*•••••***•** 


;*Chsei  —  routine  to  get  the  chan  #  from  mbcn 
;*This  routine  bit  diddles  the  device  code  in  mbcn  and 
.-♦Translates  it  to  a  logical  channel  number,  the 
;*Channel  number  is  returned  right  justified  in  acl. 

CHSEL:  LDB  1, [POINT  3,MBCN,93     ;6et  3  bits  for  the  controller  number 

SKIPE  RH20F6  ;If  rh20,  then  device  codes  have  no  hole 

RTN  ;So,  return 

TLN^  MBCN, (185)  ;Upper  or  lower  group 

SUBi  1,4  ; Lower 

SUBI  1,2  ; Upper 

RTN  ;And  exit  chan  H   in  acl 


Sweep  —  routine  to  sweep  cache  if  kllO-rhlO 
This  routine  is  used  to  sweep  cache  when  we  have  an  rhlO 
Configured  to  a  kl  processor,  this  is  necessary  so  that  memory 
Datri  will  be  valid  when  the  rhlO  starts  the  transfer. 


* 
* 


Calling  seq: 
Go     sweep 
Rtn 


.-call  the  routine 
.•returns  here 


**♦**♦••••••**♦•*»••♦*•♦♦♦♦•**•••****♦**♦*♦***♦*•****••*••♦*•***••*•** 


SWEEP:  SKIPE  USER 
RTN 

SKIPL  KLFLG 
RTN 

PUT  0 
700000,, 0 

TRNN  0,1B19 


JRST 

PUT 

PUT 

PUT 

PUT 

MOVE 

CONI 

AND  I 

TRO 


SWEEP3 
1 


0,C701540,,0] 
APR, 4 
4,7 
4,40020 


;Skip  if  we  are  a  kllO 

;Not  a  kl.  may  return 

;Save  acO 

;This  instr  gets  kl  cpu  status 

;Does  cache  exist  ? 

;No.  restore  and  exit 

;Save  other  ac's 


:A  cache  sweep  command  to  acO 

;Get  apr  status 

;Save  low  order  3  bits 

;Set  up  apr  for  sweep  interupt 


■~1 


DFDXD 
DXCOM 

11666 

11667 

11668 

11669 

11670 

11671 

11672 

11673 

11 674 

11675 

11676 

11677 

11678 

11679 

11680 

11681 

11682 

11683 

11684 

11685 

11686 

11687 

11688 

11689 

11690 

11691 

11692 

11693 

11694 

11695 

11696 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 


MAC 


18-Jdn-85  14:26 


ROUTINE  TO  GET  IN  AND  OUT  OF  USER  lOT  MODE 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  63 


SEQ  0440 


046630  7  000  20  0  04  000000 

046631  200  01  0  00  060074 

046632  200  02  0  00  060075 

046633  200  03  0  00  060076 

046634  201  04  0  00  111111 

046635  254  00  0  00  000000 

046636  327  04  0  00  046642 


046637  037  01  0  00  060077 

046640  260  17  0  00  043243 

046641  037  15  0  00  000004 

046642  262  17  0  00  000004 

046643  262  17  0  00  000003 

046644  262  17  0  00  000002 

046645  262  17  0  00  000001 

046646  262  17  0  00  000000 

046647  263  17  0  00  000000 


04665C 


046650  037  01  0  00  060110 

046651  260  17  0  00  043243 

046652  0iM5  0  00  000004 


CONO 

MOVE 

MOVE 

MOVE 

MOVE  I 

JRST 

SWEEPl:  JUMPG 
PNTMSF 


APR, (4)       ;Apr  now  ready 

1,CC0NS2  LCASWB]       ;BuUd  an  ac  loop  for  sweep  done 

2,i:S0JN  4,1] 


3, [JRST  S'JEEPl] 

4,SWEEP2 
CASCIZ/ 


;A  gross  timer 

;Jump  into  the  ac  loop 

;Did  we  time  out  ? 


CACHE  SWEEP  FAULT  -  -  TIMED  OUT 


GO 
FATAL 


SWEEP2:  GET 
GET 
GET 
GET 

SWEEP3:  GET 
RTN 


DISCTC 
4 


.•Disable  control  c  if  user  mode 
.-Restore  things 


.-And  return 

.-Default  error  reporter  if  we  try  to  execute  a  diag  function  with  setting  up 

NOSET:  PNTMSF   [ASCI2/ 

ATTEMPT  TO  EXECUTE  A  DIAGNOSTIC  MONITOR  CALL  WITHOUT  SETTING  UP. 

PGM  BUG  -  -  "DSETUP"  MUST  BE  CALLED  FIRST  -  -  -  - 

n 

GO     DISCTC        .-Disable  control  c  if  user  mode 
FATAL 
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SEQ  04A1 


11697 

11698 

11699 

11700 

11701 

11702 

11703 

11704 

11705 

11706 

11707 

11708 

11709 

11710 

11711 

11712 

11713 

11714 

11715 

11716 

11717 

11718 

11719 

11720 

11721 

11722 

11723 

11724 

11725 

11726 

11727 

r728 

11729 

11730 

11731 

11732 

11733 

11734 

11735 

11736 

11737 

11738 

11739 

11740 

11741 

11742 

11743 

11744 

11745 

11746 

11747 

11748 


046653 
046654 
046655 

046656 
046657 
046660 
046661 
046662 
046663 
046664 
046665 
046666 
046667 

046670 
046671 
046672 

046673 
046674 
046675 

046676 
046677 
046700 

046701 


046701 
046702 
046703 

046704 

046704 
046705 
046706 


047040  000163 
104040  000530 
254  00  0  00  046650 


336  00 
263  17 
261  17 
261  17 
200  00 
336  00 
200  00 
202  00 
336  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030037 
000000 
000000 
000001 
046654 
030516 
046653 
046655 
030516 
046673 


104  00  0  00  000310 
254  00  0  00  046701 
254  00  0  00  046676 

400  00  0  00  000000 
047  00  0  00  000025 
254  00  0  00  046704 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


037  01  0  00  060141 
104  00  0  00  000170 
254  00  0  00  030643 


037  01  0  00  060175 
047  01  0  00  000012 
254  00  0  00  030643 


SUBTTL  USER  MODE  SUPPORT  ROUTINES 

Dsetup  —  setup  routine  for  diagnostic  function 

This  routine  sets  up  a  location  called  ".diag  '  with  the 

Appropriate  jsys  or  uuo  for  a  diagnostic  monitor  call. 


• 

;* 

;♦ 

;♦ 

;* 

;♦ 

;♦ 

;* 

;♦ 


Calling  seq: 

Go     dsetup  ;call  the  routine 

Return  ; returns  •♦•  1  always 

Ac  #1  is  the  ac  that  is  used  by  the  diag  call  to  pass  arguments 


.UUO:  047040, J  63 
.JSYS:  104040, ,530 
.DIAG:  JRST    NOSET 


;Calli  acJ63  for  topslO 
;Diag  jsvs  ac,530  tops20 
;A  default  error  reporter 


DSETUP:  SKIPN 
RTN 
PUT 
PUT 
MOVE 
SKIPN 
MOVE 
MOVEh 
SKIPN 
JRST 

USRIO 

JRST 

JRST 

DSETIO:  SETZ 

TRPSET 
JRST 

DSETEX:  GET 
GET 
RTN 


USER 

0 

1 

.JSYS 

MONTYP 

.UUO 

.DIAG 

MONTYP 

DSETIO 


NOPV20 
DSETEX 


NOPVIO 


;Just  in  case  of  faulty  call 
;Exit  if  exec  mode 


;0  =  TopslO 


;Tops-20  monitor?? 
;No 

;Set  userio  piv  (jsys  310) 
;User  has  no  priv  for  diag. 


I 


.-Restore  the  ac 
;Exit 


N0PV20:  PNTMSF  CASCIZ/ 

VOU  DO  NOT  HAVE  PROPER  PRIVILIGES  TO  RUN  DIAGNOSTIC. 
YOU  NEED  WHEEL,  OPERATOR,  OR  MAINTENENCE  CAPABILITY. 
ALSO,  YOU  MUST  BE  ENABLED. 

n 

HALTF  ;Back  to  monitor 

JRST    START         ;ln   case  operator  types  continue 

NOPV10:  PNTMSF  [ASCI 2/ 

TRPSET  FAILED.  CANNOT  GET  USER  10  MODE 

/J 

EXIT  1, 

JRST  START         ;In  case  operator  types  continue 


r 


DFDXD 
DXCOM 

11 749 

11750 

11751 

11752 

11753 

11754 

11755 

11756 

11757 

11758 

11759 

11760 

11761 

11762 

11763 

11764 

11765 

11766 

11767 

11768 

11769 

11770 

11771 

11772 

11773 

11774 

11775 

11776 

11777 

1 1 778 

11779 

11780 
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SEQ  0^^2 


0^6707 
046710 
04671 1 
046712 
046713 
046714 
04671 5 
046716 
04671 7 
046720 
046721 
046722 
046723 
04672h 
046725 


046726 
046727 


336 
263 
336 
263 
261 
250 
200 
202 
200 
256 
260 
262 
250 
402 
263 


00 
17 
00 
17 
17 
14 
01 
01 
01 
00 
17 

:? 

14 
00 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030037 
000000 
065235 
000000 
000001 
065235 
046756 
046727 
060206 
046655 
046772 
000001 
065235 
065235 
000000 


OuJOOO  000003 
OCO  00  0  00  000000 


resources. 


♦Devrel  —  user  mode  release  routine 

♦Does  nothina  in  exec  mode,  in  user  mode  it  issues  a  diagnostic 

♦Monitor  call,  function  -  3,  to  return  device  to  monitor  resouri 

♦Device  is  specified  by  "mbcn"  and  "drive". 

♦ 

♦Calling  seq: 
♦Go  devrel 
♦Return  .-returns  +1  always 


DEVREL:  SKIPN 
RTN 
SKIPN 
RTN 
PUT 
EXCH 
MOVE 
MOVEM 
MOVE 
XCT 


ScTZM 
RTN 


USER 

DIA6CR 

1 

MBCN.DIAGCR 

1,REQARG+1 

1,RELARG+1 

1,C-2,,RELARG3 

.DIA6 

DIAGER 

1 

MBCN,i)IAGCR 

DIAGCR 


;User  mode 

;No. 

;Ycs.  already  have  device 

;No.  then  exit 

.•Actually  release  the  diagcr  one 

;Get  the  device  last  requested 

;Save  in  argument  list 

.•Pointer  used 

.•Execute  diag  function 

;Error 

;No  error 

;Now  restore  original  rh 

;Now  posesses  no  controllers 

;Exit 


;A.  gument  list  for  release  command 


RELAR6:  3 
2 


.•Function 

.'Reserved  for  device  adr  word 
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SEQ  0443 


11781 

11782 

r783 

11784 

11785 

11786 

11787 

11788 

11789 

11790 

11791 

11792 

11793 

11794 

11795 

11796 

11797 

11798 

11799 

11800 

11801 

11802 

11803 

11804 

11805 

11806 

11807 

11808 

11809 

11810 

11811 

11812 

11813 

11814 

11815 

11816 

11817 

11818 

11819 

11820 

11821 

11822 

11823 

11824 

11825 

11826 

11827 

11828 


046730 
046731 


046732 
046733 
046734 
046735 
046736 
U*»6737 
046740 
046741 
046742 
046743 
046744 
046745 
046746 
046747 
046750 
046751 
046752 
046753 
046754 


046755 
046756 
046757 


336  00  0  00  030037 
254  00  0  00  046745 


261  17  0 
260  17  0 
260  17  0 


260  17 
202  01 

201  01 
20?  01 
2v;J  01 
256  00 
260  17 

262  17 

202  14 
336  00 

263  17 
261 
201 


17 
01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


260  17  0 

262  17  0 

263  17  0 


00  000001 
00  043201 
00  046707 
00  046760 
00  046756 
00  000002 
00  046755 
00  060207 
00  046655 
00  046772 
00  000001 
00  065235 
00  047061 
00  000000 
00  000001 
00  000400 
00  045361 
00  000001 
00  000000 


000000  000001 
000  00  0  00  000000 
000000  165140 


*  Devreq  —  user  mode  request  routine 

♦Does  nothing  in  exec  mode,  in  user  mode,  this  routine  executes  a  diagnostic 

•Monitor  call  of  function  1  for  topslO  or  a  2  for  tops20  to  request  a 

♦Controller  and  single  dx20  from  the  monitor,  the  device  is  specified 

♦In  "mbcn"  and  "drive". 

♦rairness: 

♦A  release  is  issued  before  every  device  request  to 

♦Guarantee  that  we  take  the  device  for  short  periods  of  time. 


Drop  dead  time: 

The  diag  call  is  set  up  to  request  the  device  for  a  maximum  of 

1  Minute  run  time,  the  drop  dead  time  is  therefore  1  minute. 

Calling  sequence: 

Go     devreq 

Return  .-returns  +  1  always 


DEVREQ:  SKIPN   USER 
JRST    REQEX 

; Fairness  algorithim 


;User  mode? 

;  Exec,  do  massbus  enable  and  exit 


REQEX: 


PUT 

GO 

GO 

GO 

MOVEM 

MOVE  I 

MOVEM 

MOVE 

XCT 

60 

GET 

MOVEM 

SKIPN 

RTN 

ruT 

MOVE  I 
GO 
GET 
RTN 


1 

TCTRLC 

DEVREL 

DEVADR 

1,REQARG*1 

1.REQARG 

1,[-3,,REQARG] 

.DIAG 

DIAGER 

1 

MBCN,DIAGCR 

RH20FG 

1         '         •:■•■■  >:--v^: 

1,1827 

.CONO 

1 


it 


;Save  the  ac 

;Test  for  control  c  being  typed 

;Yes,  release  device  if  we  nave 

;Build  device  address  word 

; Place  in  argument  list 

.'Request  controller  and  all  drive  (dx20's) 

; Pointer  word 

;A  diagnostic  call 

; Error 

;No  error 

;Flag  device 


;Save  acl 
;Massbus  enable 
;Do  a  cono 
.-Restore  the  ac 
.-Exit 


.-Argument  list  for  request  command 
REQARG: 


1 
Z 


'D1000**D60^*D1 


1  For  topslO  or  a  2  for  tops20 
Reserved  for  device  add'^ess 
1  Minutes  (in  milliseconds) 


■daMB^^Mba 


IMWMWaHHMMtii^ailill 


mmammmmtmummmm 


•mimtmimmmmmmmtmimm'tm 


1^ 


DFDXD      DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5  MACRO  X53A(1152)  18:38     6-Apr-85  Page  67 

DXCOM      MAC  18-Jdn-85  14:26  USER  MODE  SUPPORT  ROUTINES  *JEQ  0444 


11829 
11830 
11831 
11832 
11833 
11834 
11835 
11836 
11837 
11838 
11839 
11840 
11841 
11842 
11843 
11844 
11845 
11846 
11847 
11848 
11849 
11850 
11851 
11852 
11853 


♦Devadr  —  builds  a  device  addr  word  for  user  mode 

♦This  routine  builds  the  proper  device  address  word  necessary 

*For  the  diaQ  monitor  call,  the  word  is  returned 

*In  ad  and  looks  like  this: 


rh  physical  device  code 
logical  rh  (0-7) 
drive  number  (0-7) 


♦Bits  00-06 
♦Bits  21-23 
♦Bits  27-29 

* 

♦Calling  seq: 

♦Go   devadr  ;call  the  routine 

♦Return  ;adr  word  is  in  ad 


046760  261  17  0  00  000000 

046761  200  00  0  00  000014 

046762  336  00  0  00  030516 

046763  242  00  0  00  000003 

046764  260  17  0  00  046601 

046765  137  01  0  00  060210 

046766  137  13  0  00  060211 

046767  200  01  0  00  000000 

046770  262  17  0  00  000000 

046771  263  17  0  00  000000 


DEVADR:  PUT 
MOVE 
SKIPN 
LSH 
GO 
DPB 
DPB 
MOVE 
GET 
RTN 


0  :Save  acO 

O.MBCN        :Get  device  code 
MONTYP        ;Tops-20  monitor?? 
0,3  .-Position  all  the  way  left 

CHSEL         ;Get  chan  #  to  ad 
1. [POINT  5,0,233       ;Include  logical  chan 
DRIVE, [POINT  3,0,29]    .-Include  dxZO  number 
1,0  ;Now  get  dev  adr  to  ad 

0  .-Restore  acO 

.-And  exit 
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SEO  0445 


1185A 

11855 

11856 

11857 

11858 

11859 

11860 

11861 

11862 

11863 

1186A 

11865 

11866 

11867 

11868 

11869 

11870 

r871 

1  872 

1*873 

1  i  87A 

r875 

r.876 

11877 

11878 

11879 

11880 

11881 

11882 

11883 

1188A 

11885 

11886 

11887 

11888 

11889 

11890 

11891 

11892 

11893 

1189A 

11895 

11896 

11897 

11898 

11899 

11900 

11901 

11902 

11903 

1190A 

11905 

11906 


0A6772 
0A6773 
04677A 
0A6775 
0A6776 
0A6777 
0A7000 


0A7001 
0A7002 
0A7003 

0A700A 
0A7005 
0A7006 
0A7007 
0A7010 
0A701 1 
0A7012 
0A7013 
0A701A 
0A701 5 
0A7016 
0A7017 
0A7020 
0A7021 

0A7022 
0A7023 
0A702A 
0A7025 
0A7026 
0A7027 
0A7030 

0A7031 
0A7031 
0A7032 

0A7033 
0A7033 
0A703A 


255 
5A0 
275 
202 
261 
261 
261 


00 
00 
00 
00 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 


00 
17 
00 
00 
00 
00 
00 


000000 
000000 
000002 
065236 
000001 
000002 
000003 


037  01  0  00  060212 
20C  00  0  00  065236 
037  06  0  00  000001 


037  01 

200  00 
037  06 
037  01 
336  00 
25A  00 
5A0  02 
5u:  02 
205  03 

201  01 
10A  00 
25A  00 
25A  00 
33A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


060227 
000001 
000001 
0302A2 
030516 
0A7022 
000001 
AOOOOO 
777660 
000101 
00001 1 
0A7031 
0A7033 
000000 


037 
262 
262 
262 
336 
A02 
037 


01 
17 
17 
17 
00 
00 
1A 


1  01  0A7035 
0  00  000003 
0  00  000002 
0  00  000001 
0  00  030516 
0  00  0001 3A 
0  00  OOOOOA 


037  01  0  00  060232 
25A  00  0  00  0A7023 


037  01  0  00  0602A; 
25A  00  0  00  0A702: 


♦Diager  —  report  monitor  call  error  in  user  mode  this  routine 
^Prints  an  error  message  stating  where  and  why  a  diagnostic 
♦Monitor  call  has  failed  and  then  either  continues  or  restarts 
♦For  the  for  lack  of  anything  more  reasonable  to  do. 

* 

♦  Calling  seq: 

♦  Go     diager  ;call  the  routine 


DIAGER:  JFCL 
HRR 
SUBI 
MOVEM 
PUT 
PUT 
PUT 
PNTMSF 


0,(P) 
0,2 

DIAGPC/r 
1 


;A  debugging  aide  location 
;6et  PC  . 


:Get  pc 
; Adjust  it 


\ 


CASCI2/ 


ERROR  RETURN  FROM  DIAGNOSTIC 


HOVE 
PNT6F 
PNTMSF 
ERROR  CODE=/J 
MOVE 
PNT6F 
PCRLF 
SKIPN 
JRST 
HRR 
HRLI 
MOVSI 
MOVE  I 
ERSTR 
JRST 
JRST 
SKIPA 

TMON:   PNTMSF 
T20ER1:  GET 
GET 
GET 
SKIPN 
SETZM 
ERRHLT 


DIAGPC 

CASCIZ/ 

OJ 


MONTYP 
TMON 

2,.FHSLF 

3,-*D80 

U.PRIOU 

DIAER1 
DIAER2 


aTlOTBLd) 


MONTYP 
13A 


MONITOR  CALL  (DIA6  JSYS)  mT  PC-/] 
;Get  pc 
; Print  it 


Get  error 
Print  it 


code 


ac2 


Which  monitor  ? 

No.  tops. 

Get  error  number  to 

Get  process  handle 

Should  be  no  messages  longer  than  80 

Set  up  to  print  on  terminal 

This  call  transfers  the  error  string 

Failure  of  undefined  error  number 

Failure  of  size,  destination,  or  process 


handle 


;Print  tops  10  error 
;Sucess  (somehow) 


code 


SKIP  IF  TOPS20 

SO  YOU  CAN  '^C  IN  DDT  AND  GET  OUT 

STOP 


DIAER1:  PNTMSF  [ASCIZ/ 
UNDEFINED  ERROR  NUMBER  FP'^"  0IA6  JSYS/] 
JRSr    T20ER1 


DIAER2:  PNTMSF  CASCIZ/ 

SIZE,  DESTINATION.  OR  PROCESS  HANDLE  ERROR  FROM  DIAG  JSYS/] 
JRST    T20ER1 


DFDXO 
DXCOM 

11907 

11908 

11909 

11910 

11911 

11912 

11913 

119H 

11915 

11916 

11917 

11918 

11919 

11920 

11921 

11922 

11923 

11924 

11925 

11926 

11927 

11928 
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SEQ  0446 


047035 
047036 
047037 
047040 
047041 
047042 
047043 
047044 
047045 
047046 
047047 
047050 
047051 
047052 
047053 
047054 
047055 
047056 
047057 
047060 


000000 
COOOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 


060256 
060262 
060267 
060275 
060304 
06031 2 
060322 
060330 
060342 
060350 
060362 
060373 
060401 
060406 
060411 
060415 
060421 
060421 
060421 
060421 


;Diag  err  msgs  from  tops-10 


T10TBL 


CASCIZ/UNRECOGNIZED  ERROR  /] 

;asciz/user  does  not  have  PRIV./J 
:asciz/illegal  number  of  arguments/.! 
:asciz/illegal  controller  device  code/3 

:ASCIZ/ILLE6AL  drive  (DX20)  NUMBER/] 

:asciz/device  already  assigned  to  this  job/3 

:asciz/dev  not  mounted  in  maint  mode/3 

:asciz/all  drives  on  dx20  must  be  assigned  to  your  job/3 

:asciz/no  free  core  block  in  monitor/3 

:asciz/issued  "setchn^*  pgm  without  an  assigned  device/3 

:asciz/ccw  indicates  xfer  will  cross  page  BOUNDRY/3 

:asciz/illegal  function  specified/3 

:asciz/job  cannot  be  virtual/3 

:asciz/no  such  CPU/3 

:asciz/cpu  not  RUNNING/3 

:asciz/bad  argument  list/3 

:asciz/unknown  error  number,  check  the  diag  jsys  errors  for  tops  10/3 

:ASCIZ/UNKN0WN  error  number,  check  the  diag  jsys  errors  for  tops  10/3 
:ASCIZ/UNKN0WN  error  number,  check  the  diag  jsys  errors  for  tops  10/3 
:ASCIZ/UNKN0WN  error  number,  check  the  diag  jsys  errors  for  tops  10/3 


. 
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SEQ  0^^7 


11929 

11930 

11931 

11932 

11933 

1193A 

11935 

11936 

11937 

11938 

11939 

119A0 

11941 

11942 

11943 

11944 

11945 

11946 

11947 

11948 

11949 

11950 

11951 

11952 

11953 

11954 

11955 

11956 

11957 

11958 

11959 

11960 

11961 

11962 

11963 

11964 


047061 
047062 
047063 

047064 
047065 
047075 
047105 
047110 
047120 
047121 


047122 
047123 
047124 
047125 
047126 
047127 
047130 
047131 

047132 
047140 


000000  000000 

000000  000000 

000000  000000 

000000  000000 


000000 
777775 


000000 
000000 
000000 
000000 
000000 
OuJOOO 
000000 
000000 


000000 
047140 


000000 
000004 
000010 
000014 
000020 
000024 
000030 
000034 


SUBTTL  STORAGE  FOR  CHANNEL  ROUTINE  VARIABLES 

;*Sofne  channel  routine  variables 

;*Here  are  the  conditional  (rhl0/rh20)  parameters 

.-♦Necessary  for  use  with  the  data  channel  routines. 

;* 

;*The  #  of  words  (maximum)  that  will  be  specified  in  a  single 

.-♦Channel  control  word,  if  not  an  even  multiple  of  128.  disk 

.-♦Overruns  could  occur. 


RH20FG: 
MAXUD : 
CBASE : 

JMPUD : 

SCLP: 

CINIT: 

POKEBK : 

CADTBL: 

CHK: 

CHCNT: 


0 
0 
000000 

0 

BLOCK 

BLOCK 

BLOCK  : 

BLOCK 

0 

-3..L0GBUF 


^^08 
^^08 

*D8 


*D1920  or  *d8192 

A  base  for  computing  icwa 

The  340000  causes  paging 

;8  Software  clp's 
;8  Channel  init  flags 

;Ccw  buff  params  last  adr.. first  adr 
; Either  4  or  10  logout  words  per  channel 
.-Used  by  get  log 


.-Defining  initial  control  wd  addr  for  each  channel 


ICUAO 
ICUAl 
ICUA2 
ICUA3 
ICUA4 
ICUA5 
ICUA6 
ICWA7 


0 

4 

10 

14 

20 

24 

30 

34 


DF22FG:  BLOCK   6 
LOGBUF;  BLOCK   *D60 


.-6  22-Bit  dflO  flags 
.-Buffered  logout  area 
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SEQ  0448 


11965 

11966 

11967 

11968 

11969 

11970 

11971 

11972 

11973 

11974 

11975 

11976 

11977 

11978 

11979 

11980 

11981 

11982 

11983 

11984 

11985 

11986 

11987 

11988 

11989 

11990 

11991 

11992 

11993 

11994 

11995 

11996 

11997 

11998 

11999 

12000 

12001 

12002 

12003 

12004 

12005 

12006 

12007 

12008 

12009 

12010 

12011 

12012 

12013 

12014 

12015 

12016 

12017 

12018 

12019 


047234 
047235 
047236 
047237 
047240 
047241 
047242 
047243 
047244 
047245 
047246 
047247 
047250 
047251 
047252 
047253 
047254 
047255 
047256 
047257 
047260 
047261 
047262 
047263 
047264 
047265 
047266 
047267 
047270 


261 
261 
037  00 
336  00 
23"  00 
332  00 
254 


17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
135  00 
242  00 
037  16 
037  00 
200  00  0 
037  13  0 
332  00  0 
254  00  0 
200  00  0 
607  00  0 


254  00 

200  00 
037  13 
254  00 

201  02 
332  00 
201  02 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 


037  00  0 
200  00  0 
037  01  0 
037  00  0 


00  000000 
00  000002 
00  060436 
00  065234 
00  047243 
00  030037 
00  047247 
00  057412 
00  000002 
00  000003 
00  057735 
00  000001 
00  000000 
00  052502 
00  047256 
00  030046 
00  000200 
00  047261 
00  000001 
00  000000 
00  047270 
00  047521 
00  047061 
00  047500 
00  050023 
00  060440 
00  000001 
00  OQOOOO 
00  030242 


SU8TTL  REGISTER  AND  CONI  PRINT  ROUTINES 

♦There  are  two  modes  of  program  printout:  normal  (long) 
♦And  short  (text  inhibit  switch  is  set),  the  normal  mode  interprets 
♦The  register  bits  in  english  (sixbit  format)  while  the  short  printout 
♦Mode  prints  register  and  coni  data  in  halfword  octal  mode. 

* 


To  use  the  coni  printer: 

Move  acl,arg 

Go  conipt 
Return 

To  use  the  register  printer: 

Move  acUarg 

Go  regpnt 
Return 


.-fetch  coni  data 
; print  it 


;36  bit  datai  word 
;print  it 


The  register  printer  qets  the  register  number  and  drive  (dx20) 
Number  from  the  left  naif  of  the  datai  word. 

To  use  the  channel  buffer  printer  for  the  rhlO  (reg  74): 
Move    acl.data      ;36  bit  chan  buff  data 
Return 
Go     cbufpt        ; print  it. 


CONIPT:  PUT 
PUT 


CPT: 


CNIA: 


CNIB: 


PNTMSG 

SKIPN 

JRST 

SK I PE 

JRST 

LDB 

LSH 

PNTOCS 

PNTMSG 

MOVE 

PNTHU 

SKIPE 

JRST 

MOVE 

TLNN 

JRST 

MOVE 

PNTHW 

JRST 

MOVE  I 

SKIPE 

MOVE  I 

GO 

PNTMSG 

MOVE 

PNTl 

PCRL 


0 

2 

CASCIZ/CONI 

DFDXEF 

USER 
CPT 


O.CPOINT  7.MBCN,^] 


;Save  ac's 


n 

RUNNING  DFDXE? 

NO 

YES,  IN  USER  MODE? 

YES,  SKIP  PRINTING  RH20  NUMBER 


CASCIZ/:  /] 
0,1 

SHMODE 

0,CONSU 
TXTINH 
CNIA 
0,1 

CNIB 

2,TBL10 

RH20FG 

2,TBL20 

TYPBIT 

[ASCIZ/PIA=/3 

0,1 


;Get  the  device  code 


Justif)f  for  printing 
Print  in  octal 

Short  printout 
Print  in  halfword  format 
Short  printout  mode  ? 
Yes 

Get  console  switches 
Long  or  short  printout 
Normal 

Short  printout 
; Print  in  halfword  forrr.jt 


.•Pointer  to  sixbit  na^'e  table 
.-Print  bit  data 
.-Print  the  pi  address 


DFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5 
DXCOM   MAC     18-Jdn-85  14:26        »UGISTER  AND  CONI  PRINT  ROUTINES 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  71-1 


SEQ  04A9 


12020  0A7271  262  17  0  00  000002 

12021  0A7272  262  17  0  00  000000 

12022  047273  263  17  0  00  000000 


GET 
GET 
RTN 


2 

0 


i  DFDXD 
DXCOM 

12023 

12024 

12025 

12026 

12027 

12028 

12029 

12030 

12031 

12032 

12033 

12034 

12035 

12036 

12037 

12038 

12039 

12040 

12041 

12042 

12043 

12044 

12045 

12046 

12047 

12048 

12049 

12050 

12051 

12052 

12053 

12054 

12055 

12056 

12057 

12058 

12059 

12060 

12061 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
MAC    18-Jan-85  14:26 
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^t,7275 
047276 
047277 
047300 
047301 
047302 
047303 
047304 
047305 
047306 
047307 
047310 
04731 1 
047312 
047313 
047314 
04731 5 
047316 
047317 
047320 
047321 
047322 
047323 
047324 
047325 
047326 


261 
261 
261 
261 
261 


17 
17 
17 
17 
17 


135  02 
260  17 
332  00 
254  00 
200  00  0 
607  00  0 
254  00  0 
037  00  0 
200  00  0 
037  13  0 
254  00 
260  17 
260  17 
2oJ  17 
260  17 
037  00 
262  17 
262  17 
262  17 
262  17 

262  17 

263  17 


0  00  000000 
0  00  000001 
0  00  000002 
0  00  000003 
0  00  000004 
0  00  060441 
0  00  047327 
0  00  052502 
0  00  047310 
00  030046 
00  000200 
00  047314 
00  057735 
00  000001 
00  000000 
0  00  047320 
0  00  047355 
0  00  047370 
0  00  047401 
0  00  047421 
0  00  030242 
0  00  000004 
0  00  000003 
0  00  000002 
0  00  000001 
0  00  000000 
0  00  000000 


REGISTER  AND  CONI  PRINT  ROUTINES 

Accumulators  used  by  regpnt  .  . 
Ac     function 

Used  for  printing 
Holds  36  bit  datai  word 
Holds  register  number 
Holds  various  table  pointers 
4      Scratch  ac 


SEQ  0450 


REGPNT 


RPTl: 


RPT2: 


PUT 

PUT 

PUT 

PUT 

PUT 

LDB 

GO 

SKIPE 

JRST 

MOVE 

TLNN 

JRST 

PNTMSG 

MOVE 

PNTHW 

JRST 

GO 

GO 

GO 

GO 

PCRL 

GET 

GET 

GET 

GET 

GET 

RTN 


? 

2 
3 
4 

2, [POINT  6J,5D 

RNAM 

SHMODE 

.+4 

O.CONSU 

TXTINH 

RPTl 

CASCIZ/:  /] 

OJ 

RPT2 

DRPNT 

LFTBIT 

RITBIT 

BYTES 


;Save  ac's 


Fetches  register  number 

Print  reg  name  and  dev  code 

Short  printout  mode  ? 

Yes 

Get  console  switches 

Normal  printout 

Get  register  data 

Halfword  for  short  printout 

Print  dx20  if  external  reg  # 
Print  left  side  bits 
Print  riqht  side  bits 
Print  byte  organized  data 
Prints  a  crlf 
Clean  up 
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SEQ  0451 


12062 

12063 

12064 

12065 

12066 

12067 

12068 

12069 

12070 

12071 

12072 

12073 

12074 

12075 

12076 

12077 

12078 

12079 

12080 

12081 

12082 

12083 

12084 

12085 

12086 

12087 

12088 

12089 

12090 

12091 

12092 

12093 

12094 

12095 

12096 

12097 

12098 

12099 

12100 

12101 

12102 

12103 

12104 

12105 

12106 

12107 

12108 

12109 

12110 

12111 

12112 

12113 


047327 
047330 
047331 
047332 
047333 
047334 
047335 
047336 
047337 
047340 


303  02  0 
254  00  0 
201  03  0 
270  03  0 
254  00  0 


135  03 
332  00 
254  00 
271  03 
334  00 


0 
0 
0 
0 
0 


00  000037 
00  047334 
00  050222 
00  000002 
00  047342 
00  047437 
00  047061 
00  047341 
00  047450 
00  000000 


047341  271  03  0  00  047440 


047342 
047343 
047344 
047345 
047346 
047347 
047350 
047351 
047352 
047353 
047354 


047355 
047356 
047357 
047360 
047361 
047362 
047363 
047364 
047365 
047366 
047367 


047370 
047371 
047372 
047373 
047374 
047375 
047376 
047377 
047400 


200  00 
037  00 
037  00 
336  00 
254  00 
332  00 
263  17 
135  00 
242  00 
037  16 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


336  00 
cy  00 
332  00 
263  17 
303  02 
254  00 
037  00 
135  00 
037  16 
037  00 
263  17 


303 
263 
261 
201 
332 
201 
260 
262 
263 


02 
17 
17 
02 
00 

?? 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


03 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000002 
00001 1 
065234 
047351 
030037 
000000 
057412 
000002 
000003 
000000 


065234 
047361 
030037 
000000 
000037 
047366 
000055 
057626 
000003 
057735 
000000 


000037 
000000 
000002 
047651 
047061 
047642 
050023 
000002 
000000 


.-Register  sixbit  name  &  device  code  printer 
RNAM: 


RNAMI 


RNAMC : 


CAILE 

JRST 

MOVE  I 

ADD 

JRST 

LD6 

SKIPE 

JRST 

ADD  I 

SKI  PA 

ADDI 

MOVE 

PNTSIX 

PNTCI 

SKIPN 

JRST 

SKIPE 

RTN 

LDB 

LSH 

PNTOCS 

RTN 


2.37 

RNAMI 

3.EXRNAM 

3.2 

RNAMC 

3.INRNDX 

RH20F6 

.♦3 

3.NAM10 


3,NAM20 
(3) 


.•Register  internal  or  external 
.•Internal  to  the  rhxx 
.•External,  get  tbl  pointer 
; Index  into  the  table 

.•Create  index  into  table 
.•Which  is  it? 

;RhlO  table  base  address 


:Rh20  table  base  address 


tt 


.•Fetch  name  from  the  table 

.•Print  it 

.•Followed  by  a  dash 
DFDXEF         ;RUNNIN6  DFDXE? 
.-^3  ;N0 

USER  ;YES.  IN  USER  MODE? 

;YES.  SKIP  PRINTING  RH20  NUMBER 
[POINT  7.MBCN.9]       ;Get  device  code 
2  .-Justifjf  for  printing 

.•Print  in  octal 

;And  exit 


.•Print  dx20  number  if  external  register 
DRPNT ; 


DRPNTl 


SKIPN 

JRST 

SKIPE 

RTN 

CAILE 

JRST 

PNTCI 

LDB 

PNTOCS 

PNTMSG 

RTN 


DFDXEF 
USER 

2.37 

DRPNTl 

[POINT  3.1.17J 
[ASCIZ/:  /: 


RUNNING  DFDXE? 

NO 

YES.  IN  USER  MODE? 

YES.  SKIP  PRINTING  RH20  NUMBER 

Internal  or  external  reg 

Print  a  dash 
Get  dx20  number 
Print  it  in  octal 


.•Print  left  side  of  external  registers 


LFTBIT:  CAILE 
RTN 
PUT 
MOVE  I 
SKIPE 
MOVE  I 
GO 
GET 
RTN 


2.37 

2 

2.LFT10 

RH20FG 

2.LFT20 

TYPBIT 

2 


.•Internal  or  external 
.•Internal  register,  exit 
;Save   ac2 
.'Get  table  address 


.•Print  sixbit  data 
.•Restore  the  ac 
;And  exit 
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SEQ  0452 


121U 

12115 

12116 

12117 

12118 

12119 

12120 

12121 

12122 

12123 

12124 

12125 

12126 

12127 

12128 

12129 

12130 

12131 

12132 

12133 

12134 

12135 

12136 

12137 

12138 

12139 

12140 

12141 

12142 

12143 

12144 

12145 

12146 

12147 

12148 

12149 

12150 

12151 

12152 

12153 

12154 

12155 

12156 

12157 

12158 


047401 
047402 
047403 
047404 
047405 
047406 
047407 

047410 
04741 1 

047412 
047413 
047414 
047415 
047416 
047417 
047420 


047421 
047422 
047423 
047424 
047425 
047426 

047427 
047430 

047431 
047432 
047433 
047434 
047435 
047436 


261  17 
307  02 
254  00 
135  03 
332  00 
254  00 
271  03 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


000002 
000037 
047416 
047437 
047061 
04741 1 
047470 


334  00  0  00  000000 
271  03  0  00  047460 


550  02  0 
260  17  0 

262  17  0 

263  17  0 
201  03  0 
270  03  0 
254  00  0 


03  000000 
00  050023 
00  000002 
00  000000 
00  050262 
00  000002 
00  047412 


307  02 
254  00 
135  03 
332  00 
254  00 
21"^   03 


0  00  000037 
0  00  047434 
0  00  047437 
0  00  047061 
0  00  047430 
0  00  047470 


334  00  0  00  000000 
271  03  0  00  047460 


554  03 
260  17 
263  17 
201  03 
270  03 
254  00 


0  03  000000 
0  03  000000 
0  00  000000 
0  00  050262 
0  00  000002 
0  00  047431 


047437  000000  000000 


;Pn*nts  right  side  of  external  registers 
;Prints  all  bit  data  for  internal  registers 


RITBIT:  PUT 
CAIG 
JRST 
LDB 
SKIPE 
JRST 
ADD  I 


RITC: 


RITA: 


SKI  PA 
ADD  I 

HRRZ 

GO 

GET 

RTN 

MOVE  I 

ADD 

JRST 


2 

2,37 

RITA 

3JNRNDX 

RH20FG 

3,SER10 


3,SER20 

2,(3) 

TYPBIT 

2 

3,EXRSER 

3,2 

RITC 


;Sa\/e  ac2 

.•Internal  or  extenal  reg 

;External 

;Get  correct  index 


;Get  table  base 


;Get  table  base 

;Get  bit  table  address 
;Print  table  data 
.-Restore  the  ac 
;And  exit 

:Get  table  base  addr 
; Index  by  reg  number 


.•Dispatches  off  to  the  proper  byte  service  via  tbl  lookup 
BYTES: 


BYTEC: 
BYTEA: 


CAIG 

JRST 

LDB 

SKIPE 

JRST 

ADD  I 

SKI  PA 
ADD  I 

HLRZ 

GO 

RTN 

MOVE  I 

ADD 

JRST 


2,37 
BYTEA 
3,INRNDX 
RH20FG 

3,SER10 


3,SER20 
3-(3) 

3,EXRSER 

3,2 

BYTEC 


.•Internal  or  external  register 

.•External 

.•Internal,  get  an  index 


;Get  table  base 


.-Get  table  base 

;Get  dispatch  address 
;To  the  service  routine 
;And  exit 

;Get  table  base  addr 
.•Index  by  reg  # 


.•Defining  proper  index  for  some  of  the  internal  look  ups 
INRNDX:  0 
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SEQ  0453 


12159 

12160 

12161 

12162 

12163 

12164 

12165 

12166 

12167 

12168 

12169 

12170 

12171 

12172 

12173 

12174 

12175 

12176 

12177 

12178 

12179 

12180 

12181 

12182 

12183 

12184 

12185 

12186 

12187 

12188 

12189 

12190 

12191 

12192 

12193 

12194 

12195 

12196 

12197 

12198 

12199 

12200 

12201 

12202 

12203 

12204 

12205 

12206 

12207 


047440 
047441 
047442 
047443 
047444 
047445 
047446 
047447 

047450 
047451 
047452 
047453 
047454 
047455 
047456 
047457 


62  50  63 
62  50  63 
62  50  60 
62  50  60 
62  50  51 
62  50  62 
62  50  67 
62  50  44 

62  50  43 

6^  50  51 

62  50  44 

62  50  62 

62  50  62 

62  50  62 

62  50  62 

62  50  43 


42  41  62 
64  43  62 
42  41  62 
64  43  62 
66  62  00 
44  62  47 
64  62  47 
51  41  47 

62  00  00 

41  62  00 

42  65  46 

41  45  00 
47  26  20 
47  26  24 
47  27   20 

42  65  46 


047460 
047461 
047462 
047463 
047464 
047465 
047466 
047467 


047703 
047712 
047704 
047712 
047735 
047743 
057751 
057751 


047640 
047556 
047554 
047556 
047563 
047565 
047567 
047571 


SUBTTL  RE6-C0NI  PRI-"^TER  LOOKUP  TABLES 

♦Various  tables  needed  by  print  routines,  there  are  several  type  tables 

♦Here  and  most  are  self  explanatory,  there  is  one  type  that  needs. 

♦Clarification,  some  of  the  sixbit  tables  have  octal  words  as  their  first 

♦Two  entries  followed  by  the  normal  list  of  sixbit  names. 

♦These  tables  are  set  up  for  use  with  the  *'typbit"  subroutine  and  the  first 

♦Two  octal  words  are  masks  for  "tyDbit". 

♦Word-1:  has  a  one  in  each  of  the  36  bit  positions  for  which 

♦  There  is  a  corresponding  sixbit  name. 
♦Word-2:  has  a  one  in  each  bit  position  that  should  never 

*  Be  non-zero. 
♦ 

♦Table  of  sixbit  names  for  masbus  controller  internal  registers 

.•♦Rh20  table  can  be  indexed  into  by  bits  3-5  of  the  datai  word 
;^RhlO  table  can  be  indexed  into  by  bits  1-3  of  the  datai  word 


NAM20 : 


NAMIO: 


SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 

SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/RHSBAR/ 

/RHSTCR/ 

/RHPBAR/ 

/RHPTCR/ 

/RHIVR/ 

/RHRDR6/ 

/RHWTRG/ 

/RHDIAG/ 

/RHCR/ 

/RHIAR/ 

/RHDBUF/ 

/RHRAE/ 

/RHR660/ 

/RHR664/ 

/RHRG70/ 

/RHCBUF/ 


R70 
R71 
R72 
R73 
R74 
R75 
R76 
R77 

R40 
R44 
R50 
R54 
R60 
R64 
R70 
R74 


; Table  of  internal  register  pointers 

.-Pointer  to  byte  data  printer,,  pointer  to  start  of  reg  bit  table 

SER20:  R70SER,,R70TBL 
R71SER,,R71TBL 
R72SER,,R72T8L 
R73SER,,R73TBL 
R74SER,,R74TBL 
R75SER,,R75T8L 
[RTN3,,R76T8L 
CRTN3,,R77T8L 
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12208 

12209 

12210 

12211 

12212 

12213 

12214 

12215 

12216 

12217 

12218 

12219 

12220 

12221 

12222 

12223 

12224 

12225 

12226 

12227 

12228 

12229 

12230 

12231 

12232 

12233 

12234 

12235 

12236 

12237 

12238 

12239 

12240 

12241 

12142 

12243 

12244 

12245 

12246 

12247 

12248 

12249 

12250 

12251 

12252 

12253 

12254 

12255 

12256 

12257 

12258 

12259 

12260 

12261 


047470 
047471 
047472 
047473 
047474 
047475 
047476 
047477 

0'  •'•50'. 
(  'bC' 

04; .  u 

047503 
047504 
047505 
047506 
047507 
047510 
047511 
047512 
047513 
047514 
047515 
047516 
047517 
04752C 

047521 
047522 
047523 
047524 
047525 
047526 
047527 
047530 
047531 
047532 
047533 
047534 
047535 
047536 
047537 
047540 
047541 
047542 
047543 
047544 
047545 
047546 
047547 
047550 
047551 
047552 
047553 


047751 
047773 
050001 
057751 
057751 
057751 
057751 
057751 


047604 
047614 
047620 
047626 
047640 
047640 
047640 
047563 


SERIO 


000000  777770 
777777    000000 

44  42  60  45  00  00 

45  70  43  45  60  00 

54  56  47  15  67  43 
63  50  64  15  67  43 

55  42  70  15  45  62 
44  62  45  00  00  00 

62  41  45  00  00  00 

43  50  56  62  44  71 
57  66  62  62  65  56 

55  42  43  45  56  42 
41  64  64  56  00  00 

63  43  62  46  65  54 
41  64  56  15  45  56 
60  43  62  46  65  54 

44  57  56  45  00  00 

675607  776370 
102170  001400 
41  62  46  65  54  54 
43  42  46  65  54  54 
43  43  51  56  50  00 
43  50  56  41  43  64 

43  50  56  60  54  63 

44  46  22  22  00  00 
43  45  70  43  00  00 
51  54  46  43  00  00 
63  44  62  41  45  00 
43  44  60  45  00  00 

43  67  60  45  00  00 

56  70  55  00  00  00 

44  42  60  45  00  00 

45  70  43  45  60  00 
43  50  41  56  45  62 

43  43  67  62  64  00 

57  66  62  62  65  56 

44  62  45  00  00  00 
51  54  43  00  00  00 
60  63  46  41  51  54 

43  42  57  66  00  00 
62  41  45  00  00  00 

41  64  64  56  00  00 

42  65  63  71  00  00 

44  57  56  45  00  00 


TBL20; 


TBLIO 


R40SER, 
R44SER. 
R50SER, 
CRTN3,, 
CRTN3,, 
CRTNJ,, 
CRTN3,, 
CRTNJ,, 


,R40TBL 

,R44TBL 

.R50TBL 

ft54TBL 

R60TBL 

R64TBL 

R70TBL 

R74TBL 


; Non-implemented  register 
;Non- implemented  register 
;Non-implemented  register 


777770 

777777B} 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


7 

/DBPE/ 

/EXCEP/ 

/LNG-WC/ 

/SHT-WC/ 

/MBX-ER/ 

/DRE/ 

/RAE/ 

/CHNRDY/ 

/OVRRUN/ 

/MBCENB/ 

/ATTN/ 

/SCRFUL/ 

/ATN-EN/ 

/PCRFUL/ 

/DONE/ 


;Mask 
;Mask 


-  1 

-  2 


675607, 

1B2I1B7 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


,776370 

!17B14!3B27 
/ARFULL/ 
/CBFULL/ 
/CCINH/ 
/CHNACT/ 
/CHNPLS/ 
/DF22/ 

/CE;(C/ 

/ILFC/ 

/SDRAE/ 

/CDPE/ 

/CWPE/ 

/NXM/ 

/DBPE/ 

/EXCEP/ 

/CHANER/ 

/CCWRT/ 

/OVRRUN/ 

/DRE/ 

/ILC/ 

/PSFAIL/ 

/CBOV/ 

/RAE/ 

/ATTN/ 

/BUSY/ 

/DONE/ 


DFDXD 
DXCOM 

12262 

12263 

12264 

12265 

12266 

12267 

12268 

12269 

12270 

12271 

12272 

12273 

12274 

12275 

12276 

12277 

12278 

12279 

12280 

12281 

12282 

12283 

12284 

12285 

12286 

12287 

12288 

12289 

12290 

12291 

12292 

12293 

12294 

12295 

12296 

12297 

12298 

12299 

12300 

12301 

12302 

12303 

12304 

12305 

12306 

12307 

12308 

12309 

12310 

12311 

12312 

12313 

12314 
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SEQ  0455 


047554  000  00  0  00  000000 

047555  007770  600000 

04755^ 

047556  002200  200000 

047557  005570  400000 
0475^0  62  43  54  60  00  00 

047561  63  64  57  62  45  00 

047562  44  64  45  63  00  00 

047563  000  00  0  00  000000 

047564  007777  777000 

047565  000  00  0  00  000000 

047566  007777  000000 

047567  000  00  0  00  000000 
047570  007777  111111 

^i^lVf\  000000  001773 

047572  007777  776004 

047573  44  15  70  46  45  62 

047574  44  15  43  42  64  00 

047575  44  15  42  41  62  64 

047576  44  15  45  60  64  00 

047577  44  15  62  67  41  54 

047600  44  15  45  70  45  60 

047601  44  15  45  42  54  00 

047602  4^  15  41  64  41  00 

047603  44  15  43  54  53  00 

047604  003100  600100 

047605  004670  100000 

047606  43  42  64  57  00  00 

047607  44  42  64  57  00  00 

047610  55  15  55  57  44  45 

047611  47  45  56  45  ^'  60 

047612  44  70  45  63  JO  00 

047613  67  b4  45  66  55  00 

047614  000003  000000 

047615  007774  777000 

047616  53  51  51  56  64  00 

047617  53  41  51  56  64  00 

047620  000017  000000 

047621  007770  000000 

047622  44  42  15  57  44  44 

047623  45  66  15  42  71  64 

047624  57  44  15  42  71  64 

047625  60  41  62  42  51  64 


.-Controller  internal  register  bit  tables  rhlO 

R72TBL:  Z 

777B14I1B1811B19 


R71TBL: 
R73TBL: 


2200,, 200000 
5570,-400000 
SIXBIT  /RCLP/ 
SIXBIT  /STORE/ 
SIXBIT  /DTES/ 


R74TBL:  Z 

lllllllBZt 

R75TBL:  Z 

llll^M 


R76TBL:  Z 


llllBM  \117111 


R77TBL: 


R40TBL: 


1773 

llllBMl 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

3B8I1B11 

1B6I3B10 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


776004 

/D-XFER/ 

/D-CBT/ 

/D-BART/ 

/D-EPT/ 

/D-RWAL/ 

/D-EXEP/ 

/D-EBL/ 

/D-ATA/ 

/D-CLK/ 

!3B19!1B29 
!7B14!1B20 
/C8T0/ 
/DBTO^ 
^-MODE/ 
/  ;ENEDP/ 
/DXES/ 
/WTEVM/ 


R44TBL:  3fil7 

7774B17I777B26 
SIXBIT  /KIINT/ 
SIXBIT  /KAINT/ 


R50TBL: 


17817 

777B14 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/D8-0DD/ 
/EV-8YT/ 

/oD-eyi/ 

/PARBIT/ 


DFDXD 
DXCOW 

12315 

12316 

12317 

12318 

12319 

12320 

12321 

12322 

12323 

1232A 

12325 

12326 

12327 

12328 

12329 

12330 

12331 

12332 

12333 

1233A 

12335 

12336 

12337 

12338 

12339 

123A0 

123A1 

123A2 

12343 

1234A 

123A5 

12346 

12347 

12348 

12349 

12350 

12351 

12352 

12353 

12354 

12355 

12356 

12357 

12358 

12359 

12360 

12361 

12362 

12363 

12364 

12365 

12366 

12367 

12368 
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SEQ  0456 


047626 
047627 
047630 
047631 
047632 
047633 
047634 
047635 
047636 
047637 

047640 
047641 


047642 
047643 
047644 
047645 
047646 
047647 
047650 

047651 
047652 
047653 
047654 
047655 
047656 
047657 
047660 
047661 

047662 
047663 
047664 
047665 
047666 


047667 
047670 
047671 
047672 
047673 
047674 
047675 
047676 
047677 
047700 
047701 
047702 


000000 
000777 
62  41  45 
62  41  45 
62  41  45 
62  41  45 
62  41  45 
62  41  45 
62  41  45 
62  41  45 


000377 
777400 

15  27 

15 

15 

15 

15 

15 

15 

15 


R54TBL: 


26 
25 
24 
23 
22 
21 
20 


00 
00 
00 
00 
00 
00 
00 
00 


377 

777B17! 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


777400 
/RAE-7/ 
/RAE-6/ 
/RAE-5/ 
/RAE-4/ 
/RAE-3/ 
/RAE-2/ 
/RAE-1/ 
/RAE-0/ 


000  00  0  00  000000 
000777     mill 


001600  600000 
006170  000000 
60  41  62  15  45  62 
44  62  41  45  63  00 
64  62  41  00  00  00 
47  45  56  15  45  60 
60  41  62  42  51  64 


007600 
000170 
43  64  57 
43  42  64 

43  42  60 

44  64  41 
5 1  54  43 
47  45  56 
60  41  62 


600000 
000000 

44  00  00 
57  00  00 

45  00  00 
15  54  64 
00  00  00 
45  66  43 
42  51  64 


700000  000000 
000  00  0  00  000000 
57  60  44  41  64  41 
54  63  64  70  46  62 
62  44  15  62  45  66 


760760  000000 
017000  000000 

54  57  47  57  <S5  64 

55  15  60  41  62  00 
63  42  65  63  45  56 

56  67  43  63  11   00 

56  70  55  00  00  00 
54  63  64  70  45  62 

62  50  15  45  62  62 
54  56  47  15  67  43 

63  50  64  15  67  43 

57  66  62  62  65  56 


R60TBL:R64TBL:R70TBL:   Z 
111. ,111111 

;RhlO  left  side  bit  table  for  external  (device)  registers 

LFT20:  1B8nB9l1B10!lB1811B19 
6B8!17B14 
SIXBIT  /PAR-ER/ 
SIXBIT  /DRAES/ 
SIXBIT  /TRA/ 
SIXBIT  /GEN-EP/ 
SIXBIT  /PARBIT/ 


LFT10: 


7600,. 6B20 

170, ,6 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/CTOD/ 

/CBTO/ 

/CBPE/ 

/DTA-LT/ 

/ILC/ 

/GENEVC/ 

/PARBIT/ 


CCWTBL 


7B2 

Z 

SIXBIT 

SIXBIT 

SIXBIT 


.•Option  bits  for  kllO  op-data  ccw's 


/OPDATA/ 
/LSTXFR/ 
/RD-REV/ 


;Bit  printer  for  channel  logout  word  -#1 


LOSTBL: 


76B5!76B14 

17B8 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/LOGOUT/ 

/M-PAR/ 

/SBUSEN/ 

/NWCSZ/ 

/NXM/ 

/LSTXER/ 

/RH-ERR/ 

/LNG-WC/ 

/SHT-WC/ 

/OVRRUN/ 


iiilliWiliirillj^MIHr  ■ 


^■^WgTM    ■i.-iiw    ilM 


rij  ^IHIfll   »- 


,   ..^i^.l'^ 


If- 


wmmmmmmmmmmmmmmm 


mm 


mm 


ilMl»r«  nianiplr 


■  W'll  i| 
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SEO  0457 


12369 

12370 

12371 

12372 

12373 

1237A 

12375 

12376 

12377 

12378 

12379 

12380 

12381 

12382 

12383 

12384 

12385 

12386 

12387 

12388 

12389 

12390 

12391 

12392 

12393 

12394 

12395 

12396 

12397 

12398 

12399 

12400 

12401 

12402 

124C3 

12404 

12405 

12406 

12407 

12408 

12409 

124'.0 

12411 

12412 

12413 

12414 

^2415 

12416 


047703 
047704 
047705 
047706 
047707 
047710 
047711 

047712 
047712 
04771 3 
047714 
047715 
047716 
047717 
047720 
047721 
047722 
047723 
047724 
047725 
047726 
047727 
047730 
047731 
047732 
047733 
047734 

047735 
047736 
047737 
047740 
047741 
047742 

047743 
047744 
047745 

047746 
047747 

047750 


000000 

261  17 

037 

135 

037 

262 

263 


OC 
00 
06 
17 
17 


000000 
0  00  000000 
0  00  060442 
0  00  057437 
0  00  000000 
0  00  000000 
0  00  000000 


261  17  0 
037  00  0 
135  00  0 
037  01  0 
037  00  0 
135  00  0 
434  00  0 
213  00  0 
260  17  0 
037  00  0 
200  00  0 
037  02  0 
602  01  0 
254  00  0 
037  00  0 
33  •  00  0 
037  00  0 

262  17  0 

263  17  0 


00  000000 
00  060447 
00  057626 
00  000000 
00  060451 
00  060454 
00  060455 
00  000000 
00  050103 
00  060456 
00  000001 
00  000000 
00  000010 
00  047732 
00  060461 
00  000000 
00  060463 
00  000000 
00  000000 


261  17  0  00  OOOOCQ 
037  on  0  00  060465 
200  00  0  00  000001 
037  03  U  00  000000 

262  17  0  00  OOUOOO 

263  17  0  00  000000 

261  17  0  00  000000 
037  00  0  00  060470 
200  CO  0  00  000001 
037  06  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


SUBTTL  REGISTER  BYTE  INFORMATION  PRINTERS 

•♦These  are  the  routines  that  print  the  data  from 

; ♦Various  registers  when  the  data  is  organized  in  bytes. 

•  ***t***t****t ********** t**************t ******************************* 


R70SER:  0 
R72SER.  PUT 

PNTMSG 

LDB 

PNT6 

GET 

RTN 

R71SER: 

R73SER:  PUT 

PNTMSG 

LDB 

PNTl 

PNTMSG 

LDB 

lOR 

MOVNS 

GO 

PNTMSG 

MOVE 

PNT2 

TRNE 

JRST 

PNTMSG 

SKI  PA 

PNTMSG 

GET 

RTN 

R74SER:  PUT 

PNTMSo 

MOVE 

PNT3 

GET 

RTN 

R75SER;  PUT 

PNTMSG 

MOVE 

PNT6 

GET 

RTN 


CASCIZ/  BLOCK  ADDRESS  FIELD=/] 
CPOINT  16,1,35] 


0 

CASCIZ/  DX20=/J 

[POINT  3,1,173 

CASCIZ/  ♦  BLOCK  CNT=/] 

0, CPOINT  10.1,293 

C-1,, 7760003 

0,0  .'Make  positive 

F-SDN  ;Print  in  decimal 

CASCIZ/  '^NCTNtG0=/3 

0,1 

.•Print  Low  order  6  bits 
1,1832        ;Read  or  write  ?? 
.*3 
CASCIZ/(WRlTE)/3 

CASCIZ/(READV3 
0 


CASCIZ/INT  VECT  AD0R=/3 
C,1 


CASrjZ/READ  RE6=/3 
0,1 
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SEQ  0458 


12A17 

12A18 

12419 

12420 

12421 

12422 

12423 

12424 

12425 

12426 

12427 

12428 

12429 

12430 

12431 

12432 

12433 

12434 

12435 

12436 

12437 

12438 

12439 

12440 

12441 

12442 

12443 

12444 

12445 

12446 

12447 

12448 

12449 

12450 

12451 

12452 

12453 

12454 

12455 

12456 

.2457 

12458 

12459 

12460 

12461 

12462 

12463 

12464 


047751 
0^7752 
047753 
047754 
047755 
047756 
047757 
047760 
047761 
047762 
047763 
047764 
047765 
047766 
047767 
047770 
047771 
047772 

047773 
047774 
047775 
047776 
047777 
050000 

050001 
050002 
050003 
050004 
050005 
050006 


050007 
050010 
05001 1 
0500U 
05001 3 
050014 
050015 
050016 
050017 
050020 
050021 
050022 


261  17 
037  00 
135  00 
037  01 
037  00 
135  00 
242  00 
037  16 
037  00 
200  00 
037  02 
602  01 
254  00 
037  00 
334  00 
037  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
060447 
057626 
000000 
060472 
060474 
OOJOOl 
000003 
060456 
000001 
000000 
000010 
047770 
060461 
000000 
060463 
000000 
000000 


261  17  0  00  000000 
037  00  0  00  060465 
200  00  0  00  000001 
037  03  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 

261  17  0  00  000000 
037  00  0  00  060475 
200  00  0  00  000001 
037  06  0  00  000000 
2oJ  17  0  00  000000 
263  17  0  00  000000 


261 
037 
037 
135 
242 
037 
037 
200 
037 
037 


17 
00 
00 
00 
00 
16 
00 
00 
13 

?? 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
060500 
OOQOl 1 
057412 
000002 

000001 
000000 
030242 
000000 
000000 


R40SER:  PUT 

PNTMSG 

LD6 

PNTl 

PNTMSG 

LDB 

LSH 

PNTOCS 

PNTMSG 

MOVE 

PNT2 

TRNE 

JRST 

PNTMSG 

SKI  PA 

PNTMSG 

GET 

RTN 

R44SER:  PUT 

PNTMSG 

HOVE 

PNT3 

GET 

RTN 

R50SER:  PUT 

PNTMSG 

MOVE 

PNT6 

GET 

RTN 


CASCI2/  0X20=/] 
[POINT  3JJ7] 

[ASCIZ/ICWA=/] 
0, [POINT  8,1,28] 
OJ 

[ASCIZ/  FNCTN*GO=/] 
OJ 


;Read  or  write 


1JB32 
.♦3 

[ASCIZ/(WRITE)/] 

[ASCIZ/(READ)/] 
0 


[ASCIZ/INT  VECT  ADDR=/] 
OJ 


[ASCIZ/DATA  BUFFER^/] 
OJ 


; Assumes  36  bit  data  in  ad 


CBUFPT: 


PUT 

PNTMSG 

PNTCI 

LDB 

LSH 

PNTOCS 

PNTMSG 

MOVE 

PNTHW 

PCRL 

GET 

RTN 


0  ;Save  the  ac 

[ASCIZ/RHCBUF/] 
•  i      •  I 

[POINT  7,MBCN,9] 
2 

[ASCIZ/:  /] 
OJ 


""! 
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SEQ  0459 


12A65 

12466 

12A67 

12A68 

12469 

12470 

12471 

12472 

12473 

12474 

12475 

12476 

12477 

12478 

12479 

12480 

12481 

12482 

12483 

12484 

12485 

12486 

12487 

12488 

12489 

12490 

12491 

12492 

12493 

12494 

12495 

12496 

12497 

12498 

12499 

12500 

12501 

12502 

12503 

12504 

12505 


SUBTTL  BIT  PRINTER  ROUTINE  -TYPBIT- 

♦Typbit  —  table  b't  printer 

♦This  routine  is  used  to  translate  ones  in  a  36  bit 
*Data  word  to  a  series  of  equiv.  sixbit  messages  taken 
♦From  a  table,  the  description  of  the  table  layout  is  found 
♦At  the  start  of  the  table  section,  this  routine  merely 
♦Translates  one  to  sixbit  messages  and  also  types  error 
♦Messages  if  it  finds  ones  in  bit  positions  where  they  are 

♦Not  expected. 

* 

♦     Eg. 


move 
Move 
Go 
Return 


ac1,arg1 
ac2.arg2 
typbit 


;36  bits  of  data 

;pointer  to  descriptor  table 

;call  the  routine 

; returns  -♦•1  always 


Functions  of  ac's  for  this  routine 


Ac 

r 


4 
5 
6 


function 

Used  for  printing 

Holds  36  bit  data  word 

Holds  updated  table  pointer 

Holds  mask-1  (expected  Ts) 

Holds  mask-  2  (expected  0*s) 

A  single  bit  mask  (shifts  to  right) 

A  scratch  ac  for  a  jffo 


♦♦♦♦•**♦♦♦♦♦♦*♦*♦♦♦••♦♦*•♦♦»***»*♦♦**♦*♦•»***♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦*♦•♦♦♦♦♦ 


050023 
050024 
050025 
050026 
050027 
050030 
050031 
050032 
050033 
050034 
050035 
050036 


261 
3ii 
254 
200 
603 
254 
261 
261 
261 
261 
261 
261 


17 
00 
00 
00 
00 
00 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
052502 
050066 
030046 
000200 
050066 
000001 
000002 
000003 
000004 
000005 
000006 


TYPBIT: 


PUT 

SKIPE 

JRST 

MOVE 

TLNE 

JRST 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 


0 

SHMODE 

EXGO 

O.CONSU 

TXTINH 

EXGO 

1 

2 

3 

4 

5 

6 


;Save  acO 

; Short  printout  mode  ? 

;Yes 

;Get  console  switches 

.-Short  printout  only  ?? 

;Yes.  then  exit 

;No.  save  some  more 


•4tm,.mmim»*ittmi»tmi!l'i>^illl'  i       ' "  < '  .'"i 


DFDXD 
DXCOM 

12506 

12507 

12508 

12509 

12510 

12511 

12512 

12513 

12514 

12515 

12516 

12517 

12518 

12519 

12520 

12521 

12522 

12523 

12524 

12525 

12526 

12527 

12528 

12529 

12530 

12531 

12532 

12533 

12534 

12535 

12536 

12537 

12538 

12539 

12540 

12541 

12542 

12543 

12544 

12545 

12546 

12547 


OX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5 

MAC  18-Jan-85  14:26  BIT  PRINTER  ROUTINE     -TYPBIT- 


MACRO  X53A(1152)   18:38    6-Apr-85  Page  82 


SEQ  0460 


050037 
0500^0 
050041 
050042 
050043 

050044 
050045 
050046 
050047 
050050 
050051 
050052 
050053 
050054 
050055 
050056 
050057 
050060 
050061 
050062 
050063 
050064 
050065 
050066 
050067 


050070 
050071 
050072 
050073 

050074 
050075 
050076 
050077 
050100 
050101 
050102 


271  02  0  00  000002 
200  03  0  02  777776 
200  04  0  02  777777 
400  05  0  00  000000 
661  05  0  00  400000 


616 
254 
612 
260 
350 
254 
616 
254 
612 
260 
242 
326 
262 
262 
262 
262 
262 
262 
262 
263 


03 
00 
01 
17 
00 
00 
01 
00 
04 
17 
05 
05 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000005 
050052 
000005 
050070 
000002 
050056 
000005 
050056 
000005 
050074 
777777 
050044 
000006 
000005 
000004 
000003 
000002 
000001 
000000 
000000 


2uJ  00  0  02  000000 
037  00  0  00  000002 
037  00  0  00  000040 
263  17  0  00  000000 


037  00 
243  05 
200  00 
260  17 
037  00 
037  00 
263  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


060502 
050076 
000006 
050103 
000077 
000040 
000000 


;Get  the  ac's  ready  to  go 
ADDI    2,2 
MOVE    3,-2(2) 
MOVE    4,-1(2) 
SETZ    5, 
TLO    5,(180) 


TSXl : 


TSX2: 


TSX3: 


EXGO: 


TDNN 

JRST 

TONE 

GO 

AOS 

JRST 

TDNN 

JRST 

TDNE 

GO 

LSH 

JUMPN 

GET 

GET 

GET 

GET 

GET 

GET 

GET 

RTN 


TSX2 

1-5  , 
TSXMl 
2 
TSX3 

TSX3 

^'5  , 

TSXM2 

5,-1 

5, TSXl 

6 

5 

4 

3 

2 

1 

0 


Get  pointer  to  first  message 
Gets  first  mask  word 
Gets  second  mask  word 
Clear  the  mask 
And  create  a  single  bit  mask 


Mw-1  a  one  ?? 

No 

Yes.  is  data  bit  a  one 

Yes.  go  print  a  message 

No.  bump  the  pointer 

Go  and  update  the  mask 

Is  data  a  one  ?? 

No. 

Yes.  mw-2  a  one  ?? 

Yes.  go  print  error  msg 

Shift  mask  bit  to  right 

Jump  if  mask  is  not  vet 

Otherwise  restore  ac  s 


99 


zero 


;And  return 


;Here  are  the  2  message  subroutines 


TSXMl : 


TSXM2: 


MOVE 
PNTSIX 
PSP 
RTN 

PNTMSG 

JFFO 

MOVE 

GO 

PNTCI 

PSP 

RTN 


0,(2) 


CASCIZ/7BIT-/] 

5,.^1 

0,6 

PSDN 
1 1<^  1 1 


;Gets  message 

.•Prints  it 

; Followed  by  a  space 


;Get  real  bit  position 
;6et  position  for  printing 
;Print  it 

;Then  a  question  mark 
;Fol lowed  by  a  space 
;And  exit 
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SEQ  0461 


125A8 

12549 

12550 

12551 

12552 

12553 

12554 

12555 

12556 

12557 

12558 

12559 

12560 

12561 

12562 

12563 

12564 

12565 

12566 

12567 

12568 

12569 

12570 

12571 

12572 

12573 

12574 

12575 

12576 

12577 

12578 

12579 

12580 

12581 

12582 

12583 

12584 

12585 

12586 

12587 

12588 

12589 

12590 

12591 

12592 

12593 

12594 

12595 

12596 

12597 

12598 

12599 

12600 

12601 

12602 


050103 
050104 
050105 
050106 
050107 
050110 
050111 
050112 
050113 


261  17 
321  00 
037  15 
037  00 

262  17 

263  17 
037  00 
210  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  050111 
00  000000 
00  000056 
00  000000 
00  000000 
00  000055 
17  000000 
00  050105 


050114 
050115 
050116 
050117 
050120 
050121 
050122 
050123 
050124 
050125 
050126 
050127 
050130 
050131 
050132 
050133 
050134 
050135 
050136 
050137 


261 
261 
261 
261 
201 


17 
17 
17 
17 
01 


0 
0 
0 
0 
0 


400  02  0 
200  03  0 
134  00  0 


326  02 
322  00 
201  02 
254  00 
302  01 
254  00 
271  00 
037  12 
367  01 
262 
262 
262 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


17 


00  000000 
00  000001 
00  000002 
00  000003 
00  000014 
00  000000 
00  060504 
00  000003 
00  050132 
00  050130 
00  000001 
00  050132 
00  OOOOQl 
00  050134 
00  000060 
00  OOOOOQ 
00  050123 
00  000003 
00  000002 
00  000001 


♦Psdn  —  prints  signed  decimal  numbers 

*  Psdn  prints  the  contents  of  acO  as  a  signed  decimal 

*  Number  followed  by  a  period,  leading  zeros  are 

*  Surpressed. 


PSDN: 
PSDNO : 

PSDNl : 


PUT 

JUMPL 

PNTDEC 

PNTCI 

GET 

RTN 

PNTCI 

MOVN 

JRST 


0 

0, PSDNl 


o"(P) 
PSDNO 


; Print  the  number 
; Follow  with  a  period 


; Print  the  minus  sign 


*  Poet  —  octal  number  printer 

*  Poet  prints  the  contents  of  acO  as  an  octal  number. 

*  Leading  zeros  are  surpressed. 
♦Call  seq: 

*  Move    O^argO        .-number  to  acO 

*  Go     poet         ;call  the  routine 

*  Rtn-1  ;*1  always 
* 

*  Functions  of  ac's  for  the  routine: 

*  Ac  function 

*  0  Holds  print  char 

*  1  Digit  counter 
♦2  A  flag 

*  3  Octal  digit  byte  pointer 


POCT: 


POCTl 


P0CT2 
P0CT3 
P0CT4 


PUT 

PUT 

PUT 

PUT 

MOVE  I 

SETZ 

MOVE 

ILD6 

JUMPN 

JUMPE 

MOVE  I 

JRST 

CAIE 

JRST 

ADDI 

PNTCHR 

SOJG 

GET 

GET 

GET 


0 
1 


;Sa\/e  ac's 


1,*D12        ;#  Of  octal  digits  possible 

2,  :2ero  the  flag 

3. [POINT  3,-3(P)J      ;Byte  pointer 


0,3 

2,P0CT3 

0.POCT2 

P0CT3 

U 
P0CT4 

0,60 
1, POCTl 


Gets  next  digit 

Jump  if   flag  non  zero 

Jump  if  digit  is  zero 

Set  the  flag 

Go  and  convert 

Cnt=l  ?? 

No 

Convert  to  ascii 

Print  the  character 

Loop  if  count  is  not  yet  zero 
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SEQ  0462 


12603 

12604 

12605 

12606 

12607 

12608 

12609 

12610 

12611 

12612 

12613 

12614 

12615 

12616 

12617 

12618 

12619 

12620 

12621 

12622 

12623 

12624 

12625 

12626 

12627 

12628 

12629 

12630 

12631 

12632 

12633 

12634 

12635 

12636 

12637 

12638 

12639 

12640 

12641 

12642 

12643 

12644 

12645 

12646 

12647 

12648 

12649 

12650 

12651 

12652 

12653 

12654 

12655 

12656 

12657 


050140 
050141 


050142 
050143 
050144 
050145 
050146 


050147 
050150 
050151 
050152 
050153 


050154 
050155 
050156 
050157 
050160 
050161 
050162 
050163 
050164 


262  17  0  00  000000 

263  17  0  00  000000 


260  17  0  00  050114 
037  01  0  00  060505 
260  17  0  00  050103 
037  01  0  00  060464 
263  17  0  00  000000 


260  17  0  00  050165 
037  01  0  00  060505 
260  17  0  00  050154 
037  01  0  00  060464 
263  17  0  00  000000 


17 
00 


261 
321 

037  15 
037  01 
26  " 
26 
037  01 
210  00 
254  00 


17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
17 
00 


000000 
050162 
000001 
060506 
000000 
OOOOOQ 
057625 
000000 
050156 


050165  261  17  0  00  000000 


GET 
PTN 


;And  exit. 


*  Pocde.  —  print  acO  in  both  octal  and  decimal 

*  This  routine  prints  acO  as  a  36  bit  quantity.  acO  is  printed 

*  First  as  an  octal  value  (leading  zeros  surpressed)  and  right 

*  Beside  it  as  a  signed  decimal  number  in  parenthesis  (leading 

*  Zeros  also  surpressed. 

*  Call  seq: 

*  Move   O^argO        ;a  36  bit  value 

*  Go     pocdec        ;call  the  routine 

*  Rtn  .-returns  ••■I  always 


POCDEC:  60  POCT 

PNTMSF  CASCIZ/(/D 

GO  PSDN 

PNTMSF  CASCIZ/)/] 
RTN 


; Print  in  octal 
;Now  in  decimal 
;And  exit 


*  Pocdef  —  print  acO  in  both  octal  and  decimal 

*  This  routine  prints  acO  as  a  36  bit  quantity.  acO  is  printed 

*  First  as  an  octal  value  (leading  zeros  surpressed)  and  right 

*  Beside  it  as  a  signed  decimal  number  in  parenthesis  (leading 

*  Zeros  also  surpressed.  all  printing  is  forced. 

*  Call  seq: 

*  Move   O^argO        :a  36  bit  value 

*  Go     pocdef        ;call  the  routine 

*  Rtn  ; returns  +1  always 


POCDEF:  GO  .POCT 

PNTMSF  CASCIZ/(/] 

GO  .PSDN 

PNTMSF  CASCIZ/)/] 
RTN 


;Print  in  octal 
;Now  in  decimal 
;And  exit 
;*  Print  acO  as  a  signed  decimal  number 


.PSDN:  PUT 

JUMPL 

.PSDNO:  PNTDCF 
PNTMSF 
GET 
RTN 

.PSDNl:  PNTMSF 
MOVN 
JRST 


0,. PSDNl 

CASCIZ/./] 
0 

CASCIZ/-/] 

0.(P) 

.PSDNO 


.-Print  the  number  forced 
.-A  period 


;A  minus  sign 


;♦  Routine  to  print  acO  as  an  octal  number  with  lead  zeros  surpressed 
•  POCT:  PUT    0  .-Save  ac's 


DFDXD 
DXCOM 

12658 

12659 

12660 

12661 

12662 

12663 

1266A 

12665 

12666 

12667 

12668 

12669 

12670 

12671 

12672 

12673 

1267A 

12675 

12676 

12677 

12678 

12679 

12680 

12681 

12682 

12683 

12684 

12685 

12686 

12687 

12688 

12689 

12690 

12691 
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MAC 

050166 
050167 
050170 
050171 
050172 
050173 
0501 7A 
050175 
050176 
050177 
050200 
050201 
050202 
050203 
050204 
050205 
050206 
050207 
050210 
05021 1 
050212 
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VERSION  0.5 
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SEQ  0463 


261 
261 
261 
201 
400 
200 
134 
326 
322 
201 
254 
302 
254 
271 
037 
367 
262 
262 
262 
262 
263 


17 
17 
17 
01 
02 
03 
00 
02 
00 
02 
00 
C1 
00 
00 
12 
01 
17 
17 
17 
17 
17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
000002 
000003 
000014 
000000 
060504 
000003 
050203 
050201 
000001 
050203 
000001 
050205 
000060 
000001 
050174 
000003 
000002 
000001 
000000 
000000 


050213 
050214 
05021 5 
050216 

050217 
050220 
050221 


261  17  0  00  000000 
037  01  0  00  060507 
200  00  0  00  030046 
037  13  0  00  000001 

037  01  0  00  057160 

262  17  0  00  000000 

263  17  0  00  000000 


PUT 

PUT 

PUT 

MOVE  I 

SET2 

MOVE 

.POCTl:  ILDB 
JUMPN 
JUMPE 
MOVE  I 
JRST 

.POCTO:  CAIE 
JRST 

.P0CT3-  ADDI 

PNTCHF 

.P0CT4:  SOJG 
GET 
GET 
GET 
GET 
RTN 


1 


1,^^012 

3!CP0INT  3, 
0,3 

2,.P0CT3 
0,. POCTO 

.P0CT3 

.P0CT4 
0,60 

1,. POCTl 

2 

1 
0 


-3(P)i 


n  Of 

Zero 


zero 
zero 


octal  digits  possible 

the  flag 
;Byte  pointer 
Gets  next  digit 
Jump  if  flag  non 
Jump  if  digit  is 
Set  the  flag 
Go  and  convert 
Cnt=1  ?? 
No 

Convert  to  ascii 
Print  the  character 
Loop  if  count  is  not  yet  zero 


;And  exit. 


*Swchpt  —  prints  current  state  of  switches 


SWCHPT:  PUT 

PNTMSF 
MOVE 
PNTHWF 
PNTMSF 

GET 
RTN 


CASCIZ/SWITCHES 
CONSU 

CASCIZ/ 

0 


-  /] 


■MMMHtiiix—  - 
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SEQ  0A64 


12692 

050222 

44  70  43  64  62  00 

12693 

050223 

44  70  63  64  62  00 

12694 

050224 

44  70  45  62  62  00 

12695 

050225 

44  70  55  64  62  00 

12696 

050226 

44  70  41  63  62  00 

12697 

050227 

55  42  62  41  20  25 

12698 

050230 

44  70  44  64  62  00 

12699 

050231 

55  42  62  41  20  27 

12700 

050232 

55  42  62  41  21  20 

12701 

050233 

55  42  62  41  21  21 

12702 

050234 

55  42  62  41  21  22 

12703 

050235 

55  42  62  41  21  23 

12704 

050236 

55  42  62  41  21  24 

12705 

050237 

55  42  62  41  21  25 

12706 

050240 

55  42  62  41  21  26 

12707 

050241 

55  42  62  41  21  27 

12708 

050242 

44  70  47  60  20  00 

12709 

050243 

44  70  47  60  21  00 

12710 

050244 

44  70  47  60  22  00 

12711 

050245 

44  70  47  60  23  00 

12712 

050246 

44  70  47  60  24  00 

12713 

050247 

44  70  47  60  25  00 

12714 

050250 

44  70  47  60  26  00 

12715 

050251 

44  70  47  60  27   00 

12716 

050252 

44  70  44  62  20  00 

12717 

050253 

44  70  44  62  21  00 

12718 

050254 

44  70  44  62  22   00 

12719 

050255 

44  70  44  62  23  00 

12720 

050256 

44  70  44  62  24  00 

12721 

050257 

44  70  44  62  25  00 

12722 

050260 

4h  70  44  62  26  00 

12723 

050261 

44  70  44  62  27   00 

EXRNAM:  SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/DXCTR  / 
/DXSTR  / 
/DXERR  / 
/DXMTR  / 
/DXASR  / 
/MBRA05/ 
/DXDTR  / 
/MBRA07/ 
/MBRAIO/ 
/MBRAl 1 / 
/MBRA12/ 
/MBRA13/ 
/MBRA14/ 
/MBRA15/ 
/MBRA16/ 
/MBRAl 7/ 


/DX6P0 
/DXGP1 
/DX6P2 
/DX6P3 
/DX6P4 
/DXGP5 
/DX6P6 
/DX6P7 
/DXDRO 
/DXDRl 
/DXDR2 
/DXDR3 
/DXDR4 
/DXDR5 
/DXDR6 
/DXDR7 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


OFDXD 
DXCOM 

1272A 

12725 

12726 

12727 

12728 

12729 

12730 

12731 

12732 

12733 

12734 

12735 

12736 

12737 

12738 

12739 

12740 

12741 

12742 

12743 

12744 

12745 

12746 

12747 

12748 

12749 

12750 

12751 

12752 

12753 

12754 

12755 
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SEQ  0465 


050262 

050263 

050264 

050265 

050266 

050267 

050270 

050271 

050272 

050273 

050274 

050275 

050276 

050277 

050300 

050301 

050302 

050303 

050304 

050305 

050306 

050307 

050310 

050311 

050312 

050313 

050314 

050315 

050316 

050317 

050320 

050321 


050430 
057751 
050434 
057751 
057751 
050515 
050443 
057751 
057751 
057751 
057751 
057751 
057751 
057751 
057751 
057751 
050447 
050456 
050470 
050472 
05C476 
050503 
050507 
050513 
050531 
050535 
050541 
050550 
050556 
050562 
03J571 
050600 


050322 
050324 
050332 
050344 
050352 
050376 
050376 
050364 
050364 
050364 
050364 
050364 
050364 
050364 
050364 
050364 
050366 
050376 
050376 
050371 
050376 
050376 
050376 
050376 
050376 
050400 
050376 
050376 
050406 
050376 
050376 
050420 


EXRSER: 


ROOSER 
CRTN3- 
R02SE^ 
[RTN], 
[RTN], 
6PSER- 
R06SER 
CRTN3 . 
CRTN], 
CRTN], 
CRTN3, 

[rtn:, 

[RTN3, 
CRTNJ, 
CRTNJ, 
CRTNJ- 
R20SER 
R21SER 
R22SER 
R23SER 
R24SER 
R25SER 
R26SER 
R27SER 
R30SER 
R31SER 
R32SER 
R33SER 
R34SER 
R35SER 
R36SER 
R37SER 


,,R00T8L 

,R01TBL 

,,R02TBL 

,R03TBL 

,R04TBL 

,6PTBL 

,,R06TBL 

,R07TBL 

.R10TBL 

,R11TBL 

,R12TBL 

,R13TBL 

,R14TBL 

,R15TBL 

,R16TBL 

,R17TBL 

,,R20TBL 

,,6PTBL 

,.6PTBL 

,,R23TBL 

,,6PTBL 

,,6PTBL 

,,6PTBL 

,,6PTBL 

.,R30TBL 

,,R31TBL 

,.R32T8L 

,,R33TBL 

,,R34TBL 

,,R35TBL 

,,R36TBL 

,,R37TBL 


RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R10 

R11 

R12 

R13 

R14 

R15 

R16 

R17 

R20 

R21 

R22 

R23 

R24 

R25 

R26 

R27 

R30 

R31 

R32 

R33 

R34 

R35 

R36 

R37 
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SEO  0466 


12756 

12757 

12758 

12759 

12760 

12761 

12762 

12763 

1276A 

12765 

12766 

12767 

12768 

12769 

12770 

12771 

12772 

12773 

12774 

12775 

12776 

12777 

12778 

12779 

12780 

12781 

12782 

12783 

12784 

12785 

12786 

12787 

12788 

12789 

12790 

12791 

12792 

12793 

12794 

12795 

12796 

12797 

12/98 

12799 

12800 

12801 

12802 

12803 


;Here  are  the  bit  printer  tables  for  device  registers 


050322  000000  000000 

050323  000000  177700 

050324  000000  170000 

050325  000000  007777 

050326  41  64  41  00  00  00 

050327  43  45  62  62  00  00 

050330  54  56  53  60  62  63 

050331  55  60  62  65  56  00 

050332  000000  000377 

050333  000  00  0  00  000000 

050334  55  60  45  62  62  00 

050335  55  60  63  64  60  00 

050336  65  42  60  41  62  00 

050337  44  42  60  41  62  00 

050340  43  42  60  41  62  00 

050341  62  55  62  00  00  00 

050342  51  54  62  00  00  00 

050343  51  54  46  00  00  00 

050344  OOCOOO  000036 

050345  000000  177741 

050346  55  60  63  43  00  00 

050347  55  60  67  45  66  60 

050350  55  60  63  64  62  00 

050351  44  70  62  45  63  00 

050352  000000  000377 

050353  000000  177400 

050354  41  64  41  15  11   00 

050355  41  64  41  15  26  00 

050356  4 1  64  41  15  25  00 

050357  41  64  41  15  24  00 

050360  41  64  41  15  23  00 

050361  41  64  41  15  II   00 

050362  41  64  41  15  21  00 

050363  41  64  41  15  20  00 

050364 

050364  000  00  0  00  000000 

050365  000000  Mllll 

050366  000000  000200 

050367  000  00  0  00  000000 

050370  63  64  41  62  45  61 

050371  000000  003400 

050372  000  00  0  00  000000 

050373  63  65  60  63  56  63 

050374  63  56  63  62  45  61 

050375  64  51  45  62  45  61 


ROOTBL 
ROITBL 


R02TBL 


0 

1777829 

lB20!1B21ilB22I1B23 

7777 

/ATA/ 
/CERR/ 
/LNKPRS/ 
/MPRUN/ 


R03TBL 


R04TBL 


SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

377 

Z 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

36 

177741 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

377 

1 77400 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/MPERR/ 

/MPSTP/ 

/U6PAR/ 

/DBPAR/ 

/C8PAR/ 

/RMR/ 

/ILR/ 

/ILF/ 


/MPSC/ 
/MPWEVP/ 
/MPSTR/ 
/DXRES/ 


/ATA-7/ 
/ATA-6/ 
/ATA-5/ 
/ATA-4/ 
/ATA-3/ 
/ATA-2/ 
/ATA-1/ 
/ATA-0/ 


R07TBL:R10TBL:R11TBL:R12T8L:R13TBL:R14TBL:R15TBL:R16TBL 
R17TBL:  Z 

y77777 
R20TBL:  200 

Z 

SIXBIT 
R23TBL:  3400 

Z 

SIXBIT 

SIXBIT 

SIXBIT 


/STAREQ/ 


/SUPSNS/ 
/SNSREQ/ 
/TIEREQ/ 
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SEQ  0467 


12804 

12805 

12806 

12807 

12808 

12809 

12810 

12811 

12812 

12813 

12814 

12815 

12816 

12817 

12818 

12819 

12820 

12821 

12822 

12823 

12824 

12825 

12826 

12827 

12828 

12829 

12830 

12831 

12832 

12833 

12834 

12835 

12836 

12837 

12838 

12839 

12840 

12841 

12842 

12843 

12844 

12845 

12846 

12847 

12848 

12849 

12850 

12851 


050376 
050376 
050377 

050400 
050401 
050402 
050403 
050404 
050405 

050406 
050407 
050410 
05041 1 
050412 
050413 
050414 
050415 
050416 
050417 

050420 
050421 
050422 
050423 
050424 
050425 
050426 
050427 

050430 
050431 
050432 
050433 

050434 
050435 
050436 
050437 
050440 
050441 
050442 

050443 
050444 
050445 
050446 


000  00  0  00  000000 
000  00  0  00  000000 

000000  170000 
000  00  0  00  000000 
51  62  45  56  00  00 
55  63  45  56  00  00 
60  43  45  56  00  00 
60  43  41  51  00  00 


R06TBL : GPTBL : R30TBL : R32TBL : R33TBL : R35TBL 
R36TBL:  Z 
Z 


R31TBL: 


000000 
000  00  0 
51  62  60 
42  41  54 
41  54  65 
41  54  65 
51  56  64 
51  56  64 
51  56  64 
51  56  64 


000377 
00  000000 
41  62  00 
65  60  41 

41  60  41 

42  60  41 
23  00  00 
22  00  00 
21  00  00 
20  00  00 


R34TBL 


000000  1 76000 
000  00  0  00  000000 
41  54  65  43  00  00 
41  54  65  72  00  00 
51  62  60  41  62  45 
63  64  53  57  65  00 
41  54  65  41  60  45 
41  54  65  42  60  45 

037  00  0  00  060512 
135  00  0  00  060514 
037  16  0  00  000003 
263  17  0  00  000000 


037  00  0 

135  00  0 

037  16  0 

037  00  0 

135  00  0 

037  16  C 

263  17  ( 


00  060515 
00  056077 
00  000003 
^^  060520 
060523 
000003 
)0  000000 


037  00  0  00  060524 
135  00  0  00  057437 
037  06  0  00  000000 
263  17  0  00  000000 


R37TBL 


ROOSER 


R02SER 


R06SER 


17B23 

Z 

SIXBIT 

/IREN/ 

SIXBIT 

/MSEN/ 

SIXBIT 

/PCEN/ 

SIXBIT 

/PCM/ 

377 
Z 

SIXBIT 

/IRPAR/ 

SIXBIT 

/BALUPA/ 

SIXBIT 

/ALUAPA/ 

SIXBIT 

/ALUBPA/ 

SIXBIT 

/INT3/ 

SIXBIT 

/INT2/ 

SIXBIT 

/INTl/ 

SIXBIT 

/INTO/ 

1 76000 

Z 

SIXBIT 

/ALUC/ 

SIXBIT 

/ALUZ/ 

SIXBIT 

/IRPARE/ 

SIXBIT 

/STKOU/ 

SIXBIT 

/ALUAPE/ 

SIXBIT 

/ALUBPE/ 

PNTMSG 

CASCIZ/FNCTN+60=/] 

LDB 

0, [POINT  6,1,353 

PNTOCS 

RTN 

PNTMSG 

CASCIZ/ERROR  CLASS=/] 

LDB 

[POINT  4,1,27] 

PNTOCS 

PNTMSG 

[ASCIZ/  SUBCLASS=/] 

LDB 

[POINT  4,1,23] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/DRIVE  TYPE=/] 

LDB 

[POINT  16,1,35] 

PNT6 

RTN 

;Get  funct  bits 
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SEQ  0468 


12852 

12853 

1285A 

12855 

12856 

12857 

12858 

12859 

12860 

12861 

12862 

12863 

12864 

12865 

12866 

12867 

12868 

12869 

12870 

12871 

12872 

12873 

12874 

12875 

12876 

12877 

12878 

12879 

12880 

12881 

12882 

12883 

12884 

12885 

12886 

12887 

12888 

12889 

12890 

12891 

12892 

12893 

12894 

12895 

12896 


050447 
050450 
050451 
050452 
050453 
050454 
050455 

050456 
050457 
050460 
050461 
050462 
050463 
050464 
050465 
050466 
050467 

050470 
050471 

050472 
050473 
050474 
050475 

050476 
050477 
050500 
050501 
050502 

050503 
050504 
050505 
050506 

0-^0507 
050510 
050511 
050512 

050513 
050514 


037 
135 
037 
037 
135 
037 
263 

037 
135 
037 
037 
1^5 
037 
037 
135 
037 
263 


02 
00 
03 
02 
00 
03 
17 

02 
00 
02 
02 
00 
02 
02 
00 
03 
17 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
C 
0 
0 


00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


060527 
052657 
000000 
060532 
060535 
000000 
000000 

060536 
060523 
000000 
060540 
056077 
000000 
060542 
052715 
000000 
000000 


R20SER: 


037  02  0  00  060545 
254  00  0  00  050504 

037  02  0  00  056375 
135  00  0  00  052715 
037  03  0  00  000000 
263  17  0  00  000000 

037  02  0  GO  060552 
135  00  0  00  052657 
037  03  0  00  000000 
03/  02  0  00  060555 
254  00  0  00  050473 

G37  02  0  00  060561 
135  00  0  00  057437 
037  06  0  00  000000 
263  17  0  00  000000 

037  02  0  00  060563 
135  00  0  00  052657 
037  03  0  00  000000 
254  00  0  00  050473 


037  02  0  00  060567 
254  00  0  00  050510 


R21SER: 


PMSG 

LDB 

PNT3 

PMSG 

LDB 

PNT3 

RTN 

PMSG 

LDB 

PNT2 

PMSG 

LDB 

PNT2 

PMSG 

LDB 

PNT3 

RTN 


R22SER:  PMSG 
JRST 


R23SER: 


PMSG 
LDB 
PNT3 
RTN 


R24SER:  PMSG 
LDB 
PNT3 
PMSG 
JRST 

R25SER:  PMSG 
LDB 
PNT6 
RTN 


R26SER: 


PMSG 
LDB 
PNT3 
JRST 


R27SER:  PMSG 
JRST 


<DRIVE  STATUS=>        :C0.5J 
[POINT  8 J, 27]  ;Get  dx20  status 

; Print  it 
<STATUS  INDEX=> 
[POINT  7 J, 35]  ;Get  status  index 

.-Print  It 


<DATA  MODE=> 

[POINT  4 J. 23]  ;Get  data  mode 

.-Print  it 
<DRIVE  MODE=>  ;[0.5] 

[POINT  4.1.27]  .-Get  dx20  mode 

.-Print  it 
<DRIVE  NUMBER=>  ;[0.5] 

[POINT  8.1.35]  .-Get  dx20  number 

.-Print  it 


<EXTENDED  STATUS  TABLE  SIZE=> 
R25SER+1       .-Go  print  it 

<TRACK  IN  ERROR=> 
[POINT  8.1.35]  ;G«t  trk  in  error 

.-Print  it 


<ASyNCH  STATUS=> 

[POINT  8.1.27]  .-Get  asynch  status 

.Print  it 
<FROM  DRIVE  NUMaER=>  .-[0.5] 

R23SER*1 

<BYTE  COUNT=> 

[POINT  16.1.35]  .-Get  byte  cnt 

.-Print  it 


<EXTENDED  STATUS  0  => 

[POINT  8.1.27]  ;Get  1st  byte 

.-Print  it 
R23SER*1       .-Go  print  2nd  byte 

<EXTENDED  STATUS  1  => 
R26SER+1       ;Go  print  data 


DFDXD 
DXCOM 

12897 

12898 

12899 

12900 

12901 

12902 

12903 

1290A 

12905 

12906 

12907 

12908 

12909 

12910 

12911 

12912 

12913 

1291A 

12915 

12916 

12917 

12918 

12919 

12920 

12921 

12922 

12923 

1292A 

12925 

12926 

12927 

12928 

12929 

12930 

12931 

12932 

12933 

1293A 

12935 

12936 

12937 

12938 

12939 

12940 

12941 

12942 

12943 

12944 

12945 

12946 

12947 

12948 

12949 

12950 

12951 
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SEQ  0469 


050515 

050516 

050517 

050520 

050521 

050522 

050523 

050524 

050525 

050526 

050527 

050530 

050531 

050532 

050533 

050534 

050535 

050536 

050537 

050540 

050541 

050542 

050543 

050544 

050545 

050546 

050547 

050550 

050551 

050552 

050553 

050554 

050555 

050556 

050557 

050560 

050561 

050562 

050563 

050564 

050565 

050566 

050567 

050570 

050571 

050572 

050573 

050574 

050575 

050576 

050577 

050600 

050601 

050602 

050603 


037 

02 

135 

00 

037 

16 

037  02 

135 

00 

037  06 

037 

02 

135 

00 

037 

03 

135 

00 

037  03 

263 

17 

037 

00 

135 

00 

037 

16 

263 

17 

037 

00 

135 

00 

037 

16 

263 

17 

037  00 

135 

00 

037 

16 

037 

00 

135 

00 

037 

16 

263 

17 

037  00 

135 

00 

037 

16 

03'' 

00 

037 

16 

263 

17 

037 

00 

135 

00 

037 

16 

263 

17 

037  00 

135 

00 

017 

16 

037 

00 

135 

00 

037 

16 

263 

17 

037  00 

135 

00 

037 

16 

037 

00 

135 

00 

037 

1^ 

263 

037  00 

135 

00 

037 

16 

263 

17 

0  00  060573 
0  00  060575 
0  00  000003 
0  00  052744 
0  00  057437 
0  00  000000 
0  00  060576 
0  00  052657 
0  00  000000 
0  00  052715 
0  00  000000 
0  00  000000 
0  00  060600 
0  00  057437 
0  00  000003 
0  00  000000 
0  00  060601 
0  00  060602 
0  00  000003 
0  00  000000 
0  00  060603 
0  00  052657 
0  00  000003 
0  00  060605 
0  00  052715 
0  00  000003 
0  00  000000 
0  00  060607 
0  00  052657 
0  00  000003 
0  00  060611 
0  00  000003 
0  00  000000 
0  00  060613 
0  00  052657 
0  00  000003 
0  00  000000 
0  00  060615 
0  00  052657 
0  00  000003 
0  00  060617 
0  00  052715 
0  00  000003 
0  00  000000 
0  00  060621 
0  00  052657 
0  00  000003 
0  00  060623 
0  00  052715 
0  00  000003 
0  00  000000 

g  8§  m 

0  00  000003 
0  00  000000 


GPSER: 


R30SER 


R31SER 


R32SER 


R33SER 


R34SER 


R35SER 


R36SER 


R37SER 


PMSG 

<GP  REG  > 

LDB 

[POINT  3,2,353 

PNTOCS 

PMSG 

<=> 

LDB 

[POINT  16,1,35] 

PNT6 

PMSG 

<IN  BYTES=> 

LDB 

[POINT  8,1,27] 

PNT3 

LDB 

[POINT  8,1,35] 

PNT3 

RTN 

PNTMSG 

[ASCIZ/IR=/] 

LDB 

[POINT  16,1,35] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/PC=/] 

LDB 

[POINT  12,1,35] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/ALUB=/] 

LDB 

[POINT  8,1,27] 

PNTOCS 

PNTMSG 

:asciz/  alua=/] 

LDB 

:P0INT  8,1,35] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/SR0M=/] 

LDB 

[POINT  8,1,27] 

PNIOCS 

PNTMSG 

[ASCIZ/  DROM=/] 

PNTOCS 

RTN 

PNTMSG 

:asciz/from=/] 

LDB 

[POINT  8,1,27] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/BALU=/] 

LDB 

[POINT  8,1,27] 

PNTOCS 

PNTMSG 

[ASCIZ/  MEMORY=/] 

LDB 

[POINT  8,1,35] 

PNTOCS 

RTN 

PNTMSG 

[ASCIZ/IBUS=/] 

LDB 

[POINT  8,1,27] 

PNTOCS 

PNTMSG 

[ASCIZ/  BR=/] 

LDB 

[POINT  8,1,35] 

PNTOCS 

RTN 

PNTMSG 

;asciz/ma=/] 

>OINT   10,1,35] 

LDB 

PNTOCS 

RTN 

iN«>HMMM#n>**<< 


iT^-jii<\miKlttilfmmamM riwr— iii.inrt«wMwi  >iaM  iifti  .-^mtfUn 


.^- 


■  ■l»tiT|IK:il<l>«iaiW<Ml|W)WI<W(  /piiWlllii»l 


DFDXD 

Dxcon 

12952 

12953 

12954 

12955 

12956 

12957 

12958 

12959 

12960 

12961 

12962 

12963 

12964 

12965 

12966 

12967 

12968 

12969 

12970 

12971 

12972 

12973 

12974 

12975 

12976 

12977 

12978 

12979 

12980 

12981 

12982 

12983 

12984 

12985 

12986 

12987 

12988 

12989 

12990 

12991 

12992 

12993 

12994 

12995 

12996 

12997 

12998 

12999 

13000 

13001 

13002 

13003 

13004 

13005 

13006 
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DX20  DIAGNOSTICS  CONSOLE  PACKAGE 

SUBTTL     DX20  DIAGNOSTICS  CONSOLE  PACKAGE 

COMMENT  X 

THE  FOLLOWING  IS  A  LIST  OF  THE  CONSOLE  COMMANDS  AND  FORMATS 

THE  COMMAND  FORMAT  FOR  CONSOLE  PACKAGE: 

COMMAND  DATA.ADDRESS(CR) 
THIS  IS  REQUIRED  FOR  THE  FOLLOWING  COMMANDS 

LWM-LCRAAC,LCI-LDP,LMB,LDR,RDAAUP 

COMMAND  DATA(CR) 
THIS  IS  ONLY  NEEDED  FOR  THE  FOLLOWING  COMMANDS 

LIR,LPC,RWM.RCR,RAC,RCI,RDP,RMB,XCR,XI,RDR,ST,LUP 

COMMAND (CR) 
THIS  IS  ONLY  NEEDED  FOR  THE  FOLLOWING  COMMANDS 

RIR,SP,RE,RPC 

LUP— LOADS  AN  ASCII  FILE  WITH  AN  "ADX  OR  CDX"  EXTENSION 
INTO  THE  CRAM  OF  THE  DX20*S  MICRO  PROCESSOR  STARTING  AT  LOCATION  0 
"CDX"  EXTENSIONS  ARE  USED  WHEN  SUB  FILES(.ADX)  ARE  COMBINED  TOGETHER 
TO  FORM  ONE  FILE/'ADX'^  EXTENSIONS  CAN  BE  USED  FOR  SINGLE  FILES. 

EXAMPLE LUP  FO^FOKCR) 

WHERE  'TOO  '  IS  THE  SUBFILE(.ADX)  WITHIN  THE  F01  FILE(.CDX) 

OR 
LUP  FOO(CR) 

LIR LOAD  IR  REGISTER  iJlTH  DATA 

EXAMPLE  LIR  177777(CR) 

LPC — LOAD  PC  WITH  ADDRESS 
EXAMPLE  LPC  7777(CR) 

LWM — LOAD  WORKING  MEMORY  WITH  DATA-377  AT  LOC.  200 
EXAMPLE  LWM  377,200(CR) 

LCR — LOAD  CRAM  WITH  DATA-1 77777  AT  .OC.  100 
EX.^MOLE  LCR  177777, 100(CR) 

LAC — LOAD  AC  WITH  DATA-377  AT  LOC.  7 
EXAMPLE  LAC  377,7(CR) 


SEQ  0470 


LCI — LOAD  CHANNEL  INTERFACE  WITD  DATA-377  TO  REG. 
EXAMPLE  LCI  377,3(CR) 

LDP — LOAD  DATA  PAT.1  WFH  DATA-377  TO  REG.  3 
EXAMPLE  LDP  377,3(CR) 

LMB — LOAD  MASSBUS  REGISTER-20  FROM  MICRO  PROCESSOR 
EXAMPLE  LMB  377,20(CR) 

RIR — READ  DATA  FROM  IR  REGISTER 
EXAMPLE  RIR(CR) 

RWM — READ  WORKING  MEMORY  DATA  F«<OM  LOC.  200 
EXAMPLE  RWM  200(CR) 


7 
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15C07  ^^^                                       ! 

13008  RCR — READ  CRAM  DATA  FROM  LOC.  100  I 

13009  EXAMPLE  RCR  lOO(CR)  j 

13010  ,  I 

13011  RAC — READ  AC  DATA  FROM  LOC.  7  1 

13012  EXAMPLE  RAC  7(CR)  I 

13013  i 
130U                                 RCI READ  CHANNEL  INTERFACE  REGISTER-4  DATA  j 

13015  EXAMPLE  RCI  4(CR)  | 

13016  ! 

13017  RDP — READ  DATA  PATH  INTERFACE  REGISTER-4  i 

13018  EXAMPLE  RDP  4(CR) 
13019 

13020  RMB READ  .^SSBUS  REGISTER-20  FROM  MICRO  PROCESSOR 

13021  EXAMPLE  RMB  20(CR) 
13022 

13023  XCR XCT  MICRO  CODE  INSTRUCTION  AT  LOC.  1 

13024  EXAMPLE  XCR  KCR) 
13025 

13026  XI — XCT  INSTRUCTION  IN  IR-200  =  MOVEI  BR 

13027  EXAMPLE  XI  200(CR) 
13028 

13029  ST — START  MICRO  PROCESSOR  AT  LOC.  100 

13030  EXAMPLE  ST  100(CR) 
13031 

13032  SP — STOP  MICRO  PROCESSOR 

13033  EXAMPLE  SP(CR) 
13034 

13035  RE — RESET  DX20 

13036  EXAMPLE  RE(CR) 

13037  ^        ^,  ! 

13038  RDA—?*6AD  DRIVE  REGISTERS  FROM-0  TO-37 

13039  EXAMPt.-  RDA  0J7(CR)  i 

13040  ' 

13041  !0n—  DAD  DRIVE  REGISTER-3  WITH  177777 

13042  .l^  ?^'J:  LDR  177777, 3(CR)  ! 

13043  \ 

13044  RPC — READ  THE  CONTENTS  OF  THE  PC  j 

13045  :  (AMPLE  RPC(CR)  I 

13046  i 

13047  koH — READ  DRIVE  REGISTER-4  FROM  MASSBUS  SIDE  • 

13048  EXAMPLE  RDR  4(CR) 
13049 

13050  TO  START  THE  CONSOLE  PACKAGE  START  THE  PROGRAM  AT  "SFSTRT"  OR  IF  IN 

13051  DDT  TYPE  CSG    $=ALTMODE.  THE  CONSOLE  PACKAGE  CAN  BE  STARTED 

13052  AUTOMICALLY  BY  SETTING  CONSOLE  SWITCH  20. 
13053 

13054  THE  CONSOLE  PROGRAM  WILL  PROMPT  YOU  WITH  A  •CCP>'  WHEN  IT  IS  WAITING  FOR 

13055  COMMAND  INPUT. 

13056 

13057  WHEN  IH   CONSOLE  MODE  ALL  READ  COMMANDS  RETURN  THE  VALUE :S).  WHEN  CALLS 

13058  ARE  HADE  FROM  THE  DIAGNOSTIC  ALL  DATA  IS  RETU.'^NED  IN  AC^  =  1. 

13059  X 
13060 
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SEQ  %72 


13061 

13062 

13063 

13064 

13065 

13066 

13067 

13068 

13069 

13070 

13071 

13072 

13073 

13074 

13075 

13076 

13077 

13078 

13079 

13080 

13081 

13082 

13083 

13084 

13085 

13086 

13087 

13088 

13089 

13090 

13091 

13092 

13093 

13094 

13095 

13096 

13097 


050604 
050605 
050606 
050607 
050610 
05061 1 
050612 
05061 3 
050614 
050614 
05061 5 
050616 
050616 
050617 
050620 
050621 
050622 
050623 

050624 
050625 
050626 
050627 
030630 
050631 
050631 
050632 
050633 
050634 
050635 
050636 
050637 
050640 


265  00 
332  no 
254  00 
201  00 
506  00 

201  00 

202  00 
402  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


03001 1 
030037 
050614 
540000 
000400 
340000 
047063 
065314 


201  10  0  00  740000 
260  17  0  00  043666 


336  00 
254  00 
037  01 
400  00 
047  00 
254  04 


0  00  030037 
0  00  050624 
0  00  060625 
0  00  000000 
0  00  000025 
0  00  000000 


476  00  0  00  065323 

200  14  0  00  044543 

201  13  0  00  000007 
260  17  0  00  044676 
260  17  0  00  045011 


40?  00 
4ui  00 
402  00 
402  00 
402  00 
201  01 
260  17 
037  01 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


065255 
065254 
065350 
065244 
030050 
004400 
045361 
060636 


:*  Input  cofflfflands  from  console  via  terminal 


CNSL:   PGMINT 
SKIPE 
JRST 
MOVE  I 
HRLM 
MOVE  I 
MOVEM 
SET2M 

CSTRTU: 

CSTRTE:  MOVEI 
GO 

CSTRTC: 

SK I PN 

JRST 

PNTMSF 

SETZ 

TRPSET 

HALT 

CSTRTA:  SETOM 
MOVE 
MOVEI 
GO 
iO 

C: 

CMDINP:  SETZM 
SETZM 
SETZM 
SETZM 
SETZM 
MOVEI 
GO 
PNTMSF 


USER 

CSTRTU 

540000 

400 

340000 

CBASE 

RELOC 


Inftialize  subroutine  package 

Skip  if  exec  mode 

Ho,   go  around 

Set  up  exec  page  map 

To  page  address  340000  to  0 

Set  up  relocation  factor 

To  340000 

Clear  user  relocation  factor 


F,RAEREPICBTFLG!CPAFLGICOMPER   ;Set  all  flags  to  not  report  errors  now 
CONFIG        ;Do  a  configration 


USER  ;User  mode? 

CSTRTA         ;No 

CASCIZ/CONSOLE  CONTROL  PROGRAM  IS  EXEC  MODE  ONLY/3 


;C0.53 


SELFLG 
MBCN.M6CMAX 
DRIVE, 7 
DEVSEL 
TELWHO 

ILLFOR/r 

ILLCMD4f 

XIEVP 

EVENP 

RUNFLG 

1,MBE^RAECLR 

.CONO 

tASCIZ/CCP>/] 


;Init  flag  for  devsel 

;Init  mbcn  for  devsel 

;Init  dx20  for  devsel 

.-Select  a  device  for  testing 

;Type  the  controller  and  dx20  numbers 

Clr  illegal  forniat  flag 
Clr  i legal  command  flag 
Clr  even  parity  on  xct 
Clr  even  parity  load  flag 
Main  program  not  running 
Clear  massbus  interrupts 

.-CHANGED  PROMPT  FROM  *  TO  CCP>  [0.5] 
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SEQ  0^71 


13098 

13099 

13100 

13101 

13102 

13103 

1310A 

13105 

13106 

13107 

13108 

13109 

13110 

13111 

13112 

13113 

1311A 

13115 

13116 

13117 

13118 

13119 

13120 

13121 

13122 

13123 

13124 

13125 

13126 

13127 

13128 

13129 

13130 

13131 

13132 

13133 

1313A 

13135 

13136 

13137 

13138 

13139 

131A0 


0506A1 
050642 
050643 
050644 
050645 
050646 
050647 
050650 
050651 

050652 
050653 
050654 
050655 
050656 
050657 
050660 
050661 
050662 
050663 
050664 
050665 
050666 
050667 
050670 
050671 
050672 
050673 
050674 
050675 

050676 
050677 
050700 
050701 
050702 
050703 
050704 
050705 

050706 
050707 
050710 


037  10 
255  00 
202  00 
200  00 
306  00 
254  00 
306  00 
254  00 
476  00 

037  03 
260  17 
405  00 
202  00 
202  00 
200  00 
306  00 
254  00 

306  00 
254  00 
476  00 

200  01 

201  02 
400  03 
510  00 
316  00 
254  00 
350  00 
367  02 
476  00 

307  03 
254  00 
336  00 
254  00 
200  01 
306  01 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


000003 
000000 
065230 
030232 
000040 
050665 
00001 5 
050706 
065255 

000003 
050735 
M7777 
065226 
065223 
030232 
000054 
050720 
000015 
05071 1 
065255 
065230 
000031 
000000 
050756 
000001 
050676 
000003 
050670 
065254 

000022 
050743 
000003 
051415 
030232 
00001 5 
05071 1 
050652 


332  00  0  00  065230 
254  00  0  00  050665 
254  00  0  00  050631 


CMDIN:  TTSIXB 
JFCL 
MOVEM 
MOVE 
CAIN 
JRST 
CAIN 
JRST 
SETOM 

CMDDAT:  TTIOCT 
GO 
AND  I 
MOVEM 
MOVEM 
MOVE 
CAIN 
JRST 
CAIN 
JRST 
SETOM 

CMDCK:  MOVE 
MOVE  I 
SETZ 
HLLZ 
CAMN 
JRST 
AOS 
SOJG 
SETOM 

CMDOK:  CAIG 
JRST 
SKIPN 
JRST 
MOVE 
CAIN 
JRST 
JRST 

CMDCKC:  SKIPE 
JRST 
JRST 


CMMD* 
SCHRIN 


•  •  i  • 


CMDCK 
15 

CMDCKC 
ILLFOR 


CMDUAI 

y77777 

CDATA* 

CADDR 

SCHRIN 
•  •  •  I 

CMDADR 

15 

CMDGO 

ILLFOR 

1,CMMD 

2,''D25 

CMDTBL(3) 

1 

CMDOK 

3 

2, .-4 

ILLCMD 

3,^^018 

CMDSPM 

3 

LUP 

USCHRIN 

1J5 

CMDGO 

CMDDAT 

CMMD 

CMDCK 

CrOINP 


; Input  command 

; Store  command 

;Get  last  char  typed 

;Is  It  a  space? 

;Go  ck  for  valid  command 

.'Carriage  return? 

;Yes  go  ck  command  if  valid 

;Set  illegal  format  flag 


Input  data 

Wait  for  cr 

Clr  bits  0  thru  19 

Save  data 

In  case  of  one  arguement 

Get  last  char  typed 

Is  it  a  comma? 

Go  get  address 

Carriage  return? 

Yes.  go  do  cmd 

Set  illegal  format  flag 

Get  command 

Number  of  commands 

Clr  ac3 

Get  command  from  table 

Compare  cmdtbl 

Legeal  cmd 


;Get  next  entry 

:Set  illegal  command  flag 

; Means  micro  proc.  has  to  be  stopped 

;Go  print  message 

;If  zero  load  micro  proc. 

;Go  load  mp 

;Get  last  char  typed 

;Uas  it  a  cr? 

;Yes  go  do  command 

;No.  get  data  for  command 
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131A1 

13U2 

13U3 

131A4 

13U5 

13146 

13147 

13148 

13149 

13150 

13151 

13152 

13153 

13154 

13155 

13156 

13157 

13158 

13159 

13160 

13161 

13162 

13163 

13164 

13165 

13166 

13167 

13168 

13169 

13170 

13171 

13172 

13173 

13174 

13175 

13176 

13177 

13178 

13179 

13180 

13181 

13182 


05071 1 
050712 
050713 
050714 
050715 
050716 
050717 

050720 
050721 
050722 
050723 
050724 

050725 
050726 
050727 
050730 

050731 
050732 
050733 
050734 

050735 
050736 
050737 
050740 
050741 
050742 

050743 
050744 
050745 
050746 
050747 
050750 
050751 
050752 
050753 
050754 
050755 


332  00 
254  00 
332  00 
254  00 
550  01 
260  17 
254  00 


0 
0 
0 
0 
0 
1 
0 


00 
00 
00 
00 
03 
00 
00 


065255 
050725 
065254 
050731 
050756 
000001 
050631 


037  03  0  00  000003 
260  17  0  00  050735 
405  00  0  00  M7777 
202  00  0  00  065223 
254  00  0  00  050711 

037  01  0  00  060637 
332  00  0  00  030037 
051  11  0  00  000000 
254  00  0  00  050631 

037  01  0  00  060643 
332  00  0  00  030037 
051  11  0  00  000000 
254  00  0  00  050631 


476  00 
037  00 
255  00 
302  00 
254  00 
263  17 


0  00  065255 
0  00  000003 
0  00  000000 
0  00  000015 
0  00  050736 
0  00  000000 


026  01  0 
606  01  0 
254  00  0 


037  01 
336  00 
254  00 
260  17 
037  15 
332  00 
051  11 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  010000 
00  050700 
00  060647 
00  030050 
00  050753 
00  043243 
00  000004 
00  030037 
00  000000 
00  050631 


CMDGO: 


CMDADR 


CMDFOR 


CMDILL 


CMDUAI 


CMDSPM; 


SKIPE 

ILLFOR 

JRST 

CMDFOR 

SKIPE 

ILLCMD 

JRST 

CMDILL 

HRRZ 

1-CMDTBL(3) 

GO 

a1 

JRST 

CMDINP 

TTIOCT 

GO 

CMDUAI 

AND  I 

\77777 

MOVEM 

CADDR/lf 

JRST 

CMDGO 

PNTMSF 

CASCIZ/ILLEGA 

SKIPE 

USER 

CLRBFI 

JRST 

CMDINP 

PNTMSF 

CASCIZ/ILLEGA 

SKIPE 

USER 

CLRBFI 

JRST 

CMDINP 

SETOM 

ILLFOR 

TTICHR 

JFCL 

CAIE 

15 

JRST 

.-3 

RTN 

RDREG 

DXSTR 

TRNN 

1 ,MPRUN 

JRST 

CMDOK+2 

PNTMSF 

CASCIZ/PLEASE 

SKIPN 

RUNFLG 

JRST 

.+]; 

GO 

DISCTC 

FATAL 

SKIPE 

USER 

CLRBFI 

JRST 

CMDINP 

; Illegal  format? 

[•Illegal  command? 
;Yes. 

•Getloc.  for  cmd 
;Go  to  service 
;Back  to  input 


routine 
routine 
mode 


;Get  addr. 
;Wait  for  cr 
;Clr  bits  0  thru  19 
:Save  address 
;Yes  go  do  co  and 


;User  mode? 

;Clr  input  buffer 

;Try  again 


;User  mode? 

;Clr  input  buffer 

;Try  again 

;Set  illegal  format  flag 


;Cr  rtn 


;Read  status  reg. 
; Micro  proc.  running? 
'Ok 
STOP  MICRO  PROCESSOR  FIRST.../] 
;Run  flag  set? 

.•Disable  control  c  if  user  mode 
;Fatal  error  to  main  program 
;In  user  mode? 
;Clr  input  buffer 
;Back  to  console  mode 


DFDXD 
DXCOM 

13183 
1318A 
13185 
13186 
13187 
13188 
13189 
13190 
13191 
13192 
13193 
1319A 
13195 
13196 
13197 
13198 
13199 
13200 
13201 
13202 
13203 
1320A 
13205 
13206 
13207 
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SEQ  0475 


050756 

050757 

050760 

050761 

050762 

050763 

050764 

050765 

050766 

050767 

050770 

050771 

050772 

050773 

050774 

050775 

050776 

050777 

051000 

051001 

051002 

051003 

051004 

051005 

051006 


546560 
545162 
546043 
546755 
544362 
544143 
544351 
544460 
545542 
625162 
626755 
624362 
624143 
624351 
624460 
625542 
704362 
705100 
636400 
636000 
624500 
624441 
544462 
626043 
624462 


051415 
051007 
051012 
051020 
051043 
051054 
051070 
051073 
051076 
051133 
051156 
051205 
051227 
051250 
051254 
051260 
051321 
051332 
051350 
051360 
051362 
051364 
051124 
051145 
051312 


CMDTBL:  •LUP^. 

,LUP 

•LIR^, 

,LIR 

•LPC^, 

,LPC 

•LWM^, 

.,LWM 

•LCR'. 

.,LCR 

•LAC^. 

,,LAC 

•Lcr. 

,,LCI 

•LDP'. 

,XOP 

•LMB'. 

,AMB 

•RIR^. 

,,RIR 

•RWM'. 

..RUM 

•RCR^. 

..RCR 

•RAC^. 

..RAC 

•Rcr. 

,,RCI 

•RDP'< 

,,RDP 

•RMB*. 

r.RMB 

•XCR^ 

,,XCR 

•XI  • 

,M 

•ST  • 

,.SJ 

•SP  • 

..SP 

•RE  • 

,M 

•RDA' 

,.RDA 

•LDR*. 

,,Lt>R 

•RPC*. 

..RPC 

•RDR*. 

.,RDR 
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SEQ  0^76 


13208 

13209 

13210 

13211 

13212 

13213 

13214 

13215 

13216 

13217 

13218 

13219 

13220 

13221 

13222 

13223 

1322A 

13225 

13226 

13227 

13228 

13229 

13230 

13231 

13232 

13233 

13234 

13235 

13236 

13237 

13238 

13239 

13240 

13241 

13242 

13243 

13244 

13245 

13246 

13247 

13248 

13249 


051007 
051010 
051011 

051012 
051013 
051014 
051015 
051016 
051017 

051020 
051021 
051022 
051023 
051024 
051025 
051026 
051027 
051030 
051031 
051032 
051033 
051034 
051035 
051036 
051037 
051040 
051041 
051042 

051043 
051044 
051045 
051046 
051047 
051050 
051051 
051052 
051053 


033  11  0  00  000000 
033  10  1  00  065226 
263  17  0  00  000000 

261  17  0  00  000001 
200  01  0  00  065226 
660  01  0  00  020000 
033  11  0  01  000000 

262  17  0  00  000001 

263  17  0  00  000000 


261 
261 
261 


17 
17 
17 


135  01 
135  00 
660  00 
202  00 
260  17 
135  00 
660  00  0 
202  00  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


260  17 
660  01 
202  01 
260  17 

262  17 
26?  17 
2oi  17 

263  17 


261 
261 
135 
033 
200 
033 
262 
262 
263 


17 
17 
01 
11 
01 
10 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  000001 
00  000002 
00  060657 
00  060660 
00  001000 
00  065226 
00  051332 
00  060661 
00  000400 
00  065226 
00  051332 
00  010000 
00  065226 
00  051332 
00  000002 
00  000001 
00  000000 
00  000000 


00 
00 
00 
01 
00 
01 
00 
00 
00 


000000 
000001 
060662 
060000 
065226 
000000 
000001 
000000 
000000 


SUBTTL  DIAGNOSTIC  CONSOLE  COMMAND  SUBROUTINES 


LIR 


LPC 


LUM; 


LCR: 


LDREG 
LDREG 
RTN 

PUT 

MOVE 

TRO 

LDREG 

GET 

RTN 

PUT 

PUT 

PUT 

LDB 

LDB 

TRO 

MOVEM 

GO 

LDB 

TRO 

MOVEM 

GO 

TRO 

MOVEM 

GO 

GET 

GET 

GET 

RTN 

PUT 

PUT 

LDB 

LDREG 

MOVE 

LDREG 

GET 

GET 

RTN 


DXDR1,0 
DXDRO.aCDATA 


1 

UCDATA 

UPCEN 

DXDR1,(1) 

1 


;Clr  pc  reg. 

;Load  ir 

.'Back  to  console  mode 

;Save  1 

;Get  data  to  load 

;Set  pc  enable  bit 

;Load  pc 

.-Restore  1 

.'Back  to  console  mode 


0 

1 

2 

1.CP0INT 

[POINT  8 

1000 

CDATA 

XI 

[POINT  2 

400 

CDATA 

XI 

1.10000 

1. CDATA 

XI 

2 

1 

0 


.'Save 
.'Save 
.'Save 
8.CDATA.35] 
.CADDR.35] 

.'Make 
.'Put 


acO 
ad 
ac2 

.'Get  data 

.'Get  low  bits  of 
micro  inst  (Idmar) 
inst  in  cdata  for  common  routine 


adr 


.Xct  inst 

.CADDR. 27]     .'Get  high  bits  of  adr 
.'Make  micro  inst  (Idmarx) 
.'Put  inst  in  cdata  for  common  routine 
;Xct  inst 

.'Make  micro  inst  (Idmem) 
.'Put  inst  in  common  routine 
.'Xct  inst 
.'Restore  ac2 
.'Restore  ad 
.'Restore  acO 


0  .'Save  0 

1  :Save  ad 

1. [POINT  12. CADDR, 35]   ;Get  register  address 

DXDRl.PCENIMSENd)      ;Load  pc 

1. CDATA       .'Get  instruction 

DXDRO.d)      .'Load  cr  from  ir 

1  .'Restore  acl 

0 

.Back  to  console  mode 


r 


DFDXD 
DXCOM 

13250 

13251 

13252 

13253 

1325A 

13255 

13256 

13257 

13258 

13259 

13260 

13261 

13262 

13263 

1326A 

13265 

13266 

13267 

13268 

13269 

13270 

13271 

13272 

13273 

13274 

13275 

13276 

13277 

13278 
13279 
13280 
13281 
13282 
13283 
13284 
13285 
13286 
13287 
13288 
13289 
13290 
13291 
13292 
13293 
13294 
13295 
13296 
13297 

13298 
13299 
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SEQ  0477 


051054 
051055 
051056 
051057 
051060 
051061 
051062 
051063 
051064 
051065 
051066 
051067 

051070 
051071 
051072 

051073 
051074 
051075 

051076 

051077 

051100 

051101 

051102 

051103 

051104 

051105 

051106 

051107 

051110 

051111 

051112 

051113 

051114 

051115 

051116 

051117 

051120 

051121 

051122 

051123 

051124 

051125 

051126 

051127 

051130 

051131 

051132 


261 
135 
660 
202 
260 
135 
242 
660 
202 
260 
262 
263 


17 
00 
00 
00 
17 
00 
00 
00 
00 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
060657 
002000 
065226 
051332 
060663 
000004 
07201 1 
065226 
051332 
000000 
000000 


LAC: 


261  17  0  00  000000 
201  00  0  00  002030 
254  00  0  00  051100 

261  17  0  00  000000 
201  00  0  00  002020 
254  00  0  00  051100 


261  17 

201  00 

261  17 

202  00 
260  17 

201  00 

202  00 
260  17 
26?  17 
4u?  00 
660  00  0 
202  00  0 
260  17  0 
135  00  0 
242  00  0 
602  00  0 
640  00  0 
435  00  0 
202  00  0 
260  17  0 

262  17 
163  17 


261 
135 


17 
00 
00 


;5 
241 

434  00 
256  00 

262  17 

263  17 


0  00  000000 

0  00  002010 

0  00  065226 

0  00  065226 

0  00  051332 

0  00  066371 

0  00  065226 

0  00  051332 

0  00  000000 

0  00  000377 

00  002000 

00  065226 

00  051332 

00  060664 

00  000004 

00  000400 

00  002400 

00  064011 

00  065226 

00  051332 

0  00  000000 

0  00  000000 

0  00  000000 

0  00  060665 

0  00  000000 

0  00  000000 

0  00  000000 


LCI: 

LDP: 

LMB: 
LIO: 


LDR: 


PUT 

LDB 

TRO 

MOVEM 

GO 

LDB 

LSH 

TRO 

MOVEM 

GO 

GET 

RTN 

PUT 
MOVE  I 
PJRST 

PUT 
MOVE  I 
PJRST 

PUT 

MOVE  I 

PUT 

MOVEM 

GO 

MOVE  I 

MOVEM 

GO 

GET 

AND  I 

TRO 

MOVEM 

GO 

LDB 

LSH 

TRNE 

TRC 

OR  I 

MOVEM 

GO 

GET 

RTN 

PUT 

LDB 

ROT 

OR 

XCT 

GET 

RTN 


0  ;Sav8  acO 

[POINT  8,CDATA,35]     ;Get  data  for  ac 

2000         ;Make  micro  ints.  (Idbr) 

CDATA         ;Save  for  common  routine 

XI  :Xct  inst. 

[POINT  3,CADDR,35]     ;Get  ac  address 

4  ;Shift  left  4  places 

72011         ;Make  micro  inst.  (movb  acx) 

CDATA         ;Save  for  commom  routine 

XI  ;Xct  inst. 

0  .'Restore  acO 


0 

2030 

LIO 

0 

2020 

LIO 

0 

2010 

CDATA 

CDATA 

XI 

66371 

CDATA 

XI 

0 

377 

2000 

CDATA 

XI 

[POINT  5,CADDR 

4 

1B27 

18251 1B27 

64011 

CDATA 

XI 

0 


;Save  acO 

;Get  <ldbr  30>  instruction 

;Load  the  i/o  register 

Save  acO 

Get  <ldbr  20>  instruction 

Loadt  the  i/o  register 

Sav/e  acO 

Get  <ldbr  10>  instruction 

Sav/e  cdata 

Move  instruction  to  cdata 

Put  interface  number  in  or 

Get  <movb  ioseL>  instruction 

Put  in  cdata 

Select  the  desired  interface 

Get  data  to  load 

Strip  it 

Make  micro  inst  (Idbr  data) 

For  xct  routine 
.Xct  inst 
.35]     ;Get  register  address 
;Put  in  correct  position 
;High  order  addr.  bit? 
.'Complement  bits 
;Make  instruction  (movb) 
;For  xct  routine 
;Xct  inst 
.'Restore  acO 


0  :Save  acO 

[POINT  5.CADDR.353     ;Get  register  number 

-*D13         .'Position 

[LDREGA  aCDATAJ  .'Merge  with  load  command 

0  ;Xct  load  reg 

0 

;Back  to  console  mode 


r 


DFDXD 
DXCOM 

13300 

13301 

13302 

13303 

1330A 

13305 

13306 

13307 

13308 

13309 

13310 

13311 

13312 

13313 

133U 

13315 

13316 

13317 

13318 

13319 

13320 

13321 

13322 

13323 

1332A 

13325 

13326 

13327 

13328 

13329 

13330 

13331 

13332 

13333 

13334 

13335 

13336 

13337 

13338 

13339 

133A0 

13341 

13342 
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SEQ  0478 


051133 
051134 
051135 
051136 
051137 
051140 
051141 
051142 
051143 
051144 

051145 

051146 

051147 

051150 

051151 

051152 

051153 

051154 

051155 

051156 

051157 

051160 

051161 

051162 

051163 

051164 

051165 

051166 

051167 

051170 

051171 

051172 

051173 

051174 

051175 

051176 

051177 

051200 

051201 

051202 

051203 

051204 


033  11 
027  10 
405  01 
332  00 
263  17 


0 
0 
0 
0 
0 


037  01  0 
200  00  0 
037  06  0 
037  01  0 
263  17  0 


027  11 
405  01 
332  00 
263  17 
037  01 


0 
0 
0 
0 
0 


200  00  0 
037  04  0 
037  01  0 
263  17  0 
135  01  0 
660  01  0 
202  01  0 
260  17  0 
135  01  0 


660  01 
202  01 

260  17 
027  15 
405  01 
33i  00 
263  17 

261  17 
027  17 
405  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  01  0 
200  00  0 
037  04  0 
037  01  0 

262  17  0 
037  03  0 
037  01  0 

263  17  0 


00  000000 
00  000000 
00  M7777 
00  030050 
00  000000 
00  060600 
00  000001 
00  000001 
00  030242 
00  000000 

00  000000 
00  007777 
00  030050 
00  000000 
00  060601 
00  000001 
00  000001 
00  030242 
00  000000 
00  060660 
00  001000 
00  065226 
00  051332 
00  060661 
00  000400 
00  065226 
00  051332 
00  000000 
00  000377 
00  030050 
00  000000 
00  000001 
00  000000 
00  001777 
00  060666 
00  000001 
00  000001 
00  057747 
00  000000 
00  000001 
00  030242 
00  000000 


RIR: 


RPC 


RUM: 


LDREG 

RDREG 

AND  I 

SKIPE 

RTN 

PNTMSF 

MOVE 

PNT6F 

PCRLF 

RTN 

RDREG 

AND  I 

SK I PE 

RTN 

PNTMSF 

MOVE 

PNT4F 

PCRLF 

RTN 

LDB 

TRO 

MOVEM 

GO 

LDB 

TRO 

MOVEM 

GO 

RDREG 

AND  I 

SKIPE 

RTN 

PUT 

RDREG 

AND  I 

PNTMSF 

MOVE 

PNT4F 

PNTMSF 

GET 

PNT3F 

PCRLF 

RTN 


DXDR1,0 
DXDRO 
yA77777 
RUNFLG 

CASCIZ/IR=/] 
1 


;Clr  pc  reg. 

;Read  ir 

;Strip  other  bits 

; Don't  print  if  from  program  call 

;Get  data  from  ad 
.-Print  data 

;Back  to  console  mode 


DXDRl 

^.7777 

RUNFLG 

CASCIZ/PC=/] 
1 


;Read  pc 

; Clear  other  bits 

;Don't  print  if  from 


Get  data  from  ad 
Print  data 


program  call 


1. [POINT 

IJOOO 

l.CDATA 

XI 

1, [POINT 

1,400 

l.CDATA 

XI 

DXDR5 

1,377 

RUNFLG 

1 

DXDR7 

1.1777 

[ASCI2/yM  /] 

1 

[ASCI2/=/] 
0 


8.CADDR 


2.CADDR 


Back  to  console  mode 

353    ;Get  address 

Make  micro  inst  (Idmar) 

Put  inst  in  cdata  for  common  routine 

Xct  inst 

27^        ;Get  high  bits  of  address 

Make  micro  inst  (movei  load  maex.) 

Put  inst  in  cdata  for  common  routine 

Xct  inst 

Read  ma  bits 

Strip  other  bits 

Don't  print  if  pn 


program  call 


Save  the  data  read 
Read  ma  address  bits 
Strip 

Move  to  0 


;Get  the  data  bits  again 
.-Print  data 

.'Back  to  console  mode 


i  DFDXD 
DXCOM 
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SEQ  0479 


13348 
13349 
13350 
13351 
13352 
13353 
13354 
13355 
13356 
13357 
13358 
13359 
13360 


051212 
051213 
051214 
051215 
051216 
051217 
051220 
051221 
051222 
051223 
051224 
051225 
051226 


405 
332 
263 
037 
261 
027 
200 
037 
037 
262 
037 
037 
263 


n 
II 
n 
11 

10 
01 
00 
17 
01 
17 

11 

00 
04 
01 
17 
06 
01 
17 


II 

)0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030050 
000000 
060667 
000001 
000000 
000001 
000001 
057747 
000000 
000001 
030242 
000000 


RCR: 


MOVE 

AND  I 

TRO 

LDREG 

RDREG 

AND! 

SKIPE 

RTN 

PNTMSF 

PUT 

RDREG 

MOVE 

PNT4F 

PNTMSF 

GET 

PNT6F 

PCRLF 

RTN 


UCADDR 
1  PC 
1>CEN!IREN 

DXDRUd) 
DXDRO 
}M7777 
RUNFLG 

CASCIZ/CR/: 

1 

DXDR1 

1 

[ASCIZ/=/] 
0 


;Get  cr  addr 
; Strip  to  pc 
; Enable  ir  &  pc 
;Load  cr  addr. 
;Read  data 
;Stn'p 
;Don*t  print  if 


;Save  data 
;Read  reg  31  pc 
;Get  addr 


;Get  data  back 
;Print  data 

;Back  to  console  mode 


program  call 


I*- 
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SEQ  0480 


13361 

13362 

13363 

1336A 

13365 

13366 

13367 

13368 

13369 

13370 

13371 

13372 

13373 

13374 

13375 

13376 

13377 

13378 

13379 

13380 

13381 

13382 

13383 

13384 

13385 

13386 

13387 

13388 

13389 

13390 

13391 

13392 

13393 

13394 

13395 

13396 

13397 

13398 

13399 

13400 

13401 

13402 

13403 

13404 

13405 

13406 

13407 

13408 

13409 

13410 

13411 

13412 

13413 


051227 
051230 
051231 
051232 
051233 
051234 
051235 
051236 
051237 
051240 
051241 
051242 
051243 
051244 
051245 
051246 
051247 
051250 
051251 
051252 
051253 

051254 
051255 
051256 
051257 

051260 
051261 
051262 
051263 
051264 
051265 
051266 
051267 
051270 
051271 
051272 
051273 
051274 
051275 

051276 
051277 
051300 
051301 
051302 
051303 
051304 
051305 
051306 
051307 
051310 
051311 


033  11 
200  01 
405  01 
242  01 
033  10 
027  12 
405  01 
332  00 
263  17 
037  01 
135  00 
037  01 
037  01 

200  00 
037  03 
037  01 
263  17 
336  00 
037  01 

201  00 
254  00 


0 
0 
0 
0 


00 
00 
00 
00 


0  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
065223 
000007 
000004 
000009 
000000 
000377 
030050 
000000 
060670 
060663 
000001 
057747 
000001 
000001 
030242 
000000 
030050 
060671 
002003 
051263 


RAC: 


336  00  0  00  030050 
037  01  0  00  060672 
201  00  0  00  002002 
254  00  0  00  051263 


336  00 
037  01 
201  00 
2ui  00 
260  17 

201  00 

202  00 
260  17 
200  01 
405  01 
602  01 
640  01 
660  01 
202  01 
260  17 
027  15 
135  01 
332  00 
263  17 
135  00 
037  02 
037  01 
200  00 
037  03 
037  01 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030050 
060673 
002001 
065226 
051332 
066371 
065226 
051332 
065223 
000037 
000020 
100020 
020000 
065226 
051332 
OOQOOO 
052657 
030050 
000000 
060664 
000001 
057747 
000001 
000001 
030242 
000000 


RCI: 


RDP: 


RMB: 
RIO: 


LDREG 

MO^E 

AND  I 

LSH 

LDREG 

RDREG 

AND  I 

SKIPE 

RTN 

PNTMSF 

LDB 

PNT1F 

PNTMSF 

MOVE 

PNT3F 

PCRLF 

RTN 

SKIPN 

PNTMSF 

MOVE  I 

PJRST 

SKIPN 
PNTMSF 
MOVE  I 
PJRST 

SKIPN 

PNTMSF 

MOVE  I 

MOVEM 

60 

MOVE  I 

MOVEM 

GO 

MOVE 

AND  I 

TRNE 

TRC 

TRO 

MOVEM 

GO 

RDREG 

LDB 

SKIPE 

RTN 

LDB 

PNT2F 

PNTMSF 

MOVE 
PNT3F 
PCRLF 
RTN 


DXDRUO 

I^CADDR 

1,7 

1,4 

DXDR0,(1) 

DXDR2 

1,377 

RUNFLG 


.-Clear  pc  bits 

;Get  dC  addr. 

;Mask  bits 

.-Shift  left  4  places 

.'Load  ac  address  into  ir 

.-Read  reg  32 

.-Strip 

.-Don't  print  if  program  call 


CASCI2/AC/3 
[POINT  3.CADDR.35: 


;Get  ac  address 


[ASCIZ/=/] 
1 


.-Get  addr  from  ad 


.-Don't  print  if  not  in  console 

.-Get  <ldbr  3>  instruction 
.-Go  read  register 

.-Don't  print  if  not  in  console 

.-Get  <ldbr  2>  instruction 
.-Go  read  register 

.-Don't  print  if  not  in  console 

;Get  <ldbr  1>  instruction 

.-Put  instruction  into  cdata 

.-Load  interface  number  into  br 

.-Get  <movb  iosel>  instruction 

.-Put  into  cdata 

.-Select  the  desired  interface 

.-Get  reg.  addr. 

.-Mask  bits 

.-Reg.  greater  than  17? 

.-Yes.  complement  bits 

.-Make  micro  inst  (dati) 

.-For  xct  routine 

;Xct  inst 

.-Read  reg.  35 

.-Get  bits  from  balu 


RUNFLG 

CASCIZ/CI/] 

2003 

RIO 

RUNFLG 

CASCIZ/DP/3 

2002 

RIO 

RUNFLG 

CASCIZ/MB/] 

2001 

CDATA 

XI 

66371 

CDATA 

XI 

l.CADDR 

1,37 

1.1B31 

1.1B20I1B31 

1.20000 

1.  CDATA 

XI 

DXDR5 

1. [POINT  8,1.27] 

RUNFLG        .-Don't  print  if  in  program 

[POINT  5,CADDR.35J     .-Get  register  address 


[ASCIZ/=/] 
1 


;Get  data 


DFDXD 
DXCOM 

13AU 

13A15 

13A16 

13A17 

13A18 

13A19 

13A20 

13421 

13422 

13423 

1342*^ 

1342b 

13426 

13427 

13428 

13429 

13430 

13431 

13432 

13433 

13434 

13435 

13436 

13437 

13438 

13439 

13440 

13441 

13442 

13443 

13444 

13445 
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SEQ  0481 


051312 
05\313 
051314 
051315 
051316 
051317 
051320 

051321 
051322 
051323 
051324 
051325 
051326 
051327 
051330 
051331 

051332 
051333 
051334 
051335 
051336 
051337 
051340 
051341 
051342 
051343 
051344 
051345 
051346 
051347 


135 
241 
434 
256 
336 
260 
263 


01 
01 
01 
00 
00 
17 
17 


0  00 


261  17 

032  03 
200  01 
405  01 

033  11 
032  03 
032  03 

262  17 

263  17 


0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
OC 
00 
00 

00 
00 
00 
00 
01 
00 
00 
00 
00 


060664 
777763 
060674 
000001 
030050 
047274 
000000 

000001 
000020 
065223 
007777 
130000 
000024 
000020 
000001 
000000 


261  17  0 

032  03  0 

033  11  0 

200  01  0 
033  10  0 
033  11  0 

201  01  0 
332  00  0 
660  01  0 
032  03  0 


402  00 
03?  03 
2oi  17 
263  17 


0 
0 
0 
0 


00  000001 
00  000020 
00  060000 

00  065226 

01  000000 
00  100000 
00  000024 
00  065350 

00  000010 

01  000000 
00  065350 
00  000020 
00  000001 
00  000000 


RDR: 


XCR 


XI: 


LDB 

ROT 

OR 

XCT 

SKIPN 

GO 

RTN 

PUT 

LDREG 

MOVE 

AND  I 

LDREG 

LDREG 

LDREG 

GET 

RTN 

PUT 

LDREG 

LDREG 

MOVE 

LDREG 

LDREG 

MOVE  I 

SK I PE 

TRO 

LDREG 

SETZM 

LDREG 

GET 

RTN 


1, [POINT  5,CADDR,35]    ;6et  register  address 
1,-*D13       .'Position 
UCRDREGA]     ;Merge  with  command 


1 

RUNFLG 

REGPNT 


.-Xct  read  reg 

;Don*t  print  if  main  prg.  is  running 

.-Print  the  register  data 

;Back  to  console  mode 


1  ;Save  ad 

DXMTR.MPSC  ;Load  maint  reg 

1.CADDR  ;Get  cr  addr 

1.PC  ; Strip 

DXDR1.PCEN!IREN!PCAI(1)  ;Load  pc 

DXMTR,MPSTR!MPSC       ;Start  micro  proc.  single  step 


DXMTR.MPSC 


1 

DXMTR.MPSC 

DXDR1.PCENIMSEN 

1.CDATA 

DXDRO.d) 

DXDR1JREN 

I.MPSTRIMPSC 

XIEVP 

1.MPWEVP 

DXMTR.d) 

DXMTR.MPSC 


Clear  start 
Restore  ad 
Back  to  console  mode* 

Save  ad 

Stop  proc 

Clr  pc  and  set  bits 

Get  the  instruction 

Load  ir  with  inst 

Set  iren  in  pc  reg. 

If  flag  set  xct  with  even  parity 

Start  micro  proc.  single  step 

Clr  flag 

Clear  start 

Restore  ad 

Back  to  console  mode 
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13446 

13447 

13448 

13449 

13450 

13451 

13452 

13453 

13454 

13455 

13456 

13457 

13458 

13459 

13460 

13461 

13462 

13463 

13464 

13465 

13466 

13467 

13468 

13469 

13470 

13471 

13472 

13473 

13474 

13475 

13476 

13477 

13478 

13479 

13480 

13481 

13482 

13483 

13484 

13485 

13486 

13487 


051350 
051351 
051352 
051353 
051354 
051355 
051356 
051357 

051360 
051361 

051362 
051363 

051364 
051365 
051366 
051367 
051370 
051371 
051372 
051373 
051374 
051375 
051376 

051377 
051400 
051401 
051402 
05UO3 
051404 

051405 
051406 
051407 
051410 
051411 
051412 
051413 
051414 


261  17  0 

032  03  0 
200  01  0 
405  01  0 

033  11  0 
032  03  0 

262  17  0 

263  17  0 


00  000001 
00  000002 
00  065223 

00  007777 

01  130000 
00  000004 
00  000001 
00  000000 


032  03  0  00  000000 

263  17  0  00  000000 

032  03  0  00  000002 

263  17  0  00  000000 


200  02  0 
405  02  0 


350  00 
200  03 


405  03  0 
202  03  0 


260  17 
350  03 
312  03 
254  00 
263  17 


0 
0 
0 
0 
0 


00  065223 
00  000037 
00  000002 
00  065226 
00  000037 
00  065223 
00  051312 
00  065223 
00  000002 
00  051370 
00  000000 


200  00  0  00  056023 
336  00  0  00  065335 
254  00  0  00  051405 
2uJ  00  0  00  060675 
336  00  0  00  030516 
200  00  0  00  060676 


202  00 
202  00 
205  00 
202  00 
202  00 
260 
263 
263 


0  00  052500 
0  00  065331 
0  00  4K470 
0  00  052501 
0  00  065330 
0  00  051450 
0  00  OOCOOO 
17  0  00  000000 


17 
17 


ST: 


RE: 
RDA: 

RDAL : 


GDXMC 


PUT 

LDREG 

MOVE 

AND  I 

LDREG 

LDREG 

GET 

RTN 

LDREG 
RTN 

LDREG 
RTN 

MOVE 

AND  I 

AOS 

MOVE 

AND  I 

MOVEM 

GO 

AOS 

CAME 

JRST 

RTN 

MOVE 

SKIPN 

JRST 

MOVE 

SKIPN 

MOVE 

MOVEM 

MOVEM 

MOVSI 

MOVEM 

MOVEM 

60 

RTN 

RTN 


1 

DXMTR.DXRES 

1,CADDR 

1  PC 

DXDR1,PCENIPCAI! 

DXMTR,MPSTR 

1 


;Save  acl 

;Stop  proc,  reset  errors 

;Get  St  addr. 


tStn'p 

Iren(i: 


DXMTR,0 


DXMTR,DXRES 


2,CADDR 
2,37 

IcDATA 

3,37 

3,CADDR 

RDR 

3,CADDR 

3,2 

RDAL 


)  ;Load  starting  addr. 
;Start  micro  processor 
.•Restore  acl 
.-Back  to  console  mode 

;Clr  start  bit 

;Back  to  console  mode 

; Reset  dx20 

;Back  to  console  mode 


Get  the  "to"  addr. 
Last  reg.# 

Get  first  regM   "from  addr." 

Mask  bits 

Put  in  caddr 

Read  the  register 

Get  next  reg 

All  done?  "from  =  to" 

No. 

Back  to  console  mode 


CSIX8IT/DXMCA/] 

TAPFLG# 

.^^ 

CSIXBIT/DXMCE/: 

MONTYP 

CSIXBIT/DXMCD/]  ;TopslO 


File 

Is  it  tape  or  disk 

Tape 

Disk,  now  topslO  or  tops20 


FILNAM 

SU8FIL 

•ADX' 

FILEXT 

SUBEXT 

LDUP 


;File  extension 


;Go  load  up 

;Failed,  cannot  restore  microcode 


Mila*>iiiMHM«N|iMHH«iMliil 


'!_ 
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SEQ  0483 


13A88 

13489 

13A90 

13A91 

13A92 

13A93 

1349A 

13A95 

13496 

13A97 

13498 

13499 

13500 

13501 

13502 

13503 

13504 

13505 

13506 

13507 

13508 

13509 

13510 

13511 

13512 

13513 

13514 

13515 

13516 

13517 

13518 

13519 

13520 

13521 

13522 

13523 

13524 

13525 

13526 

13527 

13528 

13539 

13550 

13531 

135? 

1353 

13534 


051415 
051416 
051417 
051420 
051421 
051422 
051423 
051424 
051425 
051426 
051427 
051430 
051431 
051432 
05143S 
051434 
051435 
051436 
051437 
051440 
051441 
051442 

051443 
051444 
051445 
051446 
051447 


037  10  0 
254  00  0 
322  00  0 
202  00  0 
205  01  0 
202  01  0 
200  02  0 
302  02  0 
254  00  0 
037  10 
^54  00 


260  17  0 
255  00  0 
254  00  0 


00  000003 
00  051443 
00  051443 
00  065331 
00  414470 
00  065330 
00  030232 
00  000054 
00  051433 
00  000003 
00  051443 
00  051443 
00  434470 
00  030232 
00  000015 
00  051443 
00  052500 
00  052501 
00  065271 
00  C51450 
00  000000 
00  050631 


137  01  0  00  000007 
137  01  0  00  060677 
;!?  00  0  00  030037 
151  11  0  00  000000 
!54  00  0   00  050631 


*LdprQ«  request  program  name  &  sub  fUe  from  operator 


^Calling  seq: 
•Move  Lsixbit/foo/J 
*Movem  fit nam 
♦Movsi  'cdx* 
♦Movem  fUext 
♦Move  Csixbit/foo/J 
♦Movem  sub fit 
♦Movsi  *adx' 
♦Movem  subext 
*Go    Ldup 
♦Error  return 
♦Normal  return 


;put  sixbit  file  name  into  loc.  fUnam 
;put  sixbit  file  ext  into  loc.  filext 
;put  sixbit  subfile  name  into  loc.  subfil 
;put  subfile  extension  into  subext 
;go  load  micro  processor 


;♦:    "Cdx"  extensions  are  used  when  sub  files  are  combined  together 
.•♦To  form  one  file."adx"  extension  can  be  used  for  single  files. 


LUP:    TTSIXB 
JRST 
JUMPE 
MOVEM 
MOVSI 
MOVEM 
MOVE 
CAIE 
JRST 
TTSIXB 
JRST 
JUMPE 
MOVSI 
MOVE 

LOAD:   CAIE 
JRST 
MOVEM 
MOVEM 
SETZM 
60 

jrci 

JRS7 

ASKERR:  P8ELL 
PNTMSF 
SKIPE 
CLRBFI 
JRST 


ASKERR 

ASKERR 

SUBFILE 

1/ADX' 

KSUBEXT# 

2.ICHRIN 
5  ••  •  I 

LOAD 

ASKERR 
ASKERR 
1/CDX* 
2,$CHRIN 

A§KERR 
FILNAM 
1, FILEXT 
LSTFIL* 
LOUP 

CMD !NP 


[ASCIZ/???/3 
USER 

CMD INP 


;6et  file  name 

;Null  name? 

;0k.  store  it 

;Get  adx  extension 

;Put  in  subfile  extension 

;6et  last  char,  typed 

;Cdx  file? 

;Read  file  name 


;6et  a  cdx  extension 
;Get  last  character  typed 
;Cr 

;Fjt  in  fiLnar 

.Load  extension 

.-Force  a  lookup  of  file 


.-All  done 


;User  mode? 

;Clr  input  buffer 

.-Try  again 
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SEQ  (y*S^ 


13535 

13536 

13537 

13538 

13539 

135A0 

135A1 

135A2 

135A3 

135AA 

135A5 

135A6 

135A7 

135A8 

135A9 

13550 

13551 

13552 

13553 

1355A 

13555 

13556 

13557 

13558 

13559 

13560 

13561 

13562 

13563 

1356A 

13565 

13566 

13567 

13568 

13569 

13570 

13571 

13572 

13573 

1357A 

13575 

13576 

13577 

13578 

13579 

13580 

13581 

13582 

13583 

1358A 

13585 


051A50 
051A51 
051A52 
051A53 
051A5A 
051A55 
051A56 
051A57 
051A60 
051A61 
051 A62 
051A63 
051 A6A 


261 
261 
261 
261 
260 
25A 
200 
13A 
306 
25A 
037 
25A 
037 


17 
17 
17 
17 
17 
00 
OA 
00 
00 
00 
12 
00 
01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
000002 
000003 
OOOOOA 
051633 
051626 
060700 
OOOOOA 
000015 
051A6A 
000001 
051A57 
0302A2 


15 


i^ 


051A65 
051A6e 
051A67 

05'.A70 
051A71 
051A72 
051A73 
051 A7A 
051A75 
051A76 
051A77 
051500 
051501 
051502 
051503 
051 50A 
051505 

051506 
051507 
051510 
051511 

051512 
051513 
05151A 
051515 
051516 


200  00  0  00  060701 
402  00  0  00  052371 
251  00  0  00  052A37 


260  17 
25A  00 
3i/r  00 
25A  00 
A02  00 
306  00 
A  76  00 
00 
00 


l^i 


8? 


25A 
25A 
13A  00 
302  00 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 


00 
00 
00 
00 
00 

38 
88 

00 
00 
00 


051605 
052367 

8K 

065227 
000103 
065227 
000127 
065227 
051503 
0523A5 
OOOOOA 

8W 


260  17  0  00  051570 
?5A  00  0  00  052357 

ogogop37 


00  0 
17 


152371 


0  051570 
,  ..  .  A  Q52357 
272  00  0  00  Q52A37 
137  00  0  00  06Q7Q2 
205  02  0  00  77773A 


SUBTTL  PROGRAM  SELECT 

•   •***********«***#**#**♦***•*«•***•***•*#«*********** t***ttt *********** 

;*Ldprga«  program  selection 


LOUP:  PUT 
PUT 
PUT 
PUT 
GO 
JRST 
MOVE 

IDNTL:   ILDB 
CAIN 
JRST 
PNTCHF 
JRST 

IDNTLX:  PCRLF 


1 


;Save  ac's 


A 

LOOKPG        ;Look  up  the  program 

GTACS         iirror,   take  error  return 

A. [POINT  7,CMDLINJ     /Get  byte  pointer  to  fdent  line 

A  ;Get  a  character 

15  ;Skip  if  not  a  carriage  return 

IDNTLX        .-Yes,  end  of  line 

;Print  the  character 
IDNTL         ;Print  all  of  line 

;End  the  line 


;   »♦♦»♦♦♦♦♦♦♦•»♦#♦»»♦» t»***»*»»»»ii  ♦»♦♦♦♦•♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦ ♦*♦♦♦♦♦♦♦•♦♦♦♦♦ 

:*Lprgl«  program  load  "adx" 


LPRGl : 


MOVE 

SETZM 

BLT 

60 

JRST 

CAIN 

JRST 

SETZM 

CAIN 

SETOM 

CAIE 

SKIPE 

JRST 

JRST 

ILDB 

CAIE 

JRST 

60 

JRST 

MOVEM 

MOVEM 

60 

JRST 

ADDM 

DPB 

MOVSI 


[FEWC,,FEWC03 

FEUC 

CHKSUM 

GTLIN 
LEOFE 

L§OFE 
CFLAGf 

CFLA'J 
•  *,•. 

CFLAG 
.♦2 
LDER2 
A 

LDER3 

GTyRD 
LDERA 
CHKSUM 
FEWC 


:Clear  load  buffer 


Get  line  of  data  in  cmdlin 
Error,   found  eof  before  expected 

;Skp  if  not  comment  Line 
Illegal  end  of  file 
O^Load  working  mem.  1=load  cram 
Dx20  load  line 
Load  cram 
Dx20  load  line 
yas  flag  set 
Yes  or  w  line 
No-error  in  file 
Get  next  byte 
Is  it  space 
No-format  error 


:Ac  013  contain  18  bits  of  data 
; Format  error 
.'Update  chksum 
;Save  word  count 


GTWRD         ;Get  next  word 
LDERA         .-Format  error 
CHKSUM        :U^date  chksum 
[POINT  16.FEWC.19]     .-Load  adr 
2.-*D3^       .-Setup  index 


r 


DFDXD 

Dxcon 

13588 

13589 

13590 

13591 

13592 

13593 

1359A 

13595 

13596 

13597 

13598 

13599 

13600 

13601 

13602 

13603 

1360A 

13605 

13606 

13607 

13608 

13609 

13610 

13611 

13612 

13613 

136U 

13615 

13616 

13617 

13618 

13619 

13620 

13621 

13622 

13623 

13624 

13625 

13626 

13627 

13628 

13629 

13630 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  18-Jdn-85  14:26  PROGRAM  SELECT 


VERSION  0.5  MACRO  J;53A(1152)   18:38    6-Apr-85  Page  104 


SEO  0485 


051517 
051520 
051521 
051522 
051523 
051524 

051525 
051526 
051527 
051530 
051531 
051532 
051533 
051534 
051535 
051536 
051537 
051540 
051541 
051542 
051543 
051544 

051545 
051546 
051547 
051550 
051551 
051552 
051553 
051554 
051555 
051556 
051557 
051560 
051561 
051562 
051563 
051564 
051565 
051566 
051567 


260  17  0  00  051570 
254  00  0  00  051525 
272  00  0  00  052437 
202  00  0  02  052372 

253  02  0  00  051517 

254  00  0  00  052363 


202  00 
270  00 
602  00 
254  00 
135  00 
332  00 
254  00 
200  00 
202  00 
402  00 
260  17 
262  17 
262  17 
262  17 
262  17 
254  00 


400  02 
135  00 
202  00 
135  03 
326  00 
336  00 
23  •  00 
200  00 
202  00 
200  00 
202  00 
332  00 
260  17 
336  00 
260  17 
350  00 
350  00 
367  03 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


02 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
00 
00 
00 


052372 
052437 
1 11111 
052365 
060703 
000000 
051545 
065232 
065226 
065223 
051043 
000004 
000003 
000002 
000001 
030064 

000000 
060702 
06^^23 
060/03 
051 5 "6 
0652i:7 
051 55 S 
05237.' 
06523; 
05237^ 
065226 
065227 
051043 
065227 
051020 
000002 
065223 
051556 
051465 


LPR62:  60 
JRST 
ADDM 
MOVEM 
AOBJN 
JRST 

LPRG3:  MOVEM 
ADD 
TRNE 
JRST 
LDB 
SKIPE 
JRST 
MOVE 
MOVEM 
SET2M 
GO 
GET 
GET 
GET 
GET 
JRST 

LDPRG4:  SETZ 
LDB 
MOVEM 
LDB 
JUMPN 
SKIPN 
JRST 
MOVE 
MOVEM 

LDPRGL:  MOVE 
MOVEM 
SKIPE 
GO 

SKIPN 
GO 
AOS 
AOS 
SOJG 
JRST 


GTURD 

LPRG3 

CHKSUM 

FEDAT(2) 

2,LPRG2 

LDER8 


;Get  next  word 
;Send  thru  rh20  rhIO 
;Update  checksum 
;Save  word 
;Go  for  next  word 
;Too  many  words 

;Put  file  cksum  in  load  b'<ffer 


FEDAT(2) 

CHkSUM 

Mllll  .-Checksum  should  =  0 

LDER9         :Checksum  error 

[POINT  16,FEWC,35]     :Uas  word  count  =  0  ? 

;Skip  if  all  zeros 
LDPRG4         ;No. 
CRAMOf        .-Restore  cram  loc.  0 
CDATA 
CADDR 

LCR  .'Load  cram  loc.O 

4  .-Restore  the  ac's 

2 

1 

CP0PJ1        .-All  done 


C^OINT  16. 

CADDR 

3. [POINT  1 

LDPRGL 

CFLAG 

LDPRGL 

FEDAT 

CRAMO 

FEDAT(2) 

CDATA 

CFLAG 

LCR 

CFLAG 

LyM 

2 

CADDR 

3-LDPRGL 

LPRG1 


:Clr  index  pointer 
FEWC.19D     .-Get  addr. 

.'Save  for  load  routine 
6.FEWC.35]    .-Get  word  count 

If  addr's  0  don't  jump 

If  cram  save  loc  0 

Must  be  memory 

Get  data  for  cram  loc.  0 

Save  it 

Get  data 

Save  for  load  routine 

Load  cram? 

Yes. 

Load  working  memory? 

Yes. 

Bump  data  pointer 

Bump  DC  addr  for  load  routine 

Loop  load 

Get  next  line  of  data 


L 


\iim\iinmmm 


OFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20) 
DXCOM   MAC     18-Jdn-85  H:26        PROGRAM  SELECT 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  105 


SEQ  0A86 


13631 

13632 

13633 

1363A 

13635 

13636 

13637 

13638 

13639 

136A0 

136A1 

136A2 

136A3 

136AA 

136A5 

136A6 

136A7 

136A8 

136A9 

13650 

13651 

13652 

13653 

1365A 

13655 

13656 

13657 

13658 

13659 

13660 

13661 

13662 

13663 

1366A 

13665 

13666 

13667 

13668 

13669 

13670 

13671 

13672 

13673 

1367A 

13675 

13676 


051570 
051571 
051572 
051573 
051 57A 
051575 
051576 
051577 
051600 
051601 
051602 
051603 
051 60A 


051605 
051606 
051607 
051610 
051611 
051612 
051613 
05161A 
051615 
051616 
051617 
051620 
051621 
051622 
051623 

05162A 
051625 

051626 
051627 
051630 
051631 
051632 


A02  00 
13A  00 
306  00 
25A  00 
306  00 
25A  00 
2A2  03 
302  00 
137  00 
25A  00 
350  00 
200  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 
00 


000003 
OOOOOA 
00005A 
051602 
00001 5 
051603 
000006 
OOOOAO 
06070A 
051571 
000000 
000003 
000000 


201  02 
200  OA 
037  06 
25A  00 
136  00 
306  00 
25A  00 
367  02 
ly  00 
200  OA 
13A  00 
350  00 
263  17 
336  00 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 
00 
00 


000226 
060700 
OOOOOA 
051622 
OOOOOA 
000012 
051616 
051607 
052361 
060700 
OOOOOA 
000000 
000000 
000000 
000000 


037  01  0  00  060705 
263  17  0  00  000000 

262  17  0  00  OOOOOA 
262  17  0  00  000003 
262  17  0  00  000002 

262  17  0  00  000001 

263  17  0  00  000000 


;   »♦♦♦♦♦*»*»•♦♦♦♦•*♦♦♦ t ♦♦♦#*♦♦♦♦*♦♦*♦*♦*♦♦♦♦♦•♦ ♦♦*•♦♦♦♦♦*♦*♦♦•*♦••*♦♦♦♦* 

•♦Gtyrd,  get  prg  word 


GTWRD:   SETZM 
GTURDl:  ILDB 
CAIN 
JRST 
CAIN 
JRST 
LSH 
CAIE 
DPB 
JRST 
GTURDX:  AOS 
GTURD2:  MOVE 
RTN 


3 

A 


II  11 


GTURDX 

15 

GTURDZ 

3,6 
1 1  II 

[POINT  6,3,353 

GTURDl 

(P) 

3 


Clr  receiving  reg 

Get  next  byte 

Skp  if  not  comma 

Take  normal  exit 

Is  it  end  of  line 

Yes 

Reposition  byte 

Skp  if  space 

Save  hiah  byte 

Skp  looKing  for  comma 

Skp  up  skp  ret 

Get  word 

Exit 


•♦Gtlin,  get  next  line  of  data 


GTLIN: 
GTLN1 : 


GTLN2: 
GTEOF : 

GTACS: 


MOVE  I 

MOVE 

FREAD 

JRST 

I  DPB 

CAIN 

JRST 

SOJG 

JRST 

MOVE 

ILDB 

AOS 

RTN 

SKIPN 

RTN 

PNTMSF 

RTN 

GET 
GET 
GET 
GET 
RTN 


2,'*D150       ;Get  length  limit 

A, [POINT  7,CMDLIN3     ;Get  byte  pointer 

;Get  byte 
GTEOF         ;Go  check  for  eof 
A  .-Store  character 

12  ;Skp  if  not  carriage  return 

GTLN2         ; Setup  for  exit 
2,GTLN1       .-Repeat  if  room 
LDER7         .-Length  error 
A, [POINT  7,CMDLIN3     .-Init  byte  pointer 
A  .-Get  first  byte 

(P)  .-Take  normal  exit 

.-Skp  if  error 
.-Exit  if  eof 
[ASCIZ/FILE  KEAD  ERROR 


A 
3 

2 

1 


.-Restore  ac's 


DFDXD 
DXCOM 

13677 

13678 

13679 

13680 

13681 

13682 

13683 

13684 

13685 

13686 

13687 

13688 

13689 

13690 

13691 

13692 

13693 

13694 

13695 

13696 

13697 

13698 

13699 

13700 

13701 

13702 

13703 

13704 

13705 

13706 

13707 

13708 

13709 

13710 

13711 

13712 

13713 

13714 

13715 

13716 

13717 

13718 

13719 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  18-Jdn-85  14:26  PROGRAM  SELECT 


VERSION  0.5  MACRO  X53A(1152)   18:38    6-Apr-85  Page  106 


SEQ  0487 


•♦Look  up  the  file 


051633 

051634 

051635 

051636 

051637 

051640 

051641 

051642 

051643 

051644 

051645 

051646 

051647 

051650 

051651 

051652 

051653 

051654 

051655 

051656 

051657 

051660 

051661 

051662 

051663 

051664 

051665 

051666 

051667 

051670 

051671 

051672 

051673 

051674 

051675 

051676 

051677 

051700 

051701 


200  00 
322  00 
312  00 
254  00 
510  00 
312  00 
254  00 

200  00 
312  00 
254  00 
514  00 
312  00 
254  00 

201  00 
037  05 
254  00 
260  17 
254  00 
302  00 
254  00 
260  17 
254  00 
302  00 
254  00 
312  03 
254  00 
2oJ  17 
254  00 
312  03 
254  00 
200  00 

202  00 
200  00 
202  00 
510  00 
544  00 
202  00 
350  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  17 
0  00 


065271 

051650 

052500 

051650 

065270 

052501 

051650 

065272 

065331 

051653 

065270 

065330 

051653 

052500 

000004 

052324 

051605 

051702 

000073 

051653 

051721 

051653 

000056 

051653 

065331 

051653 

051721 

051653 

065330 

051653 

052500 

065271 

065331 

065272 

052501 

065330 

065270 

000000 

000000 


L00KP6:  MOVE 
JUMPE 
CAME 
JRST 
HLL2 
CAME 
JRST 
MOVE 
CAME 
JRST 
HRLZ 
CAME 
JRST 

LOOKSL:  MOVEI 

FSELECT 
JRST 

LOOKID:  60 

JRST 

CAIE 

JRST 

GO 

JRST 

CAIE 

JRST 

CAME 

JRST 

60 

JRST 

CAME 

JRST 

MOVE 

MOVEM 

MOVE 

MOVEM 

HLLZ 

HLR 

MOVEM 

AOS 

RTN 


LSTFIL 

LOOKSL 

FILNAM 

LOOKSL 

LSTEXT 

FILEXT 

LOOKSL 

LSTSUB# 

SUBFIL 

LOOKID 

LSTEXT* 

SUBEXT 

LOOKID 

FILNAM 

LDERl 
6TLIN 
LOOKNF 

LOOKID 

GT6UD 

LOOKID 

LOOKID 

3, SUBFIL 

LOOKID 

6T6UD 

LOOKID 

3, SUBEXT 

LOOKID 

FILNAM 

LSTFIL 

SUBFIL 

LSTSUB 

FILEXT 

SUBEXT 

LSTEXT 

(P) 


Get  last  file  open  name 

Jump  if  no  file  open 

Same  as  desired  file? 

No,  select  new  file 

Get  last  extension 

Same  as  desired  now? 

No,  select  new  file 

Get  last  sub  file  name 

Same  as  desired  now? 

No,  just  read  on 

Get  last  extension 

Same  as  desired  now? 

No,  just  read  on 

Get  address  of  file  name  block 

Look  up  the  file 

Error  -  check  device  selection 

Read  a  line  from  the  file 

Eof 

; I dent  line? 
No,  keep  reading 
Get  a  word  in  6-bit 
None  there,  keep  reading 
Period  terminator? 
No,  keep  read i no 
File  names  match? 
No 

Read  another  word  in  6-bit 
None  there,  keep  reading 
Extensions  match 
No 

File  is  open 
Remember  all  names 
And  extensions 
Of  file 
For  next  time 


•a«it«liMMMHtMM*M 


, 


DFDXD 
DXCOM 

13720 

13721 

13722 

13723 

13724 

13725 

13726 

13727 

13728 

13729 

13730 

13731 

13732 

13733 

13734 

13735 

13736 

13737 

13738 

13739 

13740 

13741 

13742 

13743 

13744 

13745 

13746 

13747 

13748 

13749 

13750 

13751 

13752 

13753 

13754 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  18-Jan-85  14:26  PROGRAM  SELECT 
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SEQ  0488 


051702 
051703 
051704 
051705 
051706 
051707 
051710 
051711 
051712 
051713 
051714 
051715 
051716 
051717 
051720 


051721 
051722 
051723 
051724 
051725 
051726 
051727 
051730 
051731 
051732 
051733 
051734 
051735 
051736 
051737 


037  01 
200  00 
037  01 
037  01 
200  00 
037  01 
037  01 
200  00 
037  01 
037  01 
200  00 
037  01 
037  01 
402  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


06071 1 
065331 
000002 
000056 
065330 
000002 
060713 
052500 
000002 
000056 
052501 
000002 
030242 
065271 
000000 


402  00 
200  01 
134  00 
306  00 
254  00 
302  00 
306  00 
254  00 
607  01 
254  00 
en  00 
136  00 
254  00 
350  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 


000003 
060717 
000004 
000056 
051736 
00001 5 
000040 
051736 
770000 
051737 
000040 
000001 
051723 
000000 
000000 


LOOKNF : 


PNTMSF 

MOVE 

PNTSXF 

PNTCIF 

MOVE 

PNTSXF 

PNTMSF 

MOVE 

PNTSXF 

PNTCIF 

MOVE 

PNTSXF 

PCRLF 

SETZM 

RTN 


CASCIZ/SUBFILE  "/J 
SUBFIL        ;6et  name 

; Print  it 


•  •  •  • 


SUBEXT 


;6et  extension 


CASCIZ/"  NOT  FOUND  IN  /] 
FILNAM        ;Get  file  name 


•  I  11 


FILEXT 


LSTFIL 


;Then  the  extension 

;End  the  line 
;Mark  no  file  open 


;*6et  a  word  in  6-bit 


GT6UD: 
GT6UD1 


GT6WDX: 
GT6WDZ: 


SETZM 

MOVE 

ILDB 

CAIN 

JRST 

CAIE 

CAIN 

JRST 

TLNN 

JRST 

SU6I 

IDPB 

JRST 

AOS 

RTN 


1, [POINT  6,33 

4 
It  •  • 

Gt6UDX 

15 
•  I  I  i 

6T6UDX 

1,770000 

GT6UDZ 

40 

1 

GT6WD1 

(P) 


Clear  3 

Set  up  pointer 

Get  a  character 

Period? 

Yes 

Carriage  rc^'urn 

Of  space? 

Yes 

Get  6  haracters  already? 

Yes,  e  ^or  return 

Convert  to  sixbit  code 

Put  into  3 

Keep  reading 

Increment  return 


DFDXD       DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
DXCOM      MAC  18-Jan-85  14:26  PROGRAM  SELECT 
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SEQ  0489 


13755 

13756 

13757 

13758 

13759 

13760 

13761 

13762 

13763 

13764 

13765 

13766 

13767 

13768 

13769 

13770 

13771 

13772 

13773 

13774 

13775 

13776 

13777 

13778 

13779 

13780 

13781 

13782 

13783 

13784 

13785 

13786 

13787 

13788 

13789 

13790 

13791 

13792 

13793 

13794 

13795 

13796 

13797 

13^98 


051740 
051741 
051742 
051743 
051744 
051745 
051746 
051747 
051750 
051751 


051752 
051753 
051754 
051755 
051756 
051757 
051760 
051761 
051762 
051763 
051764 


336  00 
263  17 
261     ~ 
261 
261 


17 
17 
17 


0 
0 
0 
0 
0 


200  00  0 
047  00  0 
037  15  0 
607  00  0 
254  00  0 


00  030037 
00  000000 
00  000000 
00  000001 
00  000002 
00  060720 
00  000041 
00  000004 
00  000040 
00  051766 


037  01 
037  01 
201  00 
260  17 
254  00 
254  00 
2uJ  0? 
201  01 
242  01 
505  01 
047  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 


060721 
060753 
000005 
044763 
051754 
051753 
000000 
000001 
000000 
000014 
000075 


051765  254  00  0  00  061000 

051766  262  17  0  00  000002 

051767  262  17  0  00  000001 

051770  262  17  0  00  000000 

051771  263  17  0  00  000000 


Cputst  -  determine  which  of  6  cpu's  to  run  on  here  if  topslO  only. 
First  find  out  if  we  have  a  multi  cpu  system,  if  so,  ask  user  to 
Select  the  proper  one.  you  must  test  rh  s  only  that  are  on  the 
This  code  also  sets  up  to  run  on  the  correct  one. 


same  cpu, 


Call  -_ 

Go     cputst        ;call  the  routine 

Rtn  ;rtn"^1  always 


seq: 
cputst 


CPUTST:  SKIPN 
RTN 
PUT 
PUT 
PUT 
MOVE 
GETTAB 
FATAL 
TLNN 
JRST 
PNTMSF 


USER 

0 
1 
2 

0,C17,,11] 
0, 

0.40 

DPRCX 

CASCI2/ 


;User  mode  ? 
;No.  exit 
;Yes.  save  ac's 


;Table=11  entry=17 

; Table  lookup 

; Fata  I  out 

;Multi  cpu  system  ? 

;No.  then  we  can  exit 


THIS  IS  A  MULTI-CPU  SYSTEM.  YOU  MUST  CHOOSE  ONLY  1  TO  RUN  IN, 
FURTHERMORE,  ALL  THE  RH'S  YOU  SELECT  'HUST"  BE  ON  THAT  CPU. 

CASCIZ/SELECT  CPU  0  THRU  5  <CR>  -  /] 


PNTMSF 

MOVE  I 

GO 

JRST 

JRST 

MOVE 

MOVE  I 

LSH 

HRLI 

SETUUO 

JRST 
SETCPU  UUO  FAILED.  EITHER 
/] 

JRST    START] 


0,5 

NUMIN 

.-2 

.-4 

2,0 

1,1 

1,(2) 

[PNTMSF  [ASCIZ/ 
WRONG 


DPRCX: 


GET 
GET 
GET 
RTN 


2 

1 
0 


0,5  Limits 

Get  the  cpu  number 

Timeout 

Error  on  input 

Get  #  to  ac  for  indexing  later 

Set  bit  mask  to  assume  cpuO 

Shift  into  position  for  selected  cpu 

Set  cpu  is  function-14 

Set  to  proper  cpu 

SELECTON  OR  LACK  OF  WHEEL  PRIVILEGES. 


.'Start  again 
.-Restore  ac's 


;And  exit 


r 


DFDXD 
DXCOM 

13799 

13800 

13801 

13802 

13803 

1380A 

13805 

13806 

13807 

13808 

13809 

13810 

13811 

13812 

13813 

13814 

13815 

13816 

13817 

13818 

13819 

13820 

13821 

13822 

13823 

13824 

13825 

13826 

13827 

13828 

13829 

13830 

13831 

13832 

13833 

13834 

13835 

13836 

13837 

13838 
13839 
13840 
13841 
13842 
13843 
13844 
13845 
13846 
13847 

13848 
13849 
13850 
13851 
13852 
13853 
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SEQ  0490 


051772 
051773 
051774 
051775 


051776 
051777 
052000 
052001 
052002 
052003 
052004 
052005 
052006 
052007 
052010 
052011 
052012 
052013 
052014 
052015 
052016 
052017 
052020 
052021 
052022 
052023 
052024 
052025 
052026 

052027 


052027 
052030 
052031 
052032 
052033 

052034 
052035 


001027 
001000 

332  00  0  00  065335 
263  17  0  00  000000 
200  00  0  00  061002 
202  00  0  00  052037 


037  01 
037  00 
254  00 
305  00 
254  00 
303  00 
254  00 
405  00 
271  00 
137  00 

201  00 

202  00 
201 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  061003 
00  000003 
00  051777 
00  000101 
00  051772 
00  000106 
00  051772 
00  000077 
00  000040 
00  061023 
00  002027 
00  052036 


20?  00 
4uJ  00 
200  01  0 
047  01  0 
260  17  0 
0 
0 
0 
0 


00  0  00  C00001 


350  00 
135  00 
305  00 
254  00 
200  00  0 
305  00  0 
263  17  0 


00  052040 
00  065247 
00  061024 
00  000154 
00  052034 
00  052037 
00  061025 
00  000010 
00  052015 
00  065247 
00  000010 
00  000000 


037  01  0  00  061026 
047  00  0  00  000000 
260  17  0  00  043252 
047  01  0  00  000012 
037  14  0  00  000004 

350  00  0  00  065247 
263  17  0  00  000000 


;♦  This  is  topslO  code  only,  it  checks  which  mt  controller  to  run. 
;♦  The  topslO  monitor  assignments  are  variable,  it  sets  the  diagnostic 
;*  Bit  so  that  the  diag  call  won't  fail. 


TFDMS==1027 
TFSET==1000 


.-READ  maintenance 
;SET  MNEMONIC 


mode  on  the  tape  controller 


FNDMTX:  SKIPE   TAPFLG        ;Testina  tapes? 

RTN  ;No,  return 

MOVE    O^CSIXBIT/MTXOOO/]     .-Reset  tapblk^l 

MOVEM   O.TAPBLK^I     ;Do  it 

PNTMSF  CASCI2/ 
WHICH  MAGTAPE  CONTROLLER  ARE  YOU  GOING  TO  TEST? 
MT-A.B.C.D,E.  OR  F  ? 

MT?  n 


FN0MT1 


TTICHR 

JRST 

CAIGE 

JRST 

CAILE 

JRST 

AND  I 

ADD  I 

DPS 

MOVE  I 

MOVEM 

MOVE  I 

MOVEM 

SETZM 

MOVE 

TAPOP. 

GO 

AOS 

LD6 

CAIGE 

JRST 

MOVE 

CAIGE 

RTN 


;In  case  of  timeout 
; Check  for  a 


;Less  than  f? 


.-1 

0J01 

FNDMTX 

0,106 

FNDMTX 

0,77 

0,40 

0, [POINT  6,TAPBLK*1,173  ;Set  the  6bit  char  into  the  arg  list 

0,.TFDMS>.TFSET  ;Set  the  diag  mode  bit 

0,TAPBLIC 

0,1 

0,TAPBLIC*2 

FNDERR 

1,C3,,TAPBLK] 

AC1, 

FNDMT2 

TAPBLK^I 


list 


;Get  address  of 

;Do  it 

.•Failure 

.-Add  to  the  drive  number 
0, [POINT  4,TAPBLK*1,353  ;Are  we  done? 
0,10 
FNDMT1 
0, FNDERR 
0,10 


TAPNFG:  PNTMSF  [ASCIZ/ 

TAPOP  FAILED  FOR  THE  REQUEST  OF  SETTING  DIAGNOSTIC  MODE  8  TIMES 

THERE  MUSTN'T  BE  ANY  DRIVES  AVAILABLE  OR  ALL  THE  DRIVES  ON  THE 

DX20  CONTROLLER  ARE  NOT  ASSIGNED  TO  YOUR  JOB. 

/] 

CALLI   0 

60     CLRDMT         .'CLEAR  DIAG.  MODE  BIT 

EXIT    1. 

ERRHLT 


FNDMT2: 


AOS 
RTN 


FNDERR« 


L.- 
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13854  052036  000000  001027        TAPBLK:  .TFDMS 

13855  052037  55  64  70  20  20  20  SIXBIT/MTxOOO/ 

13856  052040  000000  000000  0 


( 
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SEO  0492 


13857 

13858 

13859 

13860 

13861 

13862 

13863 

1386A 

13865 

13866 

13867 

13868 

13869 

13870 

13871 

13872 

13873 

1387A 

13875 

13876 

13877 

13878 

13879 

13880 

13881 

13882 

13883 

1388A 

13885 

13886 

13887 

13888 

13889 

13890 

13891 

13892 

13893 

13894 

13895 

13896 

13897 

13898 

13899 

13900 

13901 

13902 


052041 
052042 
052043 
052044 
052045 
052046 
052047 
052050 

052051 
052052 
052053 
052054 
052055 
052056 


261 
242 
260 
200 
260 
037 
262 
263 


17 
00 
17 
00 
17 
00 
17 
17 


405  00 
435  00 
303  00 
271  00 
037  12 
263  17 


0  00  000000 
0  00  77771i^ 
0  00  052051 
0  17  000000 
0  00  052051 
0  00  057130 
0  00  000000 
0  00  000000 

0  00  000017 
0  00  000060 
0  00  000071 
0  00  000007 
0  00  000000 
0  00  000000 


052057 
052060 
052061 
052062 
052063 
052064 
052065 
052066 
052067 
052070 
052071 
052072 


261  17  0  00  000000 
135  00  0  00  061072 
037  15  0  00  000000 
135  00  0  00  061073 
037  15  0  00  000000 
135  00  0  00  061074 
037  15  0  00  000000 
135  00  0  00  061075 
037  15  0  00  000000 
037  00  0  00  060506 

262  17  0  00  000000 

263  17  0  00  000000 


#♦♦♦♦♦♦*♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦♦♦♦*♦♦*♦**♦♦*♦♦♦♦♦*♦♦♦♦*♦♦♦♦**♦♦***♦*♦*♦*♦♦♦♦♦ 

Pnthex-print  2  digit  hex  number  from  acO 

Call  seq: 

Move    O.n  ;get  number 

Go     pnthex  ;call  the  routine 

Rtn-1  .-returns  here  always 

****************t****tt**************« ************** ****************** 


PNTHEX:  PUT 
LSH 
GO 

MOVE 
GO 


0 
-4 

HEXOUT 

fP) 

HcXOUT 

PNTMSG  CASCiZ/  /3 

GET     0 

RTN 


HEXOUT:  ANDI  0J7 

lORI  0.60 

CAILE  0/'9 

ADDI  0.7 
PNTCHR 
RTN 


Save  acO 

Position  high  order  digit 

Print  digit 

Get  low  order  digit 

Print  it 

A  space 

Resotre  a.c. 

Exit 

Save  4  bits 

Convert  to  ascii 

Digit  Greater  than  "9"? 

Yes  make  a  letter 

Print  the  character 

Exit 


********************************************************************** 

Pntbcd  —  print  low  order  part  of  acO  in  bed 

This  routine  prints  the  low  order  16  bits  of  acO  as  a  4  digit  bed  number 

Call  seq: 

Move   O.argi  :get  the  value  to  acO 

Go     pntbcd  ;call  the  routine 

Rtn^l  .-returns  ♦!  always 

********************************************************************** 


PNTBCD:  PUT 
LDB 

PNTDEC 
LDB 

PNTDEC 
LDB 

PNTDEC 
LDB 

PNTDEC 
PNTMSG 
GET 
RTN 


0  :Save  the  value 

0. [POINT  4.(P).23]     .-Get  first  digit  from  stack 

•Print  in  decimal 
0. [POINT  4.(P).2n     .-Get  2nd  digit  from  stack 

.-Print  in  decimal 
0. [POINT  4.(P).3l3     .-Get  3rd  digit  from  stack 

: Print  in  decimal 
0. [POINT  4.(P).35]     .-Get  4th  digit  from  stack 

Print  in  decimal 
Followed  by  a  period 
Restore  the  ac 
And  exit 


[ASCIZ/./] 
0 


v*. 
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SEQ  0493 


13903 

13904 

13905 

13906 

13907 

13908 

13909 

13910 

13911 

13912 

13913 

13914 

13915 

13916 

13917 

13918 

13919 

13920 

13921 

13922 

13923 

13924 

13925 

13926 

13927 

13928 

13929 

13930 

13931 

13932 

13933 

13934 

13935 

13936 

13937 

13938 

13939 

13940 

13941 

13942 

13943 

13944 

13945 

13946 

13947 

13948 

13949 

13950 

13951 

13952 

13953 

13954 

13955 

13956 

13957 


052073 
052074 
052075 
052076 
052077 
052100 
052101 
052102 
052103 
052104 
052105 
052106 


261 
135 
037 
135 
037 
135 
037 
135 
037 
037 
262 
263 


17 
00 
15 
00 
15 
00 
15 
00 
15 
01 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  061072 
00  000001 
00  061073 
00  000001 
00  061074 
00  000001 
00  061075 
00  000001 
00  060506 
00  000000 
00  000000 


052107 
052110 
052111 
052112 
052113 
052114 
052115 
052116 
052117 


8 


5; 
5; 

05i 

05; 


120 
121 
'122 
123 


261  17  0 
261  17  0 
332  00  0 
254  00  0 
7  024  20 
402  00  0 
402  00  0 
7  024  20 
7  020  04 
•54  OQ  0 


160  17 


255 

124 


00 
01 


0 
0 


00  000000 
00  000001 
00  030037 
00  052121 
00  420000 
0  000510 
00  000511 

tmm 

152131 
00  OOQOOQ 
00  052127 


8 


8nf' 


♦  Pnfbcd  —  force  print  low  order  part  of  acO  in  bed 

♦  This  routine  prints  the  low  order  16  bits  of  acO  as  a  4  digit  bed  number. 

* 

♦  Call  seq: 

♦  Move    0,argl  ;get  the  value  to  acO 

♦  Go     pnfbed  ;eall  the  routine 

♦  Rtn-^-l  .-returns  ♦I  always 


PNFBCD:  PUT 
LD6 
PNTDCF 
LD6 
PNTDCF 
LDB 
PNTDCF 
LDB 
PNTDCF 
PNTMSF 
GET 
RTN 


0  :Save  the  value 

0, [POINT  4,(P),233     ;Get  first  digit  from  staek 

•Print  in  deeimal 
0. [POINT  4.(P).2?J     ;Get  2nd  digit  from  staek 

:Pr int  in  decimal 
0. [POINT  4.(P).3n     ;Get  3rd  digit  from  stack 

•Print  in  decimal 
0, [POINT  4,(P),353     ;Get  4th  digit  from  staek 

;Pr int  in  decimal 
[ASCIZ/./]     ;Followed  by  a  period 
0  ;Restore  the  ac 

;And  exit 


Stclok  —  routine  to  initialize  program  runtime  clock 

This  routine  initializes  the  clock  for  the  program,  it  is  used 

In  concunction  with  routine  "runtme". 

In  exec  mode  this  routine  resets,  restarts  and  then  reads  the  current 
Microsecond  time  clock  into  memory  for  reference  by  the  runtime  calculator 
'T^untme'*.  the  clock  is  set  up  so  that  it  causes  a  hardware  interrupt. 
It  merely  free  runs. 

In  user  mode  the  program  run  time  is  obtained  in  milliseconds 
With  a  monitor  call,  converted  to  microseconds  and  stored  for 
Future  reference  by  the  runtime  calculator  "runtme" 

Call  seq: 

Go     stclok  .-calls  the  routine 

Rtn-1  .-always  returns  ■•'1 


STCLOK:  PUT 
PUT 


iTCU: 


SKIPE 

JRST 

CONO 

SETZM 

SETZM 

CONO 

DATAI 

JRST 

GO 

JFCL 


0 

1 

USER 

STCU 

24J818I1B22 

5l6 

511 

24.1B25 

20.TMRST1 

STCX 

MONT I M 


DMOVEM  I.TMRSTI 


Save  ac's 

In  user  mode  ? 

Yes 

Stop  and  reset  the  clock 

Clear  ept  locations 

For  timer  data 

Turns  the  meter  on 

Save  a  double  word 

Done.  exit. 

Get  monitor  time  in  microseconds 

In  meter  format 

Save  a  double  word 


DFDXD 
DXCOM 

13958 
1 5959 
13960 
13961 
13962 
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05212A 
052125 
052126 

052127 


262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


STCX: 


GET 
GET 
RTN 


1 
0 


TMRST1:  BLOCK 
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.•Restore 

;Exit 

;2  Word  initial  time  storage 


SEQ  0494 
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SEQ  0^95 


13963 

1396A 

13965 

13966 

13967 

13968 

13969 

13Q70 

13971 

13972 

13973 

13974 

13975 

13976 

13977 

13978 

13979 

13980 

13981 

13982 

13983 

1398A 

13985 

13986 

13987 

13988 

13989 


* 


idttit 

Here 

The 

The 

Ac  2 

Boar 

Ad 


*•*• 


is  a  subroutine  called  by  both  stclok  and  runtme.  it  reads 
current  program  runtime  in  milliseconds  from  the  monitor,  converts 
time  to  microseconds  and  then  positions  that  microsecond  count  in 
and  acl  in  the  same  59  bit  format  you  get  when  you  read  the  meter 
d  microsecond  clock,  the  microsecond  count  is  then  returned  in 
and  ac2  

Call  seq: 

Go     montim  ;call  the  routine 

Rtn+1  .-microsecond  time  in  acl  and  ac2 


052131 
052132 
052133 
052134 
052135 
052136 
052137 
052140 
052141 
052142 
052143 
052144 
052145 
052146 


261  17  0 
332  00  0 
254  00  0 
201  01  0 
047  01  0 
254  00  0 
201  01  0 
104  00  0 
320  17  0 
402  00  0 
225  01  0 
244  01  0 

262  17  0 

263  17  0 


00  000003 
00  030516 
00  052137 
00  000000 
00  000027 
00  052142 
00  400000 
00  000015 
00  057751 
00  000002 
00  001750 
00  000014 
00  000003 
00  000000 


MONTIM: 


MTM20: 


MTCOM: 


MTCX: 


PUT 
SKIPE 
JRST 
MOVE  I 
RUNTIM 
JRST 
MOVE  I 
RUNTM 

ERCAL 
SETZM 
MULI 
ASHC 
GET 
RTN 


3 

MONTYP 
MTM20 
1,0 

1, 

MTlOM 

1,.FHSLF 

[RTN  J 
2 

1,*D1000 
K*D12 


Save  ac3  (runtm  jsys  destroys  it) 

Tops 10  or  tops20  / 

Tops20 

Clear  ac  (0=current  job) 

Execute  a  runtime  uuo 

Go  to  common  code 

Get  process  handle 

Does  a  runtm  jsys 

Error  not  likely 

Clear  ac2 

Converts  ms  to  us 

Puts  data  in  proper  microsecond  format 

Restore  ac3 

And  exit 


mmim'mmmi#'mmi'mmm'tm^»^>immmtmii>0tm 


»  MWii^irtiKiiitO'— 


...»-,  .»>.'«fl)M<r.«#Mim 
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SEQ  0496 


13990 

13991 

13992 

13993 

1399A 

13995 

13996 

13997 

13998 

13999 

UOOO 

14001 

14002 

14003 

14004 

14005 

14006 

14007 

14008 

14009 

14010 

14011 

14012 

14013 

14014 

14015 

14016 

14017 

14018 

14019 

14020 

14021 

14022 

14023 

14024 

14025 

14026 

14027 

14028 

14029 

14030 

14031 

140 

1403 

14034 

14035 

14036 

14037 

14038 

14039 

14040 

14041 

14042 

14043 

14044 


052147 
052150 
052151 
052152 
052153 
052154 
052155 
052156 
052157 
052160 
052161 
052162 
052163 
52164 
52165 
052166 
052167 
052170 
052171 
052172 
173 
174 
052175 
052176 


8 


8P' 


8?' 


254 
261 
261 

12 


00 
17 
17 
17 
00 


336  00  0 
0 
0 
0 
61  17  0 
32  00  0 
254  00  0 
7  020  04 
254  00  0 
17  0 
0 
0 
0 
0 


CO 

124  01 
120  00 


00  030037 
00  052213 
00  000000 
00  000001 
00  000002 
00  030037 
00  052160 
0  00  052322 
00  052162 
00  052131 
00  052322 
0  05?322 
05r 


8 


0 
00 

°8 


777764 
)61076 
)61077 
)07020 
>0001 1 
)61101 
)0000Q 
061102 
OOOOQl 
00074 


Runtme  —  calculate  and  print  program  runtime 

This  reports  the  program  runtime  (exec  or  user  mode)  since 

The  last  call  to  the  initialize  routine  "stclok". 

This  softyare  can  easily  handle  runtimes  in  excess  of  3000  hours 

The  runtime  is  printed  on  the  current  line  and  no  line  feed  is 

Printed  at  the  end  of  the  message,  the  message  looks  like  this: 

(Space) runtime  xx:xx:xx(space«space) 

In  exec  mode  the  time  is  calculated  by  usina  the  microsecond 
Clock  that  was  initialized  in  the  call  to  "stclok". 

In  user  mode,  "runtime"  monitor  calls  are  used  and  the  difference 
Is  calculated  from  the  last  call  to  "stclok" 

Call    seq: 

Go     runtme  ;call  the  routine 

Rtn^l  .-always  returns  ♦! 


001 


RUNTME:  SKI^N 
JRST 
PUT 
PUT 
PUT 
SKIPE 
JRST 
DATAI 
JRST 

RNUSR :  GO 

DMOVEM 

RNTCl:  DMOVE 
DSUB 
ASHC 
DIV 

RNTCOM:  PNTMSG 
JtDIVI 
CAI6 
PNTMSG 
PNTDEC 
PNTMSG 
MOVE 
IDIVI 
CAIG 
PNTMi,<i 
PNTDEC 
PNTMSG 
MOVE 
CAIG 
PNTMSG 
PNTDEC 
PNTMSG 
GET 
GET 


USER 

PTIME 

0 

1 

2 

USER 

RNUSR 

20.TMRUN1 

RNTCl 

MONTIM 

KTMRUN1 

0,TMRUN1 

0,TMRST1 

0,-*D12 

QjC^Dl 000000] 

CASCIZ/ 


0,*D3600 

0,*D9 

CASCIZ/O/] 

CASCIZ/:/] 

0>D60 

7/0/] 


RUNTIME 


;In  user  mode  ?? 

;N0 

;Save  ac*s 


In  user  mode  ?? 

Yes. 

Exec  mode,  get  dble  word  time 

To  common  code 

Get  time  from  monitor  calls  to  ad  and  ac2 

Save  microsecond  count  in  double  word 

Get  current  run  time 

Calculates  actual  run  time 

Right  justify 

'nvt  us.  to  sec. 


>S 


C>D9 
[ASCI 


CASCIZ/:/] 
^!*D9 

:asciz/o/] 
:asciz/  /] 


Cnvt  seconds  to  hours 
Single  digit  ? 
Yes.  pad  with  zero 
Print   in  decimal 

Remainder  to  ac^ 

Convert  remainder  to  minutes 

Single  digit  ? 

Yes.  pad  with  zero 

Print  in  decimal 

Get  remainder  which  is  in  seconds 

Single  digit  ? 

Yes.  pad  with  zero 

Print  in  decimal 

2  Spaces 

Restore  ac*s 
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DXCOM  MAC     18-Jdn-85  U:26        PROGRAM  SELECT  SEO  0497 

H0A5  052211  262  17  0  00  000000  GET    0 

U0A6  052212  263  17  0  00  000000  RTN  ;And  exit 


OFDXD 
OXCOM 

U(K7 

14048 

14049 

14050 

14051 

14052 

14053 

14054 

14055 

14056 

14057 

14058 

14059 

14060 

14061 

14062 

14063 

14064 

14065 

14066 

14067 

14068 

14069 

14070 

14071 

14072 

14073 

14074 

14075 

14076 

14077 

14078 

14079 

14080 

14081 

14082 

14083 

14084 

14085 


DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20) 
MAC  18-Jdn-85  14:26  PRINT  RUN  TIME 


VERSION  0.5 


MACRO  X53A(1152)  18:38  6-Apr-85  Page  114 


SEQ  0498 


SUBTTL  PRINT  RUN  TIME 


052213 

052214 

052215 

052216 

052217 

052220 

052221 

052222 

052223 

052224 

052225 

052226 

052227 

052230 

052231 

052232 

052233 

052234 

052235 

052236 

052237 

052240 

052241 

052242 

052243 

052244 

052245 

052246 

052247 

052250 

052251 

052252 

052253 

052254 

052255 

052256 

052257 


261 
261 
261 
0 
6 


17 
17 
17 
01 
00 


154  00 
J32  00 
254  00 
201  01 
047  01 
254  00 
201  01 
104  01 
201  03 
336  00 

201  03 

230  01 

231  01 

202  02 
231  01 
305  01 
254  00 
275  01 
254  00 
006  00 
037  00 

261  17 
201  01 
2ui  01 
006  02 
037  00 
006 
262 

262  17 
262  " 
262 
263 


?? 


17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

8§ 

00 
00 


000001 
000002 
000003 
030054 
030037 
052230 
030516 
052226 
000000 
000027 
052230 
400000 
000015 
000062 
030505 
000074 
000003 
000074 
000003 
000074 
000030 
052243 
000030 
052237 
000001 
000072 
030263 
000060 
030263 
000002 
000072 
000003 
030263 
000003 
000002 
000001 
000000 


PTIME:  PUT 
PUT 
PUT 
MOVE 
SKIPN 
JRST 
SKIPE 
JRST 
MOVE  I 
RUNTIM 
JRST 

PTIMA:  MOVEI 
RUNTM 

PTIMB:  MOVE] 
SKIPN 
MOVEI 
IDIV 
IDIVI 
MOVEM 
IDIVI 
CAIGE 
JRST 
SUBI 
JRST 

PTIMEH:  PDEC 
PNTCI 
PUT 
MOVEI 
MOVEM 
PDEC 
PNTCI 
PDEC 
GET 
GET 
GET 
GET 
RTN 


AC1 

AC2 

AC3 

AC1. TICKS 

USER 

PTIMB 

MONTYP 

PTIMA 

AC1,0 

AC1, 

PTIMB 

AC  1.400000 

ACU 

AC3,*D50 

CYCL60 

AC3,*D60 

AC1,AC3 

AC1,*D60 

AC2.AC3 

AC1,*D60 

AC1,*D24 

PTIMEH 

ACU*D24 

.-3 

AC1 

RADLSP 
ACl/X)" 
AC1, RADLSP 
2,AC2 

2;ac3 

RADLSP 

AC3 

AC2 

AC1 


;Save  acs 


Get  exec  mode  timer 

Check  if  in  user  mode 

Exec 

TopslO? 

No 

Current  job 

Get  time 

Con '  je 

Cur   r  job 

Get  Lime  from  monitor 

Clock  cycle  factor 

Skip  if  50  cycle 

Make  factor  oO 

Compute  seconds  since  start  of  day 

Compute  minutes,  seconds 

Save  secc  ids 

Compute  hours «  minutes 

Hours  over  24? 

No,  print  as  is 

Reduce  by  24 

Try  again 

Print  hours 

Print  a  colon 

Save  leading  character 

Set  up  to  print  leading 

0  In  decimal  number 

Print  minutes 

Print  colon 

Print  seconds 

Restore  leading  character 

Restore  acs 


.-Return 
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SEQ  0499 


-J 


H086 

U087 

U088 

U089 

U090 

14091 

14092 

14093 

14094 

14095 

14096 

14097 

14098 

14099 

14100 

14101 

14102 

14103 

14104 

14105 

14106 

14107 

14108 

14109 

14110 

14111 

14112 

14113 

14114 

14115 

14116 

14117 

14118 

14119 

14120 

14121 

14122 

14123 

14124 

14125 

14126 

14127 

14128 

14129 

14130 

14131 

14132 

14133 

14134 

14135 

14136 

14137 

14138 

14139 

14140 


052260 

052261 

052262 

052263 

052264 

052265 

052266 

052267 

052270 

052271 

052272 

052273 

052274 

052275 

052276 

052277 

052300 

052301 

052302 

052303 

052304 

052305 

052306 

052307 

052310 

052311 

052312 

052313 

052314 

052315 

052316 

052317 


261  17  0 
261  17  0 

261  17  0 
332  00  0 
254  00  0 
7  020  04 
254  00  0 
2oJ  17  0 
124  01  0 
120  00  0 
115  00  0 
244  00  0 
234  00  0 
037  01  0 
231  00  0 
307  00  0 
037  01  0 
037  15  0 
037  01  0 
200  00  0 
231  00  0 
307  00  0 
037  01  0 
037  15  0 
037  01  0 
200  00  0 
307  00  0 
037  01  0 
037  15  0 
037  01  0 

262  17  0 
262  17  0 


00  000000 
00  000001 
00  000002 
00  030037 
00  052267 
0  00  052322 
00  052271 
00  052131 
00  052322 
00  052322 
00  052127 
00  777764 
00  061076 
00  061103 
00  007020 
00  000011 
00  061101 
00  000001 
00  061102 
00  000001 
00  000074 
00  000011 
00  061101 
00  000001 
00  061102 
00  000001 
00  000011 
00  061101 
QO  000001 
00  060015 
00  000002 
00  000001 


Runtmf  —  calculate  and  force  print  program  runtime 

This  reports  the  program  runtime  (exec  or  user  mode)  since 

The  last  call  to  the  initialize  routine  "stclok". 

This  software  can  easily  handle  runtimes  in  excess  of  3000  hours 

The  runtime  is  printed  on  the  current  line  and  no  line  feed  is 
Printed  at  the  end  of  the  message,  the  message  looks  like  this: 

(Space)runtime(hh:mm:ss)  xx:xx:xx(space«space) 

In  exec  mode  the  time  is  calculated  by  using  the  microsecond 
Clock  that  was  initialized  in  the  call  to  "stclok". 

In  user  mode,  "runtime"  monitor  calls  are  used  and  '.'r     difference 
Is  calculated  from  the  last  call  to  "stclok" 

Call    seq: 

Go     runtmf  ;call  the  routine 

Rtn+1  ;always  returns  +1 


RUNTMF:  PUT 
PUT 
PUT 
SKIPE 
JRST 
DATAI 
JRST 

.RNUSR:  GO 

OMOVEM 

.RNTCl:  DMOVE 
DSUB 
ASHC 
DIV 
PNTMSF 
IDIVI 
CAIG 
PNTMSF 
PNTDCF 
PNTMSF 
MOVE 
IDIVI 
CAIG 
PNTMSF 
PNTDCF 
PNTMSF 
MOVE 
CAIG 
PNTMSF 
PNTDCF 
PNTMSF 
GET 
GET 


;Save  ac*s 


0 

1 

2 

USER 

.RNUSR 

20.TMRUN1 

.RNTCl 

MONTIM 

1 , TMRUN1 

0,TMRU*i1 

O^TMRSll 

0,-'*D12 

Q^C^DI  000000]   

CASCIZ/  RUNTIME(HH:MM:SS)  /] 


0,*D3600 

0,*D9 

CASCIZ/0/] 

CASCIZ/:/] 

OJ 

0,^D60 

0,*D9 

CASCIZ/0/] 

CASCIZ/:/] 
0,1 
0,*D9 
CASCIZ/0/] 

CASCIZ/  /] 

2 

1 


In  user  mode  ?? 

Yes. 

Exec  mode,  get  dble  word  time 

To  common  code 

Get  time  from  monitor  calls  to  ac1  and  dc2 

Save  microsecond  count  in  double  word 

Get  current  run  time 

Calculates  actual  run  time 

Right  justify 

Cnvt  us.  to  sec. 


Cnvt  seconds  to  hours 
Single  digit  ? 
Yes.  pad  with  zero 
Print  in  decimal 

Remainder  to  ad 

Convert  remainder  to  minutes 

Single  digit  ? 

Yes.  pad  with  zero 

Print  in  decimal 

Get  remainder  which  is  in  seconds 

Single  digit  ? 

Yes.  pad  with  zero 

Print  in  decimal 

2  Spaces 

Restore  ac's 


14U1  052320    262  17  0  GO  000000 

1AH2  052321     263  17  0  00  000000 

KU3 

^^U^  052322 


FEM  DIAGNOSTIC  (RH20) 
PRINT  RUN  TIME 

VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  ^^5-1  _ 

GET     0 
RTN 

;And  exit 

TMRUN1:  BLOCK   2 

.-Microsecond  runtime  saved  here... 

■ 

OFDXD   DX20-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC  (RH20)     VERSION  0.5    MACRO  253A(1152)  18:38  6-Apr-85  Page  116 
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U1A5 

UU6 

1AU7 

UH8 

HU9 

U150 

K151 

1A152 

U153 

HI  54 

14155 

14156 

14157 

14158 

14159 

14160 

14161 

14162 

14163 

14164 

14165 

14166 

14167 

14168 

14169 

14170 

14171 

14172 

14173 

14174 

14175 

14176 

14177 

14178 

14179 

14180 

14181 

14182 

14183 

14184 

14185 

14186 

14187 

14188 

14189 


052324 
052325 
052326 
052327 
052330 
052331 
052332 
052333 
052334 
052335 
052336 
052337 
052340 
052341 
052342 

052343 
052344 


052345 
052346 


052347 
052350 

052351 


052351 
052352 
052353 


052353 
052354 
052355 
052356 


261  17  0 
201  01  0 
260  17  0 
032  04  0 

262  17  0 


306  00 
254  00 
306  00 
254  00 
037  01 
200  00 
037  01 
037  01 
510  00 
037  01  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  005410 
00  045361 
00  000377 
00  000000 
00  000101 
00  052351 
00  000103 
00  052353 
00  061107 
00  052500 
00  000002 
00  000056 
00  052501 
00  000002 


037  01  0  00  061117 
263  17  0  00  000000 


037  01  0  00  061120 
254  00  0  00  051626 


037  01  0  00  061133 
254  00  0  00  051626 


037  01  0  00  061144 
254  00  0  00  052354 


037  01  0  00  061200 
037  07  0  00  000003 
254  00  0  00  052354 
254  00  0  00  051650 


;*Lder1,  error  messages  for  loading  routines 


LDER1 


n 


LDER2: 

n 


LDER3: 

n 


PUT 

MOVE  I 

GO 

LDREG 

GET 

CAIN 

JRST 

CAIN 

JRST 

PNTMSF 

MOVE 

PNTSXF 

PNTCIF 

HLLZ 

PNTSXF 

PNTMSF 

RTN 

PNTMSF 

JRST 

PNTMSF 

JRST 


; Clear  any  error  left  by  diamon 


0  ;Save  acO 

1 ,RAECLR^XECLR+MBE+DONCLR 

.CONO 

DXASR,377      ; Clear  attentions 

0  'Restore  acO 

101  ;Skip  if  load  device  is  not  a  dec  tape 

LDER5        ;Else,  give  directions  to  op 

103  ;Skip  if  load  device  is  not  a  floppy 

LDER6        ;Else,  give  directions  to  od 

CASCIZ/FSELECT  FAILURE:  CANNOT  FIND  FILE  "/J 

FILNAM 


•  I  I  i 


FILEXT 
CASCIZ/" 

l^rror   return 
CASCI2/F0RMAT  ERROR  -  C  OR  W  MISSING  AS  FIRST  CHARACTER 
GTACS         ; Error  return 
CASCIZ/FORMAT  ERROR  -  SPACE  MISSING  AFTER  C  OR  U 
GTACS         ; Error  return 


LDER5:  PNTMSF  CASCIZ/ 

MOUNT  DECTAPE  "DFZAA-A-UB2"  ON  SELECTED  LOAD  DEVICE  OR  SELECT 

THE  LOAD  DEVICE  WHICH  HAS  THAT  DECTAPE  MOUNTED  ON  IT, 

THEN  TYPE  ALTMODE 

/] 

JRST    .+2  ;Wait  for  altmode 

LDER6:  PNTMSF  CASCIZ/ 

MOUNT  FLOPPY  •'DFYXA-A-YB2"  ON  SELECTED  LOAD  DEVICE  OR  SELECT 
THE  LOAD  DEVICE  WHICH  HAS  THAT  FLOPPY  MOUNTED  ON  IT, 
THEN  TYPE  ALTMODE 

n 

TTALTM  ;Look  for  altmode 

JRST    .-1  .-Keep  waiting 

JRST    LOOKSL        .-Retry  to  do  fselect 
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SEQ  0502 


U190 

U191 

14192 

14193 

14194 

14195 

14196 

14197 

14198 

14199 

14200 

14201 

14202 

14203 

14204 

14205 

14206 

14207 

14208 

14209 

14210 

14211 

14212 

14213 

14214 

14215 

14216 

14217 

14218 
14219 
14220 
14221 
14222 
14223 
14224 
14225 
14226 
14227 
14228 
14229 
14230 
14231 
14232 
14233 
14234 
14235 
14236 
14237 
14238 
14239 
14240 
14241 
14242 
14243 


052357 
052360 


052361 
052362 


052363 
052364 


052365 
052366 


052367 
052370 

052371 
052372 
052436 
052437 
052440 


052500 
052501 
052502 
052503 
052504 
052505 
052506 
052507 


037  01  0  00  061234 
254  00  0  00  051626 


037  01  0  00  061243 
263  17  0  00  000000 


037  01  0  00  061251 
254  00  0  00  051626 


037  01  0  00  061260 
254  00  0  00  051626 


037  01  0  00  061265 
254  00  0  00  051626 

000000  000000 

000000  000000 
000000  000000 


000000 

oooooo 

OuJOOO 
000  00 
000  00 
000  00 
000  00 
000  00 


oooooo 

oooooo 

oooooo 
0  00  oooooo 
0  00  oooooo 
0  00  oooooo 
0  00  oooooo 
0  00  oooooo 


065173  oooooo  OOOOOO 


065174 


065214 


LDER4: 


LDER7: 


LDER8: 


LDER9: 

n 


LEOFE: 


PNTMSF 

JRST 

PNTMSP 

RTN 

PNTMSF 

JRST 

PNTMSF 

JRST 

PNTMSF 

JRST 


CASCI2/F0RMAT  ERROR  -  LINE  TOO  SHORT 
GTACS         .-Error  return 
CASCIZ/LENGTH  ERROR  ON  INPUT  LINE 

;Error  return 
CASCIZ/FORMAT  ERROR  -  TOO  MANY  WORDS 
GTACS  ;Error  return 
CASCIZ/CHECKSUM  ERROR  IN  FILE 
GTACS  i^rror  return 
CASCIZ/EOF  BEFORE  EXPECTED 


GTACS 

*D36 

•D32 


;Error  return 

.-Reserved  for  word  cnt 
.-Reserved  for  data 

.'Chk  sum  area 
.-Input  line  buffer 


FEWC:   0 
FEDAT:  BLOCK 

0 
CHKSUM:  0 
CMDLIN:  BLOCK 

.-Lookup  block 

FILNAM:  0 

FILEXT:  0 

SHMODE:  0 

TEMPA 

TEMPB 

TEMPC 

TEMPD 

TEMPE   _  ,  _ 

SUBTTL  tSTOR*  RESERVED  STORAGE,  SEPT  18,1979 

.-PROGRAM  LITERALS 

XLIST 
LIST 
ENDSLD:  0 


TEMP  STORAGE 
TEMP  STORAGE 
TEMP  STORAGE 
TEMP  STORAGE 
TEMP  STORAGE 


IFDEF   DEBUG, < 
PATCH:  BLOCK  DEBUG 
> 

; PROGRAM  VARIABLES 
VAR 

IFDEF   PGMEND.< 
END:    0 

END     BEGIN 


.-PATCHING  AREA 


DFDXD 
DFDXDS 

1A2AA 

1A245 

1A2A6 

1A2A7 

1A2A8 

1A2A9 

1A250 

1A251 

1A252 

1A253 

1A25A 

1A255 

1A256 

1A257 

1A258 

1A259 

1A260 

1A261 

1A262 

1A263 

1A26A 

1A265 

1A266 

1A267 

1A268 

1A269 

1A270 

1A271 

1A272 
1A273 
1A27A 
1A275 
1A276 
1A277 
1A278 
1A279 
1A2dO 
K281 
1A282 
1A283 
1A28A 
1A285 
1A286 
K287 
U288 
1A289 
1A290 
1A291 
1A292 
1A293 
K29A 
U295 

U296 
K297 

U298 
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065552  000607  736300 


065353  000  00  0  00  000000 

06535A  000  00  0  00  000000 

065355  000  00  0  00  000000 

065356  000  00  0  00  000000 

065357  000  00  0  00  OCOOOO 

065360  000  00  0  00  000000 

065361  000  00  0  00  000000 

065362  000  00  0  00  000000 

065363  000  00  0  00  000000 
06536A  000  00  0  00  000000 

065365  000  00  0  CO  000000 

065366  000  00  0  00  000000 

065367  000  00  0  00  000000 

065370  OuJ  00  0  00  000000 

065371  000  00  0  00  000000 

065372  000  00  0  00  000000 


065373  000  00  0  00  000000 


06537A 
065375 
065376 
065377 
065AO0 
065A01 

065A02 
065A03 
065AOA 
065A05 

065A06 
065A07 


000  00 
000  00 
000  00 
000  00 
000  00 
000  00 

000  00 
000  00 
000  00 
000  00 
000  00 
000  00 


0  00  000000 
0  00  000000 
0  CO  000000 
0  00  000000 
0  00  000000 
0  00  000000 

0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 


*ST0R*  RESERVED  STORAGE,  SEPT  18,1979 
*Here  is  the  program  storage  area 

;Com*  error  test  word  for  the  rh 

CONIER:  607, ,736300  ;10 

; Confer:       775000 

;*     Buffer  area  for  register  storage 

;*     Here  is  where  the  register  data  is  saved  when  registers 

;*     Are  read  into  core  collectively  or  separately 


SEQ  0503 


The  drive  registers 


R600IN 
RG01IN 
R602IN 
RG03IN 
RGOAIN 
R605IN 
RG06IN 
R607IN 
R610IN 
R611IN 
R612IN 
R613IN 
RG1AIN 
RG15IN 
RG16IN 
RG17IN 


2 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 
Z 


;Drive  registers  are  saved  here 


;*  The  coni  status  for  the  controller 


CONI IN:  Z 

;  The  controlle'"  registers 


SBARIN 
STCRIN 
PBARIN 
PTCRIN 
IVRIN: 
RDRGIN: 

DIBIN: 

RAEIN: 

lARIN: 

DBUFIN: 

CRIN: 

CBUFIN: 


Z 
Z 
Z 
Z 
Z 
Z 

Z 
Z 
Z 

7 

z 
z 


; Secondary  block  adr  reg 
.'Secondary  xfer  ctrl  reg 
.•Primary  block  adr  reg 
.-Primary  xfer  ctrl  reg 
.•Interrupt  vector  reg 
.-Read  register  in 

;The  drive  interface  buffer 
.•The  rae  register 
.•Interrupt  address  ""eg 
.-Data  buffer 
.•Control  register 
; Channel  buffer 


DFDXD       DX2C-V100  MAGNETIC  TAPE  SUBSYSTEM  DIAGNOSTIC   (RH20)  VERSION  0.5,        MACRO  X53A(1152)   18:38     6-Apr-85  Page  2-1 
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1A299 

1A300 

U301 

H302 

U303 

U30A 

H305 

U306 

U307 

U308 

U309 

U310 

U311 

K312 

U313 

U3U 

14315 

14316 

14317 

14318 

14319 

14320 

14321 

14322 

14323 

14324 

14325 

14326 

14327 

14328 

14329 

14330 

14331 

14332 

14333 

14334 

14335 

14336 

14337 

14338 

14339 

14340 

14341 

14342 

14343 

14344 

14345 

14346 

14347 

14348 

14349 

14350 

14351 

14352 

14353 


065410  000000  066000 

065411  000000  030600 


066000 

066000 

126000 

126004 

126005 

126006 

126007 

126010 

126011 

126012 

126013 

126014 

126022 

126024 

126030 

126031 

126032 

126033 

126034 

126035 

126036 

126037 

126040 

126041 

126042 

126043 

126044 

126045 

126046 

126047 

126050 

126051 

126052 

126053 

126054 

126055 

126056 
126057 

126060 
126061 
126062 
126063 
126064 


SUBTTL  BUFFER  AREA 

;♦  Here  is  the  program  storage  area 


BUF1A:  BUF1 
CBUFA:   CBUF 


.-Holds  first  buffer  address 
;Hotds  adr  of  channel  buffer 


LOC     <.*1000>i777000 
BUF1:   BLOCK   40000         ;Data  buffer  #1 


LOG: 


BLOCK 


000000 

oooooo 

CONIAC 

:  0 

000000 

oooooo 

SNSAC1 

:  0 

000000 

oooooo 

SNSAC2 

f:  0 

000000 

oooooo 

SNSAC3 

;:  0 

000000 

oooooo 

SNSAC4 

►  :  0 

oocooo 

oooooo 

SNSAC5 

;:  0 

000000 

oooooo 

SNSAC6 

»:  0 

000000 

oooooo 

TAPMCV 

r:  0 

MBI: 

BLOCK   6 

C8I : 

BLOCK   2 

DPI: 

BLOCK   4 

000000 

oooooo 

LSTCMC 

):  0 

000000 

oooooo 

SNSEX1 

:  0 

000000 

oooooo 

SNSEX; 

?:  0 

oooooo 

oooooo 

SNSEX! 

5:  0 

OuJOOO 

oooooo 

SNSEX4 

»:  0 

oooooo 

oooooo 

SNSEX; 

>:  0 

OOOOOO 

oooooo 

SNSEX6:  0 

oooooo 

oooooo 

SNSC1: 

0 

OOOOOO 

oooooo 

SNSC2. 

•   0 

oooooo 

oooooo 

SNSC3: 

•   0 

oooooo 

oooooo 

SNSC4. 

•   0 

OOOOQO 

oooooo 

oooooo 

SNSC5. 

•   0 

oooooo 

SNSC6 

'   0 

oooooo 

oooooo 

SNSDC1 

1:  0 

oooooo 

oooooo 

SNSDC; 

?:  0 

oooooo 

oooooo 

SNSDC: 

5:  0 

oooooo 

oooooo 

SNSDC^ 

.:  0 

oooooo 

OQQOOO 
377  177  00 

SNSDC! 

):  0 

000  000 

SNSDC( 

i:  BYTE  (8)  0.0,377,177 

oooooo 

oooooo 

SNSDS' 

1:0 

oooooo 

oooooo 

SNSDSi 

\:    0 

oooooo 

oooooo 

SNSDS! 

\i    0 

oooooo 

oooooo 

SNSDS^ 

\:    0 

oooooo 

oooooo 

SNSDS! 

5:  0 

oooooo 

oooooo 

SNSDS< 

!»:  6 

C:  376754, ,117 

376754 

QQ01 1 7 
77Q057 
'>V'^77 
777777 

SNSMSf 

501402 

501402, ,770057 

376071 
777777 

376071, ,527777 

;Rh20  coni  status 
.'Actual  sense  byte  data 


.'Expected  sense  data  table 


.'Constant  sense  data 


.-Sense  data  don't  care  table 


.'Sense  data  discrepancy  table 


.'Sense  data  mask  to*"  2-chdnnel  switch  config 


DFDXD 
DFDXOS 

1A35A 
U355 
U356 
14357 
U358 
U359 
U360 
U361 
H362 


DX20-V100  MAGNETIC   TAPj 

MAC  2-Jul-8l   ]^:2i 

126065  777777     770017 

126066  001774     004017 
126067 

126077  000000  000000 
126100 


SUBSYSTEM  DIAGNOSTIC  (RH20) 
BUFFER  AREA 

-K, 770017 
17W,,4017 

TX:     BLOCK  10 

DRVADR:  0 

UNI  TO:  BLOCK  17 


VERSION  0.5    MACRO  X53A(1152)  18:38  6-Apr-85  Page  2''2 


SEO  0505 


:Tape  drive  address 
;Tape  unit  tested  table 


030000 


LST: 


IF2  <IFN  XXERRC,<..END  \«ERRC» 

NOSYM 

END     BEGIN 


NO  ERRORS  DETECTED 

I  PROGRAM  BREAK  IS  000000 
;  ABSOLUTE  BREAK  IS  126117 
CPU  TIME  USED  01:15.702 

119P  CORE  USED 


ABORT 

9S: 

ACQ 

2070 

2071 

AC1 

64# 

1679 

18.0 

1811 

1970 

1979 

2180 

2186 

2431 

2434 

58i8 

5819 

6119 

6121 

6168 

6169 

6192 

6193 

6249 

6250 

6298 

6303 

6345 

6346 

6423 

6452 

6628 

6638 

6801 

6802 

6933 

6935 

7379 

7386 

7801 

7803 

7834 

7842 

7874 

7876 

8072 

8095 

8272 

8230 

8854 

8879 

14068 

14069 

AC11 

72# 

7250 

7408 

7437 

7773 

7774 

AC12 

73# 

7711 

AC1SAV 

9109# 

9109 

AC2 

65# 

1717 

1926 

1968 

6187 

c188 

6393 

6395 

6467 

6469 

6505 

6506 

6641 

6^46 

6782 

6783 

6905 

6918 

7280 

7285 

7442 

7459 

7605 

7606 

7726 

7728 

8048 

8051 

8177 

8698 

AC3 

66# 

1742 

6492 

6499 

6572 

6586 

7422 

7488 

7714 

7752 

7786 

7793 

8097 

8099 

2431 

2432 

2556 

2557 

2655 

2656 

6687 
1770 

6688 

8835 

8855 

1757 

1758 

1761 

1763 

1765 

1768 

1791 

1793 

1798 

1803 

1804 

1820 

1822 

1835 

1836 

1837 

1843 

1844 

1?45 

1937 

1938 

1939 

1946 

1988 

1990 

2011 

2014 

2015 

2023 

2024 

2073 

2074 

2089 

2090 

2173 

2207 

2208 

2209 

2230 

2239 

2242 

2245 

22^B 

2251 

2254 

2257 

2?60 

2435 

2441 

2442 

2556 

2560 

2561 

2567 

m 

2644 

2655 

2658 

2659 

5887 

5888 

5995 

5998 

5999 

6007 

6011 

6059 

6116 

6117 

6118 

6123 

6124 

6125 

VA 

6142 

6143 

6145 

6153 

6155 

6157 

6163 

6166 

6171 

6173 

6175 

6180 

6181 

6183 

6185 

6188 

6189 

6190 

6191 

6194 

6195 

6196 

6^97 

6198 

6199 

6200 

6237 

6243 

6245 

6247 

6248 

6251 

6259 

6261 

6266 

6267 

6271 

6272 

6274 

6276 

6279 

6288 

6291 

6307 

6311 

6323 

6324 

6326 

6329 

6331 

6335 

6338 

6340 

6342 

6344 

6347 

6348 

6375 

6386 

6391 

6392 

6393 

6395 

6396 

6399 

6415 

6418 

6453 

64/1 

6473 

6474 

6545 

6549 

6561 

6562 

6584 

6620 

6621 

6625 

6639 

6647 

6679 

6685 

6687 

6690 

6691 

6721 

6748 

6771 

6772 

6796 

6808 

6815 

6880 

6882 

6886 

6896 

6909 

6911 

6913 

6922 

6929 

6931 

6981 

6982 

7013 

7014 

7063 

7081 

7082 

7196 

7201 

7202 

7370 

7373 

7393 

7396 

7402 

7409 

7517 

7518 

7523 

7527 

7528 

7683 

7684 

7692 

7805 

7807 

7809 

7810 

7812 

7814 

7816 

7817 

7819 

7828 

7830 

7832 

7844 

7846 

7848 

7850 

7851 

7853 

7855 

7857 

7859 

7861 

7863 

7865 

7878 

7880 

7882 

7884 

7892 

7894 

7896 

7898 

7900 

8055 

8059 

8071 

8114 

8115 

8117 

8122 

8124 

8142 

8144 

8152 

8195 

8200 

8203 

8231 

8285 

8290 

8295 

8329 
13831 

8541 

8542 

8695 

8696 

8699 

8836 

8844 

8850 

8883 

8961 

8986 

14049 

14052 

H057 

14058 

14060 

14061 

14065 

14066 

14071 

14073 

14076 

14077 

14084 

7267 

7282 

7320 

7321 

7351 

7355 

;^356 

7381 

7383 

7385 

7404 

7406 

7438 

7455 

7456 

7470 

7471 

7542 

7543 

7639 

7640 

7709 

7719 

7770 

7778 

7779 

7783 

7788 

7790 

7719 

772l\ 

9116 

912]; 

9127 

1718 

1719 

1720 

1722 

1723 

1730 

1766 

1772 

1802 

1803 

1809 

1810 

1972 

222t 

2232 

6143 

6145 

6147 

6149 

6152 

6160 

616!: 

6164 

6186 

6279 

6280 

6281 

C283 

6286 

6354 

6355 

6363 

6388 

6389 

6391 

6392 

6396 

6397 

6416 

6^17 

6418 

6421 

6435 

6450 

6460 

6464 

6465 

6466 

6470 

6474 

6475 

6479 

6480 

6484 

6487 

6491 

6495 

6498 

6500 

6501 

6508 

6534 

6536 

6538 

6541 

6542 

6552 

6564 
6777 

6615 

6623 

6627 

6631 

6750 

6763 

6772 

6773 

6774 

6775 

6776 

6778 

6779 

6780 

6781 

6784 

6785 

6786 

6787 
7245 

6788 

m 

%^ 

6791 

6792 
7265 

6795 
7270 

6804 

6903 

6929 

6930 

6931 

7248 

7262 

7272 

7277 

7287 

7324 

7325 

7359 

7360 

7378 

7383 

7388 

7401 

7406 

7411 

7^^} 

^60 

7474 

7475 

7487 

7492 

7493 

7525 

7526 

7527 

7546 

7547 

7603 

J§o^ 

7609 

7610 

7611 

7613 

7614 

7619 

7620 

7643 

7644 

7721 

7/24 

7801 

7809 

7816 

7842 

7850 

7874 

7911 

7912 

7916 

7920 

8044 

8046 

8052 
8699 
1744 

8062 

W^ 

8113 

8114 

8158 

8159 

8160 

8163 

8171 

8172 

8174 

8796 

8802 

8837 

8845 

8848 
6360 

8853 

14050 

14067 

14078 

14083 

6159 

6355 

6356 

6358 

6359 

6362 

6420 

6425 

6481 

6482 

6502 

6507 

6539 

6540 

6541 

6546 
6653 
7602 

6548 

6549 

6550 

6551 

6555 

6571 

6588 

6589 

i 

6646 
7576 

m 

6654 

6726 

6727 
7612 

6728 

7303 

7337 

7530 

7604 
7772 

7610 
7776 

7618 

7621 

7626 

7753 

7754 

7758 

77  ty 

7762 

7777 

7781 

7782 

7785 

7794 

8049 

§959 

8051 

3056 

8058 

8059 

8060 

8061 

8065 

8081 

8082 

8100 

8122 

8235 

8271 

82/2 

8274 

8786 

8787 

8790 

8795 

8800 

14051 

SEQ  0506 


AC3S 
ACA 


ACS 


AC6 


ACSET 

ACSET1 

ADRPE 

ALCOMP 

ALLS! 


ALTHGO 

ALUA 

ALUAPA 

ALUAPE 

ALUB 

ALUBPA 

ALUBPE 

ALUC 

ALUZ 

ANXM 

APR 

ARFULL 

ARND 

AROV 

AROVU 

ASCII7 

ASCSPC 

ASKA 

ASKA1 

ASKA2 

ASKB 

ASKC 

ASKD 

ASKD1 

ASKDR 

ASKER 

ASKEKI 

ASKERR 

ASKJ 

ASKL 

ASKLl 

ASKM 


14062 
7776# 
67# 
6136 
6557 
8126 
8293 
68# 
7213 
7A70 
8076 
69# 
8136 
10813 
10827 
428# 
A86# 
6859« 
7037 
73U 
7501 
1312# 
626# 
643# 
671  # 
627# 
6AA# 
672# 
667# 
668# 
1226# 
11663 
850# 
6310 
1226# 
1226# 
115# 
8185 
9666 
9671 
9674# 
9668 
9686# 
9696 
9707 
9382 
9798 
9816 
13508 
9763# 
9658# 
9667# 
9764# 


K06A 
7776 
17A5 
6138 
6572 
8230 
8297 
1862 
722A 
7A87 
8078 
6533 

10833 
108A1# 

8107 
6859 
7051 
7317 
7521 
1607 


11666 
c31A* 


3553 
8200# 
9669# 
9679# 
9681 
9682# 
9722 
9706# 
9709 
9758# 
981 3# 
982 1# 
13509 
9839 
9689 
9677 
9772 


1A065 
7786 
17A6 
61A0 
6576 
8236 
8788 
1863 
72A8 
7503 
8109 
6580 

108A0# 


6861 
707A 
733A 
75A0 
6023 


1A067 
7793 
17A7 
6161 
6587 
8238 
8789 
1871 
7265 
7523 
8110 
71 9A 


1A08C   1A082 


17A8 

19A6 

19A7 

6199 

6A55 

6A62 

)052 

8053 

J05A 

82A0 

82AA 

82A8 

6560 

6561 

6565 

7280 

7298 

7316 

75A2 

7558 

7575 

8158 

8162 

8176 

7202 

7204 

7210 

1951 
6A6A 
8065 
8250 

6566 
7336 
7591 
8785 
7219 


6098 
6A96 
8067 
8278 

6568 
7351 
7607 
8802 
7221 


6110 
6A98 
8082 
8282 

7179 
7379 
7639 

7230 


6112 
65A2 
8086 
8283 

7180 
7A02 
7651 


611A 
65A3 
8098 
8287 

7181 
7A25 
8070 


6127 
6544 
8112 
8288 

7196 
7437 
8071 


6135 
6555 
8124 
8292 

7201 
7455 
8075 


SEO  0507 


7232    8041    8042    8089 


6865 
7091 
7349 
7556 
6097 


6871 
7104 
7352 
7573 


6876 
7117 
7371 
7589 


6899 
7130 
7382 
7637 


6923 
7143 
7394 


6942 
7159 
7405 


6957 
7174 
7420 


6972 
7243 
743S 


6992 
7260 
7453 


7006 
7275 
7468 


7024 
7296 
7A85 


3811 


A079    A339    A603    A856    5428    5661 


971  m 

13517   13518 
9705    9716 


1352^ 
9724 


13530* 
9728 


ASKN 

9768 

9773* 

9801 

9814 

9818 

'   " 

ASKN1 

9778 

9785* 

ASKN2 

9784 

9786* 

ASKP 

9769# 

9811 

9830 

ASKQ 

9797# 

9812 

ASKRH 

9380 

9654* 

ASKX 

9770 

9831* 

ASKZ 

9721 

9737* 

AST 

U27* 

ASTAT 

A87# 

6860 

ASYNER 

103# 

2437 

2563 

2661 

7075 

ASYNEX 

2422# 

2422 

2435 

2442 

2547* 

2547 

2561 

2568 

2642* 

2642 

2659 

2666 

7082 

ATA 

539# 

1770 

ATAOO 

577# 

ATA01 

5760 

ATA02 

575* 

ATA03 

57A# 

AT  ADA 

573# 

ATA05 

572M 

ATA06 

571# 

ATA07 

570# 

ATMETR 

1606 

8902* 

ATSIN 

1A28* 

ATTN 

87U 

ATTNEN 

731# 

751* 

842* 

6802 

6815 

BADPNM 

1896# 

1934 

1936 

BALU 

653# 

BALUPA 

6^2ff 

BEGEND 

1308# 

1659 

BEGIN 

41 

46 

47 

Al 

49 

M 

1173 

1174 

1239* 

7687 

14362 

BEGIN1 

1255* 

1309 

BELL 

BIS 

BKUD 

U31# 

1226* 

341* 

.^112 

2467 

2469 

2573 

2575 

2623 

2625 

2691 

2693 

2727 

2729 

2798 

2799 

2800 

2840 

2841 

2842 

3076 

3077 

3078 

3145 

3147 

3191 

3193 

3701 

3745 

3789 

3833 

3877 

4216 

4231 

4259 

4274 

4302 

4317 

4345 

4360 

4388 

4403 

4733 

4748 

4776 

4791 

4819 

4834 

4862 

4877 

4905 

4920 

5080 

5236 

5549 

5564 

5588 

5603 

5627 

5642 

5666 

5681 

5705 

5720 

5858 

5873 

BLKCNT 

786* 

801* 

6198 

BLKPT 

804  3# 

8043 

8131 

8133 

BLOKCT 

2099 
6539 

5773 
8041 

5775 
8049 

5792 
8109 

5818 

5852 

5854 

5887 

5891 

6150 

6186 

6196* 

6196 

6533 

BOT 

325# 
3191 

2112 
3193 

2467 

2469 

2573 

2575 

2623 

2625 

2691 

2693 

2727 

2729 

3145 

3147 

BOTDND 

947* 

2420 

2545 

2640 

6691 

BPW 

6464 

6498 

8117 

8419* 

BPWP 

8158 

8426* 

BR 

661* 

BSB 

146* 

183 

183* 

184 

BSF 

148* 

179 

179* 

180 

BSIZE 

6561 

8071 

8171 

8412* 

BUF1 

6163 

6166 

6355 

6467 

6474 

6544 

8054 

14304 

14310* 

BUF1A 

14304* 

SEQ  0508 


■"- 1 


i.*     :..mrHt^,9    !*■■ 


BUSCHK 

315* 

BUSY 

872# 

BYTEA 

12139 

12151* 

BYTEC 

12148* 

12153 

BYTEIT 

8123 

8125 

8148* 

BYTEP 

8151 

8158* 

BYTES 

12054 

12138* 

BYTOUT 

8165 

8170* 

8176 

BYTPTR 

1954# 

1954 

1989 

1991 

6353 

6357 

6358 

6361 

6362 

6413 

BYTSPC 

8182 

8195* 

BYTUT 

1969# 

1972 

C20D 
CADDR 

1 3089# 

11443* 

1758 

5999 

8729 

8925 

9274 

13112 

13152* 

13152 

13225 

13229   13243   13255   13284   13294 

13320 

13324 

13343 

13362 

13371 

13396 

13407 

13414 

13424 

13448   13461   13466   13468   13604 

13614 

13628 

CADTBL 

10688 

10844 

11002 

11948* 

CARCT 

7234 

7654 

7752* 

7752 

7754 

7758 

7762 

CBASE 

1612 

1631 

10691 

11050 

11134 

11942* 

13071 

CBFULL 

851* 

CBI 

14323* 

CBOCLR 

840* 

CBOV 

869* 

CBPAR 

885* 

CBPE 

881* 

CBTFLG 

84* 

1637 

1753 

9103 

9162 

9205 

13074 

CBTO 

880* 

CBTOER 

9104 

9163 

9187* 

CBTOEX 

9195 

9203* 

CBUF 

1577* 

1679 

6157 

14305 

CBUFA 

14305* 

CBUF  IN 

14298* 

CBUFPT 

12452* 

CCA 

1226* 

CCINH 

852* 

CCOHP 

342* 

CCUARG 

6168* 

6168 

6922 

CCWI1 

11314 

11319* 

CCWI1A 

11 320 
11323 

1 1 324* 

CCUI2 

11326* 

CCWI2A 

11331 

11335* 

CCUINT 

11283 

11307* 

CCWIX 

11317* 

11334 

11338 

11340 

11623 

CCWLNG 

6927 

6938* 

crwLP 

6932* 

6935 

CCWP10 

11251 

1 1 360* 

CCWPGO 

11248 

11250 

11254* 

CCWPNl 

6938 

11242* 

CCWPTl 

11272 

11278* 

ccyPT2 

11276 

11281 

11282* 

11295 

CCWPT3 

11288 

11294 

11295* 

CCWPT4 

11289 

11292 

11298* 

CCWST 

10926 

10985 

10998* 

SEQ  0509 


u 


! 
CCWST1 

11000 

11006# 

CCUTBL 

11332 

123A9# 

CDATA 

9262 

9273 

13111# 

13111 

13211 

13215 

13224 

13227 

13231 

13234 

13245 

13251 

13253 

13258 

13273 

1327A 

13277 

13282 

13289 

13296 

13322 

13326 

13391 

13394 

13401 

13435 

13464 

13603 

0^§\  r\r 

13622 
858« 
112# 
55AA 
5A0# 

COPE 
1 CDUMP 

3A08 

3679 

391 A 

3916 

3918 

4193 

4195 

4197 

4440 

4442 

4727 

5277 

5279 

CERR 

2173 

6261 

6375 

6679 

9114 

CERRER 

96# 

2175 

2182 

2188 

626A 

6269 

6380 

6958 

6975 

CFGA 

93A1* 

\CrQB 

9339 

93A7 

936A 

9380# 

iCFGC 

93A9# 

9356 

CFGD 

9357# 

9366 

9378 

CFLAG 

13567# 

13567 

13569 

135^ 

13617 

13623 

13625 

CHAIN 

978# 

I  CHAR A 

1011A 

10119* 

1 CHARG 

11A30 

11A31 

11A38 

11AA2 

11A5A# 

CHARG1 

11A92 

11A93 

11A95 

11A96 

11302 

11507# 

1 CHARIN 

10112* 

CHCNT 

11053 

11950# 

CHINIT 

1680 

6158 

10678# 

CHIX 

10699 

10709# 

CHK 

8512 

8532 

110A6 

11131 

119A9# 

CHKASY 

26A5 

2655# 

CHKDRV 

6273 

6275 
13580 

6278# 
13585 

CHKSUn 

13561 

13590 

I3S96 

14213# 

CHLENO 

AA3# 

2288 

2318 

2352 

2.S9 

2406 

2531 

2571 

2605 

3189 

3256 

3307 

3351 

3402 

3673 

3925 

A203 

AAA9 

4718 

4969 

5009 

5048 

5078 

5124 

5164 

5204 

5234 

5286 

5535 

5763 

58A2 

5921 

ICHNACT 

85  5# 

CHMBUF 

38  7# 

CHNCLR 

83Af 

CHNER 

863# 

CHWOfF 

1226# 

CHNON 

1226# 

CHNPLS 

85Af 

CHNTAe 

88A5 

8866# 

CHP10 

10782 

11A78# 

CHP20 

10868 

]]t^' 

CHPGHO 
CHPGH1 
CHSEL 

11A29# 

11A30# 

9358 

9367 

9A51 

950A 

9583 

9617 

9692 

9764 

9791 

9803 

9821 

9925 

9970 

9974 

10685 

108A1 

110AA 

11106 

1126A 

11414 

11631# 

11848 

CINIT 

119A6# 

CKCOWP 

9096 

9107# 

9157 

CLK 

1226# 

CLKCLR 

1226# 

CLKDIS 

1226# 

ICLKENB 

1226# 

CLKU 

CLOCXF 

CLRATA 

U26M 
129A4f 
2A13 

2A29 

2538 

255A 

2612 

2646 

2653 

2810 

2852 

2896 

2939 

3436 

3485 

3534 

SEO  0510 


r 

3583 

"  Wl 

3960 

4009 
5455 

4058 
5500 
6739* 

4107 

4156 

4484 

4533 

'S^ 

4631 

^§§2 

5004 

5^59 

5320 

5410 

5805 

5956 

6014 

6101 

6683 

6725* 

CLRD16 

3227 

3347 

3921 

4200 

CLRDHT 

8932 

8950# 

13847 

CLRDON 

3426 

3475 

3524 
4273 

3573 

mi 

3699 

3743 

3787 

383: 

3875 

3950 

3999 

4048 

4097 

4146 

4230 

4316 
5073 

4402 

4474 

4523 

4572 

4621 

^670 

(,7^7 

4790 

4833 

4876 
5680 

4919 

4994 

5149 

6721* 

5310 

5355 

5400 

5445 

5490 

5563 

5602 

5641 

5719 

5791 

5872 

5946 

CWDADR 

13115 

13149# 

CMDCK 

13103 

13119# 

13139 

CMDCKC 

13105 

13138# 

CMDDAT 

13108* 

13136 

cnoDN 

753# 

6241 
13155# 

6327 

6336 

6621 

6628 

6896 

CWDFOR 

13142 

cnoGO 

13117 

13135 

13141* 

13153 

CHOILL 

13144 

13160* 

CnOIN 

1 3098# 

CMDINP 

13090# 

13140 

13147 

13158 

13163 

13182 

13528 

13534 

CMOLIN 

13547 

13654 

13662 

14214* 

CMDOK 

13124 

13129# 

13174 

CMDREJ 

31 3# 

CHOSPH 

13130 

13172* 

CMDTBL 

13122 

13145 

13183* 

cnouAi 

13109 

13150 

13165* 

cmo 

13100# 

13100 

13119 

13138 

CHPBT 

8118# 

8146 

CHPBUF 

6257 

6532* 

CMPDN 

8069 

8085 

8087 

8089* 

CWPDON 

6559 

6575 

6577 

6580* 

C«PER 

6556 

6573 

6578* 

CHPERR 

9115 

9119* 

CMPLP 

8063# 

8067 

C«PLV 

6579 

6581* 

C«PPNT 

8105 

d109* 

CWPRER 

8083 

8088* 

CHSTRJ 

3944f 

CHTA 

8960# 

8966 

CNIA 

12008 

12012* 

CNIB 

12011 

12019* 

CNOCm 

10595 

10602* 

CNSL 

40 

13065* 

CNTLC 

1311* 

COLUMN 

370# 

COMMA 

1420# 

7616 

7622 

7751 

COMPER 

86# 

1637 

1753 

9092 

9095 

9111 

9117 

9152 

9156 

13074 

COMPLE 

8108 

8129* 

COMPLP 

6553# 

6557 

CONFIG 

1645 

9331* 

13075 

CONIAC 

6237 

6326 

6335 

6620 

6638 

6801 

6880 

8329 

14314* 

CONIER 

14250# 

CONIEX 

6242# 

6242 

6328 

6337 

6882 

CONIIM 

14282# 

CONIPT 

6890 

8330 

11991* 

SEO  0511 


\ 

CONMOD 

483# 

1615 

CONSU 

1295# 

1614 

1760 

1854 

1997 

2012 

3041    5996    6024    8106 

9345 

9387 

9573 

9664 

9776 

11114 

11140   11159   11190   11270 

12686 

CORSIZ 

8631 

8665* 

CP10C 

11488 

11492* 

CPAERX 

9238 

9246# 

CPAFLG 

85# 

1637 

1753 

9167 

9228 

9243 

13074 

CPARER 

9168 

9228* 

CPOPJ 

1315# 

CP0PJ1 

1313# 

13610 

CPT 

11997 

12002* 

CPUTST 

1632 

1 3766* 

CR6250 

385# 

CRAMO 

13602# 

13602 

13620 

CRC 

338# 

CRCBTO 

933# 

CRCIII 

388# 

CRFND 

881 1# 

CRIN 

14297# 

CRLF 

1108 

1109 

1415* 

CRLF2 

1112 

1113 

1417* 

CRYO 

1226# 

CRY1 

1226# 

CSHFLG 

1474# 

CSHMEW 

1475# 

CSTRTA 

13078 

1 3084* 

CSTRTC 

13076* 

CSTRTE 

1617 

1 3074* 

CSTRTU 

13067 

13073* 

CTBPAR 

553# 

CTOD 

879# 

CTRLA 

8839 

8844* 

CTRLB 

8842 

d852* 

CTRLCl 

8861 

8887* 

CTRLC2 

8866 

8878* 

CTRLCH 

1684 

8833* 

CTRLDG 

8909# 

CTRLE1 

8924# 

CTRLED 

S92SM 

CTRLF 

8929 

8937* 

CTRLFG 

1906 

8852* 

8852 

8878 

8892 

8899 

8902 

CTRLHI 

8908 

8918* 

CTRLNG 

6947 

6951* 

CTRLY 

8916 

8922* 

CUEND 

;41# 

2689 

2725 

2796 

2883 

3003 

3047    3143 

CVTRCK 

320# 

CWBACK 

11482 

11489* 

CWPE 

859# 

CWURT 

864# 

CYCL60 

1468# 

6771 

14063 

CZF 

10806 

10812* 

C2FD 

10816 

10832* 

8149        8483        8774        9064 
11312       12006      12044       12497 


SEQ  0512 


01600 

340# 

2112 

2114 

6732 

6739 

DATAX 

3213 
3973 

3280 

3330 

3375 

3449 

3498 

3547 

3596 

3645 

3715 

3759 

3803 

3847 

3891 

4022 

4071 

4120 

4169 

4245 

4288 

4331 

4374 

4417 

4497 

4546 

4595 

4644 

4693 

4762 

4805 

4848 

4891 

4934 

8363* 

DATCHK 

31 7# 

DATERR 

105# 

6578 

7662 

DATHID 

8116 

8141# 

DATPN 

7173 

7177 

7662* 

DATTEN 

1771 

1790# 

DBEBL 

922# 

DBEVNB 

924# 

DBMSK 

927# 

DBODD 

923# 

DBODDB 

925* 

DBPAR 

926# 

DBPCLR 

832# 

DBPE 

739# 

861  # 

6243 

6329 

6338 

DBSCLK 

921# 

DBTO 

934# 

DBUFIN 

14296# 

ncK 

1226# 

DDTLNK 

992# 

1253 

DDTSRT 

1253# 

DEBUG 

DECVER 

DESC 

26# 
2# 
7257 

14234 

4 

7274 

14235 

12 

7289 

1274 
7327 

7362 

7390 

7413 

7444 

7462 

7477 

7549 

7646 

7709* 

7721 

7729 

DESCBF 

7709 

771 U 

DEVADR 

11437 

11494 

11523 

11807 

11844* 

DEVCK 

9389 

9398# 

DEVCOD 

9927 

9933# 

DEVDRE 

9401 

9408# 

DEVEND 

444# 

2288 

2318 

2352 

2369 

2499 

2571 

2689 

2725 

2757 

2796 

2838 

2883 

2926 

2969 

i003 

3047 

3074 

3115 

3126 

3143 

3189 

3230 

3256 

3307 

3351 

3402 

3673 

3925 

4203 

4449 

4718 

4969 

5009 

5048 

5078 

5124 

5164 

5204 

5234 

5286 

5535 

5763 

5842 

5921 

DEVEX 

9983 

9985 

9988* 

DEVREL 

7688 

8733 

8931 

8938 

9987 

11761* 

11806 

OEVREQ 

1703 

1740 

1756 

1838 

1846 

2041 

2125 

2387 

8725 

9210 

9253 

1 1 799* 

DEVRHE 

9399 

9404* 

DEVSEL 

1655 

9956# 

13087 

DEVTBL 

8497 
9977 
8498 

8522 

9371 

9376 

9513 

9515 

9527 

9541 

9622 

9795 

9808 

9825 

9828 

9911 

DEVUD 

8523 

9500 

9832 

9909* 

DF22B 

855# 

DF22F 

1379* 

DF22FG 

11963# 

DFDXEF 

9107# 

9107 

11008 

11169 

11194 

11202 

11208 

11994 

12080 

12091 

DFNCTN 

533# 

DIAER1 

11888 

11900# 

DIAER2 

11889 

119044f 

DIAGCR 

9984# 

9984 

9986 

11763 

11766 

11773 

11774 

11815 

DIAGER 

11444 

11498 

11527 

11771 

11813 

11864* 

SEQ  0513 


D1A6GL 

DIAGLE 

DIAGMD 

DIAGMN 

DIAGPC 

DIAGRS 

DIAGUG 

DIAGUT 

DIAGXX 

DIBILC 

DIBIN 

DING 

DISCA 

DISCTC 

DLT 

DMASK7 

DMASK9 

DMODE 


DMPSPC 

DNCHK 

DOLLAR 

DONCLR 

DONE 

DOVRER 

DRAT 

DPI 

DPRCX 

DROLNG 

DRORAE 

DR1LNG 

DR1RAE 

DR2RAE 

DR3RAE 

DR4RAE 

DR5RAE 

DR6RAE 

DR7RAE 

DRAES 

DRATTN 

DRCLER 

DRE 

DRECLR 

DRESSE 

DREX 

DRIVE 


DRMANY 
DROW 


11039 
1755 
360# 
12A2# 
11867# 
1756# 
1767# 
1766# 
1777 
883# 
H293# 
96A# 
89A4 
8933 
882# 
6548 
6546 
2104 
3856 
4604 
5545 
8055 
8181 
1971 
1434* 
7110 
8710 
7^70 
6473* 
14324# 
13775 
7135 
908# 
7148 
9070 
906# 
905# 
904# 
903# 
902# 
901  # 
7624f 
749# 
2231 
8660 
8370 
744# 
740# 
74# 
9621 
10321 
9337# 
634* 


11522* 
1899* 


11867 
1776 
1772 
1840 
1783 


8948* 
8939 


SEQ  0514 


11874 
1782 

1848 
1800 


1950    1976 

1909    1977    2040* 


8943*  11679   11695   13178 


8058 

8405* 

8056 

8399* 

3185 

32431 

3919 

3982 

4653 

4728 

5584 

5623 

3315 
4031 
4771 
5662 


3345 
4080 
4814 
5701 


3409 
4129 
4857 
5757 


3458 
4198 
4900 
5915 


3507 
4254 
4963 
6116* 


3556 
4297 
5118 
6116 


3605 
4340 
5280 
6191* 


3680 
4383 
5339 
6191 


3724 
4443 
5384 
6195 


3768 
4506 
5429 
6455 


3812 
4555 
5474 
6545 


8188* 
1979* 


8195 


844*   6007    6721 


6243 
6473 

13795* 
7139* 

n520 


6329 
6551 


6338 
6589 


14150 
7669    8061 


8100 


6327 
2234* 


6243 
6243 
1649 
9630 
10415 
9337 


6336    6639 


6329 
6327 
1693 
9632 
10516 
9375 


6338 
6331 
1836 
9634 
11850 
9400 


6336 

6340 

1844 

6646 

6727 

9507 

9509 

9516 

9802 

9806 

9961 

9962 

9963 

9976 

3086 

9518    9542    9544    9614 
9980   10092   10203   10233 


DRPNT 
DRPNT1 

12051 
12096 

12091* 
12100# 

DRSEL 

76A# 

774# 

784* 

792* 

799* 

DRVAA 

951 3# 

9520 

DRVADR 

1651 
6192 

2000 
6688 

^lV^ 

2010 
7683 

2073 
14357* 

2077 

2089 

2419 

2432 

2544 

2557 

2639 

2656 

6117 

DRVCLR 

141# 

190 

190* 

DRVE 

9530 

9531 

9539* 

DRVEE 

9535 

9540# 

DRVERR 

98# 

6282 

7007 

DRVEXP 

2289 

2319 

2353 

2370 

2407 

2466 

2500 

2532 

2572 

2606 

2622 

2690 

2726 

2758 

2797 

2839 

2884 

2927 

2970 

3004 

3048 

3075 

3116 

3127 

3144 

3190 

3231 

3257 

3308 

3352 

3403 

3674 

3926 

4204 

4450 

4719 

4970 

5010 

5049 

5079 

5125 

5165 

5205 

5235 

5287 

5536 

5764 

5843 

5922 

6281* 

6281 

7014 

DRVF 

9512 

9526# 

95A6 

DRVL 

950A# 

9525 

DRVLNG 

7016 

7020# 

DRVN 

9517 

952U 

95A3 

DRVTST 

93A2 

9496# 

DRVX 

9523 

9547# 

DRVY 

9542* 

DSCR 

730# 

6007 

6169 

6625 

DSE 

150# 

187 

187* 

188 

DSE1 

3124 

3128# 

DSER 

37A# 

DSET10 

11722 

1 1 728* 

DSETEX 

11726 

1 1 732* 

DSE TUP 

1636 

11713* 

DSKUPD 

1279 

DSTOPD 

1769 

1779* 

DTBPAR 

552# 

DTES 

7B50 

800* 

DUALDN 

367# 

DXASR 

500# 

•837 

1845 

6644 

6654 

6728 

14152 

DXBUSY 

4A24f 

2621 

6286 

DXCERR 

6376 

6380* 

DXCTR 

4964f 

1765 

1839 

1847 

2229 

6127 

6747 

6945 

9021 

DXDRO 

S20M 
13366 

7133 
13436 

7134 
13437 

9002 

9005 

13211 

13212 

13246 

13247 

13301 

13302 

13347 

13348 

13365 

DXDR1 

52U 

7146 

7147 

9004 

/005 

13210 

13211 

13217 

13218 

13244 

13245 

13300 

13301 

13311 

13312 

13346 

13347 

13353 

13354 

13361 

13362 

13426 

13427 

13434 

13435 

13437 

13438 

13450 

13451 

DXDR2 

5220 

9006 

9007 

13366 

13367 

DXDR3 

523# 

9008 

9009 

DXDRA 

524# 

9010 

9011 

DXDR5 

5250 

9012 

9013 

13328 

13329 

13403 

13404 

DXDR6 

526M 

90U 

9015 

DXDR7 

5270 

9016 

9017 

13333 

13334 

DXDTR 

5020 

1716 

DXERER 

970 

6270 

6973 

DXEREX 

2287 

2317 

2351 

2368 

2405 

2464 

2498 

2530 

2570 

2604 

2620 

2688 

2724 

2756 

2795 

2837 

2882 

2925 

2968 

3002 

3046 

3073 

3114 

3125 

3142 

3188 

3229 

3255 

3306 

3350 

401 

3672 

3924 

4202 

4448 

4717 

4968 

5008 

5047 

5077 

5123 

5163 

SEQ  0515 


DXERR 

DXES 

DXFR 

DX6P 

DXGPO 

DXGP1 

DXGP2 
DXGP3 

DXGP4 


DXGP5 

DXGP6 
DXGP7 
DXWTR 

OXRES 

DXRLNG 

DXSTCK 

DXSTR 

DXV100 

0XV200 

DXV210 

DXV220 

DXVAOO 

EC 

EC1SB0 

EC1SB1 

EC2 

EC3 

ECA 

EC5SB0 

EC6SB0 

EC6SB1 

EC6SB2 

EC7SB0 

EC7SB1 

EC8SB0 

EC8SB1 

EC8SB2 

ENABLE 

ENDFIX 

ENDPAS 

ENOSLD 

EOT 

EQPCHK 

ERHORE 


5203 
498# 
937# 
6113 
60A# 
51 2# 
6A22 
51 3# 
9032 
51A# 
51 5# 
7062 
51 6# 
2556 
6685 
51 7# 
90AO 
51 8# 
51 9# 
499* 
13A55 
565# 
698A 
21A7 
A627 
A97* 
583# 
58A4r 
586* 
587* 
585# 
5A8* 
A6A# 
A65# 
A664f 
A67# 
A68# 
A69# 
A70# 
A714f 
A72# 
A73# 
A7A4f 
A75# 
A76# 
A77# 
11551* 
155A# 
1658 
lA2324f 
350# 
316# 
1328# 


5233 
1790 

6135# 

1797 
6A23 
1967 

1808 
1932 
9035 
1959 
2559 
669A 
1961 

1963 
1965 
599A 
13A58 
599A 
6988# 
3A32 
A676 
1767 
1719 
1720 
9537 

1722 
1793 
2687 
i619 
5007 
5162 


11588 
90A74f 
2117 


5285 
183A 


1798 
7010 
1968 

1809 
1933 
9036 
1960 
2560 
6695 
1962 

196A 
1966 
6995 

8906 

3A81 
5000 
2172 
1723 
953A 


9536 

2723 

5076 
5232 


553A 
18A2 


1801 
7011 
1969 

192A 
1957 

2015 
26A3 
6697 
2022 

2256 
2259 
8906 


5762 
1913 


1802 
8539 
1970 

1925 
1958 

2016 
26AA 
6698 
2023 

2257 
2260 
8927 


58A1 
2179 


1915 
85A0 
22A4 

1955 
22A7 

2250 
26A8 
6707 
2253 

6A31 
6A33 
9027 


8927   13AA7   13A58 


3530 
5155 
6010 
9533 


3579 
5316 
6052 


3628 
5361 
6058 


5920 
2238 


1916 
9029 
22A5 

1956 
22A8 

2251 
26A9 
6708 
2254 

6432 

6434 

13423 


3956 
5406 
6258 


6263 
2638 


2241 
9030 
6118 

2206 
6124 

2424 
2654 
7078 
6126 

7107 

7120 

13427 


4005 
5451 
6374 


6267# 
6013 


2242 

6119 

2207 
6125 

2425 
2655 
7079 
6127 

7108 

7121 

13428 


4054 
5496 
6678 


6267 
6100 


6278 

6193 

7040 
6180 

2430 
2665 
9037 
6190 

8998 

9000 

13433 


4103 
5801 
6961 


6369 
6265 


6279 

6194 

7041 
6181 

2431 
2666 
9038 
6191 

8999 

9001 

13441 


4152 
5952 
9023 


6982 
6978 


6414 

7027 

9033 
6300 

2549 
6015 

7094 


9025    9130 


SEC  0516 


6415 

7028 
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13698 
8783 
13682 
966# 
352# 
11119 
11161 
11164 
11172 
1226# 
1226# 
13185 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226* 
1226# 
1226# 
1226# 


SEQ  0524 


2109    5160    5173    5230    5245    6184 


6239 


1352U 

6247 
634  7# 
11524 
11950 
6252 
691 6« 
6913 

11100* 

11533* 

13693 

13720* 

13545 

13684 

3194 
11152* 
11165* 
11179* 
12357* 


13214* 


6251 

6347 

11533 

1 1 964* 

6349 


6342 

6903 

11534* 

6900 


6344 


6348    6467    6905    6911    6918   14312* 


13697*  13700   13702   13704   13706   13708   13710 


13681* 
13687 

3195 


1 3694* 
3196 


14189 
3261 


3262    3263 


LPNTRP 
LPRCHI 
LPRCH2 
LPRCH3 
LPRCH4 
LPRCH5 
LPRCH6 
LPRCH7 
LPRFWH 
LPRFHL 
LPRG1 
LPRG2 
iLPRG3 
LPTRP 
LPWRFE 
ILPWRFL 
LR 

LREQSE 
LRGXFR 
LRQCLR 
LSADEN 
LSADRP 
LSBSEN 
LSBUSE 
LSCAER 
LSCASD 
LSECMO 
LSIOPF 
LSWOOE 
LSNTRP 
LSNXER 
LSPAER 
LSPURF 
LSSAER 
LSSBER 
LSI 

LSTCMD 
LSTDON 
LSTEXT 
LSTFIL 
LSTRP 
LSTSUB 
LSTWD 
LTBASH 
LTBASL 
LTRP3T 
LTRPAE 
LTRPEN 
LUP 

LUSC«P 
LUUO 
LUU01 
LUU010 


1226# 
1226# 
1226# 
1226# 
1226# 
12264f 
1226# 
1226# 
1226# 
1226# 
13559# 
1 3588# 
13589 
1226# 
1226# 
1226# 
760# 
1226# 
2110# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
1226# 
^226M 

1226# 
1226# 
1226# 
1226# 
1226# 
1226# 

U362# 
6234 

10853* 

13685 
1738 
12264f 

13688# 
8062 
1226# 
1226* 
1226* 
1226# 
1226A' 

13132 
1226* 
1226* 
589* 
1359 


SEQ  0525 


13630 
13592 
13595* 


773* 
2110 


781* 
5276 


878* 
5736 


5753 


6146    6458 


8254    8258 


13691* 
13525* 

13688 
8070* 


13691 
13525 

13714 


8262 

13717 
13681 


8266 
13712 


14325* 
13733 


1.V83 


1};59 
^364 


13507* 
1360 


LUU01 1 

1359 

1364 

LUU01 2 

1359 

1365 

LUU01 3 

1359 

1365 

LUUOU 

1359 

1366 

LUU01 5 

1359 

1366 

LUU016 

1359 

1367 

LUU01 7 

1359 

1367 

LUU02 

590# 

1359 

1361 

LUU020 

1359 

1368 

LUU021 

1359 

1368 

LUU022 

1359 

1369 

LUU023 

1359 

1369 

LUU024 

1359 

1370 

LUU025 

1359 

1370 

LUU026 

595# 

1359 

1371 

LUU027 

596# 

1359 

1371 

LUU03 

591  # 

1359 

1361 

LUU030 

1359 

1372 

LUU031 

1359 

1372 

LUU032 

597# 

1359 

1373 

LUU033 

598# 

1359 

1373 

LUU04 

592# 

1359 

1362 

LUU05 

593# 

1359 

1362 

LUU06 

59A# 

1359 

1363 

LUU07 

1359 

1363 

LUUOI 

1226# 

LUCER 

7A1# 

6243 

6329 

6338 

LUM 

13186 

13221* 

13626 

LUR 

155# 

199 

199* 

200 

LUR1 

324A# 

3248 

3253 

LUREND 

3226 

3285# 

LWRITE 

1226# 

LURNGO 

32684f 

3283 

LURNG1 

1269U 

<274 

3279 

3281 

LURPEO 

3201  # 

3216 

LURPE1 

3202# 

3207 

3212 

3214 

NA 

673# 

MAPNEU 

1380# 

MARGIN 

1302# 

nASSEN 

7A8/r 

MAXUD 

8500 

8525 

11941* 

MBCnAX 

16A8 

8494 

8519 

9363 

9465 

9522 

9588 

9769 

9907* 

9964 

13085 

necMiN 

8492 

8517 

9357 

9428 

9503 

9582 

9763 

9906* 

9968 

MBCN 

750 

1648 

1692 

9357 

9363 

9428 

9446 

9465 

9503 

9522 

9582    9588    9611    9690 

9691 

9701 

9712 

9763 

9769 

9786 

9922 

9927 

9964 

9968 

9986   10095   10206   10226 

10262 

10273 

10323 

10374 

10388 

10428 

10458 

10472 

10518 

10558 

10593   10607   10617   11631 

11 634 

11766 

1177]; 

11815 

11845 

11998 

12084 

12455 

13085 

MBE 

72Slf 

6007 

6169 

6241 

6327 

6336 

6625 

6721 

13095 

14150 

mi 

8235 

14322* 

MBRA05 

501# 

MBRA07 

503* 

MBRA10 

504# 

MBRAH 

505# 

SEQ  0526 


nBRA12 

506# 

MBRA13 

507# 

MBRAH 

508# 

MBRAIS 

509/r 

nBRA16 

51 0# 

MBRA17 

51U 

nexER 

7A3# 

6243 

6329 

6336 

MBXHLT 

7A6# 

6241 

6327 

6336 

MCLOAD 

2095 

5980* 

6057 

nCNAHE 

41 8# 

5980 

nCNVER 

1# 

4 

12 

1274 

MCOOEP 

1676 

S755M 

MCSTRT 

41 9# 

MDACT 

1794 

1946# 

MDACT1 

6162 

6166# 

MDCONT 

1799 

1805 

1812 

1823    1834*   1981 

MDERR 

1792 

1829* 

nOERRL 

1814 

1824 

1833* 

1898 

NDLCHK 

1807 

1813# 

MDLOOP 

1833 

1842# 

nONAME 

1830 

1850# 

MDNCOR 

1921 

1930# 

MDPNT 

1881# 

1894 

MDPNTA 

1883 

1886# 

WDPNTX 

1887 

1890/(f 

MDRRPT 

1931 

1942/1^ 

MEMLOU 

1382# 

MEHMAP 

1280 

MEMO 

654# 

MEMS I Z 

1383# 

MEMTOT 

1381# 

niNS 

6598 

6792M 

6792 

niNUS 

1424# 

W10D 

935# 

' 

MODDVC 

974# 

nODDVL 

1173 

1173# 

1275 

MODDVU 

1174 

1174# 

1276 

MODIV 

41 3# 

2045 

nODLNK 

993* 

1239 

MONCTL 

1292# 

nONFLG 

1291# 

nONTEN 

1293# 

MONT I M 

:3955 

1 3976# 

14020 

14116 

MONTYP 

15064f 

1620 

8596 

8618    8692    8838 

11846 

11881 

11896 

13477   13977   14055 

MOVEXS 

6256 

6352# 

MOVSTA 

6355* 

6363 

MPDBO 

6834f 

MPDB1 

684# 

MPDB2 

6854f 

MPDEAD 

6260 

6366# 

MPDTR 

681# 

MPECR 

680# 

SEQ  0527 


2016 


8907    8928    8943   10779   ^^2^9   11583   11718   11721 


MPER 
MPERR 

MPGPO 

MP6P1 

HP6P10 

MPGP1 1 

WPGP1 2 

HPGP1 3 

MPGP14 

MPGP1 5 

HPGP1 6 

HPGP1 7 

HPGP2 

HPGP3 

MPGP4 

HPGP5 

MPGP6 

MPGP7 

MPHVR 

HPOK 

MPRST 

nPRUN 

HPSC 

HPSCRO 

HPSCRl 

MPSERR 

MPSTAT 

HPSTP 

MPSTR 

MPVU 

HPWEVP 

HS001 

MS100 

HSAOO 

MS50 

nS800 

nSEN 

nSGFND 

MSGSKP 

NSTART 

MSTCLR 

HTCOM 

MTCX 

MTELRC 

MTM20 

niRLNG 

NAM10 

Hfm20 

NBYTES 

NEUSUB 

NEXBLK 


427# 
549# 
5232 
686# 
687# 
694# 
695# 
696# 
697# 
698« 
699/r 
700# 
701* 
6884f 
689# 
6904f 
69U 
692# 
693# 
682# 
6016 
6012 
542# 
562# 
678# 
679# 
95# 
703# 
55C4f 
564# 
1226* 
563# 
6774# 
6778* 
6604 
6776# 
2228 
61 7# 
1863 
1864# 
5993# 
1741 
13981 
13988# 
336# 
13973 
6997 
12072 
12075 
6181 

355# 

804  3# 

430# 


1791 


2619    2687    2723    2794    2881 


3001 


3045 


3113    3141    5007    5076    5162 


SEQ  0528 


6020# 
601 8# 
1768 
13423 


6366 


13427 

13440 
6774 
c778 
6780# 
6776 
6595 

13244 
1872# 
1870 
6051 
8903 

13985# 


13982# 

7001  # 

121884r 

12179# 

6465 

8089 


6011 
13427 

6863 

13438 

6783 

6780 

6782# 
13434 

1871 
8731 
8926 


6053 
13428 


6059    6259   13173 
13433   13438   13443 


13451 


6782 


9521 


9526   10007# 


6495/r   6495 


8092 


...._  —  _ 

N02CSU 

23A9 

2384# 

NOCERR 

6262 

6369# 

NOCONI 

6879 

6889 

6894# 

NOCTR 

69AA 

6955* 

NODRO 

7132 

7143# 

N0DR1 

7U5 

7156# 

NODRVR 

7009 

7024# 

NODXER 

6977 

6992# 

NOEOT 

30A3 

3164* 

NOEXTS 

7158 

7161* 

N0GP1 

7026 

7037* 

N0GP2 

7039 

7050# 

N0GP3 

7060 

7073# 

N0GP4 

7077 

7091  # 

N0GP5 

7093 

7104# 

N0GP6 

7106 

7117* 

N0GP7 

7119 

7130# 

NOISE 

32U 

NOLOG 

6897 

6902 

69220 

NOMES 

1861 

1865 

1868 

8784    8792    8827# 

NOnODE 

122* 

NOMTR 

6994 

7005# 

NOP 

137# 

165 

165# 

166 

NOPDTR 

1727 

1733jSf 

NOPNT 

962# 

NOPNTX 

2043 

2064# 

N0PV10 

11730 

1 1 744# 

N0PV20 

11725 

1 1 736* 

NOSET 

11691# 

11711 

- 

NOSTR 

6956 

6960 

697U 

NOTCAP 

328# 

N0TU72 

2081 

2084* 

Noryco 

429# 

NOTXFR 

6895 

r925 

6942# 

NOXFR 

6236 

6254 

6258# 

6350    6364 

NT  1600 

Z6S0 

2117 

2121 

6734    6741 

Nuncw> 

8799 

8802* 

NUP4CNV 

8787# 

8790 

NuniE 

10065 

10076# 

NUniEX 

10069 

10072# 

10078 

NUniN 

10050# 

13782 

NUMRD 

879U 

8794 

8803 

NUMRDI 

8797# 

8801 

NURTPE 

3302 

3334# 

NXFRCM 

6617 

6636# 

6641 

NXM 

860# 

Nxnu 

1226# 

NXTBLK 

6534# 

6580 

NXTBYT 

1955# 

1980 

ONEDVN 

489* 

1998 

2013 

ONETIW 

1585# 

1585 

1644 

1695    1698 

OPREPT 

2100# 

2100 

2595 

2602    3058    3070 

OPRSEL 

976* 

SEO  0529 


5793 


5796    6125 


139A# 

f— 

OPTIME 

OSTAT 

488# 

68S7 

8150 

OT7200 

123# 

OT7556 

12A# 

i  OT7800 

125# 

2101 

3182 

3344 

3918 

4197 

4442 

OVERUN 

31 8# 

OVN 

435# 

OVRCLR 

836# 

OVRRUN 

865# 

P 

1019 

1020 

1021 

1022 

1226# 

1314 

6062 

9959 

9969 

9981 

10029 

10030 

10051 

10055 

10068 

10070 

10071 

10072 

10077 

10115 

10116 

10344 

10350 

10352 

10359 

10379 

10384 

10620 

11865 

12562 

12589 

12651 

12663 

13645 

13664 

13914 

13916 

13918 

13920 

PAG 

1226# 

PALERS 

968# 

PAR 

766# 

PARCLR 

1226# 

PARDIS 

1226# 

PAREA1 

520 

1270 

PAREA2 

53# 

1271 

PAREA3 

54# 

1268 

PAREAA 

55# 

1269 

PAREA5 

56# 

1281 

PAREA6 

570 

1282 

PAREA7 

1281# 

PAREA8 

1282# 

PARENB 

1226* 

PARTL 

6457 

6459 

6495# 

PARU 

:226# 

PASCNT 

1296# 

1641 

1681 

1694 

1726 

5254 

6029 

PATCH 

14235# 

PATEND 

64531 

-361  # 

8363 

PATERN 

64531 

6471 

834  7# 

8363 

PBARIN 

14288# 

PC 

620# 

13344 

13425 

.3449 

PCAI 

61 9# 

13426 

13450 

PCEN 

nn 

13216 

13244 

13345 

13426 

13434 

13450 

PCRFUL 

PCSAV 

6407 

908U 

9081 

9137 

9147 

9189 

9232 

PDEC 

211# 

594 

8705# 

PDISF 

1391* 

PDLOVU 

n2t0 

PERIOD 

M^2y0 

2030 

8225 

PERR 

7610 

PFSTRT 

1248# 

PGMEND 

14241 

pamAf^ 

1273 

8460# 

PHYLST 

11537# 

PIA 

734# 

754# 

PICHNI 

12260 

PICHN2 

12260 

SEQ  0530 


4962    5117    5279    5756    5914 


6377 

6406 

6608 

6660 

9164 

9871 

9885 

10056 

10057 

10058 

10059 

10060 

10066 

10067 

10117 

10118 

10239 

10247 

10267 

10280 

10336 

10692 

m 

10J54 

11049 

11071 

11419 

11428 

13718 

13868 

13892 

13894 

13896 

13898 

9050 


f 
P1CHN3 

1226# 

P1CHN4 

1226# 

PICHN5 

1226# 

PICHN6 

1226# 

PICHN7 

1226# 

PICHNA 

1226# 

PICLR 

1226# 

PIOFF 

1226# 

PION 

1226# 

•PLIST 

H60# 

1460 

6062 

PLISTE 

1460 

1462# 

PLISTS 

U61# 

iPLUS 

H26# 

PNFBCD 

1 391 3# 

PNTBCD 

1389U 

PNTBLK 

8111 

813U 

PNTBUF 

7663 

8036# 

PNTBYT 

7197 

7203 

791 U 

7916 

PNTDIS 

18r 

1888 

1938* 

1938 

PNTENB 

13<^ 

PNTERR 

806u 

8088 

8103# 

PNTEXT 

1269# 

PNTFL6 

1389# 

PNTHEX 

13865# 

PNTINH 

1392# 

PNTLPT 

963# 

PNTNAM 

1268# 

PNTNMS 

8307# 

8307 

8315 

8322 

PNTNUA 

8309 

831 2# 

PNTNUB 

8310 

831 7# 

PNTNUC 

8319 

8322# 

PNTNUM 

21 0# 

593 

8304* 

PNTSEP 

7304 

7338 

7423 

7489 

7505 

7531 

7561    7577    7593 

PNTSPC 

1393# 

'193 

7340 

7657 

8148 

8211 

8215 

PWTSPL 

7756 

77600 

PNTSPN 

7750 

7762M 

PNTSTA 

6949 

7692# 

6649 

6965 

6986 

6999 

7018 

7031 

7044    7067    7086 

PNTSTN 

6700 

6704 

6710 

6714 

6718 

6753    8335# 

POCDEC 

8676 

8681 

8758 

8761 

11377 

12618# 

POCDEF 

12636# 

POCT 

12583# 

12618 

pocn 

12590# 

12599 

P0CT2 

12592 

12595# 

P0CT3 

12591 

12594 

12597# 

P0CT4 

12596 

12599# 

POKEBK 

11947# 

PROTCT 

327# 

PRTEXT 

7160 
359# 

8221# 

PRTREC 

PSDN 

11212 

11325 

12392 

12544 

12555# 

12620 

,  PSDNO 

12557* 

12563 

i  PS0N1 

12556 

12561# 

SEQ  0531 


771 5    7749# 


7098 


7111 


7124 


7137    7150 


PSFAIL 

PSIZE 

PSI2EX 

PTCRIN 

PTI«A 

PTI«B 

PTIHE 

PTIHEH 

PVPAGI 

PWDXfR 

PWfCLR 

QSTN 

QSTNA 

QSTNB 

QUEST 

R 

ROOSER 

ROOTBL 

ROl TBL 

R02SER 

R02TBL 

R03TBL 

ROATBL 

R06SER 

R06TBL 

R07TBL 

R10TBL 

R11TBL 

R12TBL 

R13TBL 

RUTBL 

R15TBL 

R16TBL 

R17TBL 

R20SER 

R20TBL 

R21SER 

R22SER 

R23SER 

R23TBL 

R2ASER 

R25SER 

R26SER 

R27SER 

R30SER 

R30TBL 

R31SER 

R31TBL 

R32SER 

R32TBL 

R33SER 

R33TBL 

R34SER 


868# 
1599 
4A99 
K289# 
U056 
U05A 
U012 

2107# 
1226# 
10026* 
10030* 
10028 
U32# 
42 
12724 
12724 
12725 
12726 
12726 
}2727 
12728 
12730 
12730 
12731 
12732 
12733 
12734 
12735 
12736 
12737 
12738 
12739 
12740 
12740 
12741 
12742 
12743 
12743 
12744 
127  ;5 
12746 
12747 
12748 
12748 
12749 
12749 
12750 
12750 
12751 
12751 
12752 


1600 
4548 

14060* 
14059 
14049* 
14073* 

2107 


10035 
10034* 

1587* 
12835* 
12758* 
12760* 
12840* 
12766* 
12776* 
12782* 
12848* 
12804* 
12793* 
12793* 
12793* 
12793* 
12793* 
12793* 
12793* 
12793* 
IJ794* 
12852* 
12796* 
12860* 
12871* 
12874* 
12799* 
12879* 
12872 
12890* 
12895* 
12909* 
12804* 
12913* 
128'>3* 
129.7* 
12804* 
12924* 
12804* 
12930* 


1601 
4597 


14062* 

4439 

10036 


1602 
4646 


1603 
4695 


1604 
4764 


6145    8382*   8395 
4807    4850    4893 


4936    8395* 


SEO  0532 


4940 


6144    6456 


12883   12893 


12885* 
12896 


R34TBL 

R35SER 

R35TBL 

R36SER 

R36TBL 

R37SER 

R37TBL 

R40SER 

R4CTBL 

R44SER 

R44TBL 

R50SER 

R50TBL 

R54TBL 

R60TBL 

R64TBL 

R70SER 

R70TBL 

R71SER 

R71 TBL 

R72SER 

R72TBL 

R73SER 

R73TBL 

R74SER 

R74TBL 

R75SER 

R75TBL 

R76TBL 

R77TBL 

RAC 

RADIX 

RADLSC 

RADLSP 

RAE 

RAECLR 

RAEEN 

RAEER 

RAE  IN 

RAEREP 

RAND6S 

RBBLIC 

RBLGA1 

RBLGC1 

RBLGH1 

RBLGI1 

R6LGS1 

R6NGA0 

R6NGA1 

R6NGC0 

RBNGC1 

R6NGH0 

RBNGH1 


12752 

12815# 

12753 

1 2934# 

12753 

1 2804# 

12754 

12941# 

12754 

12805# 

12755 

12948* 

12755 

12826* 
1?417* 

12208 

12208 

12295* 

12209 

12436* 

12209 

1230^.* 

12210 

12443* 

12210 

12309* 

12211 

12315* 

12212 

12326* 

12213 

12326* 

12200 

12375* 

12200 

12214 

12326* 

12201 

12383* 

12201 

12267* 

12202 

12376* 

12202 

12264* 

12203 

12384* 

12203 

12268* 

12204 

12404* 

8513 

8534 

1220^ 

12215 

12274* 

12205 

12411* 

12205 

12277* 

12206 

12280* 

12207 

12283* 

13195 

13361* 

1435# 

1437# 

8709 

8711 

1436# 

it075 

14077 

14081 

S7O0 

725# 

13095 

14150 

841f 

745# 

6243 

6329 

6338 

14294# 

87* 

1637 

9090 

9150 

9205    9248   13074 

]27Q0 

5854# 

5889 

l^» 

5673 
5556 

5679 

^68? 

5694 

5562 

.  J71 

5577 

57010 

5712 

5718 

5727 

5733 

5586# 

5595 

5601 

5610 

5616 

5625-r 
4342# 
4343* 

5634 

5640 

5649 

5655 

4377 
4352 

4358 

4367 

4373    4375 

421 3f 

4248 

;214# 
4385# 

4229 

4238 

4244    4246 

4420 
4395 

4386# 

4401 

4410 

4416    4418 

SEQ  0533 


RBNGIO 

RBNGI1 

RBNGSO 

RBNGS1 

RBPEAO 

RBPEA1 

RBPECO 

RBPEC1 

RBPEHO 

RBPEH1 

RBPEIO 

RBPEI1 

RBPESO 

RBPES1 

RBPUAO 

RBPWA1 

RBPWCO 

RBPWC1 

RBPUHO 

RBPUH1 

RBPWIO 

RBPUI1 

RBPWSO 

RBPWS1 

RBWDPE 

RCI 

RCLP 

RCLPA 

RCNDET 

RCR 

RDA 

RDAL 

ROAT 

RDCBUF 

RDCOMD 

RDCR 

RDDBUF 

RDDIB 

RDEOF 

RDEXS 

RDFW 

RDF  WD 

RDIAR 

RDIRC1 

RDIRC2 

RDIVRG 

RDMES 

RDP 

RDPBAR 

RDPTCR 

RDR 

RDRAE 

RDRDRG 


4256# 

4291 

4257# 

4266 

4272 

4281 

4287 

4289 

A299# 

4334 

4300# 

4309 

4315 

4324 

4330 

4332 

38U# 

3850 

381 5# 

3824 

3830 

3840 

3846 

3848 

3682# 

3718 

3683* 

3692 

3698 

3708 

3714 

3716 

3858# 

3894 

3859# 

3868 

3874 

3884 

3890 

3892 

3726* 

3762 

3727* 

3736 

3742 

3752 

3758 

3760 

3770# 

3806 

377U 

3780 

3786 

3796 

3802 

3804 

4859* 

4894 

4860* 

4869 

4875 

4884 

4890 

4892 

4730* 

4765 

4731* 

4740 

4746 

4755 

4761 

4763 

4902* 

4937 

4903* 

4912 

4918 

4927 

4933 

4935 

4773* 

4808 

4774* 

4783 

4789 

4798 

4804 

4806 

4816* 

4851 

4817* 

4826 

4832 

4841 

4847 

4849 

3670 

3897* 

13196 

1 3378* 

782* 

729* 

6007 

6169 

395* 

8730 

13194 

13343* 

13204 

13461* 

13465* 

13470 

767* 

775* 

793* 

1 0468* 

6107* 

6107 

6137 

6154 

6176 

6253    6472    7 

1 0466* 

10464* 

10456* 

8812 

8824* 

157* 

198 

198* 

6140 

156* 

194 

194* 

195 

6136 

6138 

6108* 

6108 

6139 

6485 

6511 

10462* 

10461 

10463 

10465 

10467 

10470* 

10459 

10476* 

10552* 

1857 

8777 

8781* 

13197 

1 3383* 

10548* 

10550* 

13207 

13414* 

13467 

10460* 

10554* 

SEQ  0534 


7666 


RDREG. 

RDREGX 

RDREGY 

RORG 

RDRGA 

RDRGB 

R0RGB1 

RDRGB2 

RDRGC 

RDRGIN 

RDRV 

RDSBAR 

ROSENS 

RDSTCR 

RDWRT 

RE 

REENTR 

RE  F  DRV 

REG2 

REGA 

REGS 

REG8C 

REGPNT 


REJTU 

RELARG 

RELIAB 

RELOC 

REMAIN 

REMGS 

RE  PET. 

REPT 


REPTl 


REPTU 


595 
9154 
9155 
9153 
1033A 
10338 
10361 
10366 
10339 
H291# 
158« 
10544# 
6420# 
10546# 
9079# 
2040 
1250# 
9980# 
8232 
8273 

8272# 

9026 
349# 
11768 
970# 
1613# 
6461 
6483 
590 
76# 

Wt 

3645 
3857 
4120 
4342 
4596 
4848 
5385 
77$ 
1927 
-378 
647 
892 
4130 
4377 


596 

9162# 

9167# 

9529 

10343« 

10346 

10372# 
1035U 

196 

6435 

9079 
5972 

9980 

828S# 

8278# 

8239 

8274 

6752 

7152 

9028 

11769 
1762 
1613 
6502# 
649U 
9284# 

{028 
Ull 
(646 
(858 
4121 
4374 
4606 
4849 
5430 

1930 
^410 
(648 
J894 
4171 
4384 
4647 
4893 

sm 

9069 


9143# 

10315* 

10359# 
10379* 

10381 

196# 


9110 
13203 


SEQ  0535 


6951 
8999 
9030 

1 1 779* 
9067 
1629 
6502 


10392 
197 


9113 
13458# 


6161    6324 


9119    9121 


6967 
9001 
9032 


11009 
6510 


m 

9034 


1307; 
6531 


7001 
9005 
9036 


9145 


8241    8245    8249    8251    8270# 


7020 
9007 
9038 


7033 
9009 
9040 


7046 
9011 
9131 


7069 
9013 
9208 


6558    6560    8045    8068   8070 


7088  7100  7113 
9015  9017  9022 
9251   12035*  13419 


7126 
9024 


2011 
3375 
3607 
3848 

4595 
4816 
5340 

.920 
3377 
3606 
3850 
4123 
4376 
4605 
4851 
6142 


REQARG 

REQEX 

REQSET 

RE  SAC 

RESRPQ 

PESRTl 

RESRT2 

RESTRT 

RETURN 

REWIND 

RExcno 

RFBLK 

RFLGA1 

RFLGC1 

RFLGH1 

RFLGI1 

RFLGSl 

RFNGAO 

RFNGA1 

RFNGCO 

RFNGC1 

RFNGHO 

RFNGH1 

RFNGIO 

RFNGI1 

RFNGSO 

RF.'^GSI 

RFPEAO 

RFPEA1 

RFPECO 

RFPEC1 

RFPEHO 

RFPEH1 

RFPEIO 

RFPEIl 

RFPESO 

RFPES1 

RFPUAO 

RFPWA1 

RFPWCO 

RFPWC1 

RFPUHO 

RFPUH1 

RFPUIO 

RFPWn 

RFPUSO 

RFPWS1 

RFUDPE 

R6001N 

RG01IN 

RG02IN 

RG03IN 


11767 
11800 
1226# 
6128 
354# 
1325# 
1326# 
6019 
1257# 
2765 
4%6 
6109# 
5775# 
5431# 
5296# 
5/v76# 
55A1# 
5386# 
4082# 
A083# 
3935# 
3936# 
A13U 
A132# 
3984# 
3985# 
A033# 
A034# 
3S38# 
3559<^ 
341 1# 
"^41 2# 
j607# 
3608# 
3460« 
3461  # 
3509# 
351 0# 
4606# 
4607* 
4459# 
4460# 
465  5# 
4656# 
4508# 
4509# 
4557* 
4558# 
3397 
14261# 
14262* 
14263# 
14264* 


11808   11810 
11815* 

6202   6476 


11811   11826* 
6522   6581 


SEQ  0536 


8129   8450*   8458 


6051* 

1579 

2846 

5121 

6109 

5784 

5438 

5303 

5483 

5348 

5393 

4123 

4090 

3976 

3943 

4172 

4139 

4025 

3992 

4074 

4041 

3599 

3566 

3452 

3419 

3648 

:615 

3501 

3468 

3550 

3517 

4647 

4614 

4500 

4467 

4696 

4663 

4549 

4516 

4598 

4565 

3650* 


6755 

2890 
5283 
6141 
5790 
5444 
5309 
5489 
5354 
5399 

4096 

3949 

4145 

3998 

4047 

3572 

3425 

3621 

34/4 

3523 

46i!0 

4473 

4669 

4522 

4571 


2897 
5760 
6148 
5800 
5450 
5315 
5495 
5360 
5405 

4102 

3955 

4151 

4004 

4053 

3578 

3431 

3627 

3480 

3529 

4626 

4479 

4675 

4528 

4577 


J933 
1918 


5454 
5319 
5499 
5364 
5409 

4106 

3959 

4155 

4008 

4057 

3582 

3435 

3631 

3484 

3533 

4630 

4483 

4679 

4532 

4581 


2940 
6674* 

63r. 

5811 
5461 
5326 
5506 
5371 
5416 

4113 

3966 

4162 

4015 

4064 

3589 

3442 

3638 

3491 

3540 

4637 

4490 

4686 

4539 

4588 


3008 

5817 
5467 
5332 
5512 
5377 
5422 

4119 

3972 

4168 

4021 

4070 

3595 

3448 

3644 

3497 

3546 

4643 

4496 

4692 

4545 

4594 


3128 
5820 


3186    3303    3348    3399    3922    4446 


4121 
3974 
4170 
4023 
4072 
3597 
3450 
3646 
3499 
3548 
4645 
4498 
4694 
4547 
4596 


RGOAIN 

RG05IN 

RG06IN 

RG07IN 

RG10IN 

RG11IN 

RG12IN 

RG13IN 

RGUIN 

RG15IN 

RG16IN 

RG17IN 

RGTCOL 

RH 

RHO 

RH1 

RH2 

RH20FG 

RH2ER 

RH3 

RHA 

RH5 

RH6 

RH7 

RHB 

RHCB 

RHCLR 

RHCR 

RHDB 

RHERR 

RHIA 

RHIVR 

RHMANY 

RHPBAR 

RHPNT 

RHPTCR 

RHRA 

RHSBAR 

RHSTCR 

RHTBL 

RHTL 

RHTST 

RHTT 

RHTW 

RHTX 

RHTZ 

RHyD 

RIO 

RIR 

RIRC 

RITA 

RITBIT 


U265# 

U266# 

U267# 

H268# 

U269# 

U270# 

U271# 

U272# 

U273# 

U274# 

H275# 

U276# 

372# 

825# 

71 2# 

71 3# 

8482 
10318 
A32# 
71 5# 
71 6# 
71 7# 
7S8# 
71 9# 
826# 
895# 
726# 
891  # 
892# 
94# 
B9ZM 
81 4# 
9336# 
81 6# 
6875# 
81 5# 
8944r 
81 8# 
81 7# 
8495 
9429# 
9341 
9442 
9457 
9466 
9440 
8496 
13381 
13192 
10545 
12119 
12053 


SEO  0537 


m 


9430    9435 
10365   11632 


9437    9670    9866 
11816   119404f  12013 


9920   10009   10200 
12070   12109   12121 


10211   10253   10276   10278 
12141 


839# 
6244 

J336 
7167 


6330   6332 
9353    9398 


6339    6341 


6877 


8520 
9468 
9422# 
9451f 
9462# 
9469# 
9461 
8521 
13386 
13300* 
10547 
12132* 
12117# 


9360    9458    9460    9462    9464    9510    9585    9694    9718    9766    991 0#   9971 


9465# 

9349    9425 
13391* 


9593    9683    9731 


9908* 


10549   10551   10553   10556* 


\ 1 — . 

.    .   :    .         -      - 

- 

RITC 

12128* 

12134 

RMB 

13198 

13388* 

RMR 

554# 

IRNAM 

12041 

12064* 

- 

RNAMC 

12068 

12077* 

I 

RNAni 

12065 

12069* 

1 

RNG10A 

9867 

9874* 

RNG10B 

9875 

9877 

9879 

9881 

9883 

9885* 

RNGCHK 

9688 

9862* 

RNTC1 

14019 

14022* 

RNTCOn 

14026# 

RNUSR 

14017 

14020* 

RPC 

13206 

13311* 

RPQ 

36U 

RPT1 

12046 

12051* 

RPT2 

12050 

12055* 

RSTART 

959# 

6025 

6043 

RSTKEY 

RTP 

RUNFLG 

373# 
1430* 
1297# 

8727 

8732 

9194 

9237 

13094 

13176 

13303 

13313 

13330 

13349 

13368 

13378 

13383 

13388 

13405 

13418 

RUNTME 

1401U 

RUNTMF 

14109# 

RUAIT 

RUD 

RUDCHK 

6681  # 
140# 
2804 

6698 

167 

3040 

167* 
3319 

3364 

3413 

3462 

3511 

3560 

3609 

3684 

3728 

3772 

3816 

3860 

3937 

3986 

4035 

4084 

4133 

4215 

4258 

4301 

4344 

4387 

4461 

4510 

4559 

4608 

4657 

4732 

4775 

4818 

4861 

4904 

4981 

5060 

5136 

5216 

5297 

5342 

5387 

5432 

5477 

5548 

5587 

5626 

5665 

5704 

5778 

5857 

5933 

6671* 

RUDER1 

6676 

6700* 

RUDER2 

6680 

6704* 

RUDER3 

6682 

6710* 

RUDER4 

6693 

6714* 

RUDER5 

6686 

c718* 

RUDUN 

138# 

168 

168* 

RUKPU 

2549# 

2558 

RUKPUT 

2424f 

2433 

RULEAV 

6702 

6706* 

6712 

6716 

6720 

RUM 

13193 

13320* 

RUS8T 

6689 

6697* 

i 

RUSUT 

2648* 

2657 

RUVRC 

335# 

S 

950# 

1584* 

SA0R1 

40# 

1246 

SADR10 

49f 

1262 

f 

SADR11 

50# 

1263 

! 

SA0R2 

4U 

1248 

i 
I 

SADR3 

42# 

1250 

! 

SADR4 

43# 

i 

SADR5 

44# 

1311 

i 

SADR6 

45# 

1312 

i 

SADR7 

46# 

1259 

{ 

SADR8 

47f 

1260 

SEQ  0538 


SADR9 

48# 

1261 

SASBER 

102# 

6312 

7056 

SAVAC 

6094 

6448 

6532 

8103 

8438* 

8446 

SAVBYT 

6465# 

6507 

6512 

6515 

SAVURD 

6481 

6486 

6489 

6493 

6501* 

SBARIN 

14286# 

SBINIT 

1032 

1256* 

SCLP 

10689 

10843 

10853 

11945* 

SCOPE 

1349# 

1690 

1795 

9140 

9206 

9249 

SCOPLP 

1796 

1801* 

SCRFUL 

750# 

SDRAE 

857# 

SEC1 

6785# 

6785 

SEC10 

6787# 

6787 

6790 

SEC70 

6601 

6789* 

6789 

SEL1 

9961  # 

9979 

SEL2 

9964# 

9973 

SEL3 

9965 

9968* 

SELA 

9967 

9970* 

SEL5 

9962 

9974* 

SELFLG 

1647 

9957* 

9957 

9960 

13084 

SENSE 

15U 

189 

189* 

6114 

SEPR 

7240 

7615 

7749* 

7749 

SER10 

12123 

12143 

12208* 

SER20 

12126 

12146 

12200* 

SETAIN 

6812 

6814* 

SETARG 

1829 

1913* 

SETCER 

62644f 

6370 

6371 

SETD16 

3304 

3398 

4445 

4965 

5120 

5282 

5759 

5917 

6732* 

SETEX 

9304 

9308* 

SETREP 

1710 

2133 

2158 

2199 

2218 

2275 

2307 

2337 

2394 

2455 

2489 

2521 

2675 

2711 

2747 

2783 

2828 

2870 

2915 

2958 

2989 

3029 

3102 

3172 

3292 

3386 

3657 

3904 

4181 

4429 

4705 

4947 

5031 

5102 

5186 

5266 

5521 

5743 

5828 

5900 

9064* 

SETTRP 

1685 

J299* 

SETUP 

2135 

2160 

2201 

2220 

111! 

2309 

2339 

2386 

2396 

2457 

2491 

2523 

2677 

2713 

2749 

2785 

2830 

2872 

l^\l 

2960 

2991 

3031 

3071 

3104 

3139 

3174 

3202 

3224 

3269 

3294 

3318 

3363 

3388 

3412 

3461 

3510 

3559 

3608 

3659 

3683 

3727 

3771 

3815 

3859 

3906 

3936 

3985 

4034 

4083 

4132 

4183 

4214 

4257 

4300 

4343 

4386 

4431 

4460 

4509 

4558 

4607 

4656 

k7^7 

4731 

4774 

4817 

4860 

i?Q5 

4949 

4980 

5033 

5059 

5104 

5135 

5188 

5215 

526S 

5296 

5341 

5386 

5431 

5476 

5523 

5547 

SFSTRT 
SHMODE 

5586 

1246* 

9204 

5625 

5664 

5703 

5745 

5777 

5830 

5856 

5902 

5932 

6007* 

9207 

9209 

9247 

9250 

9252 

9990 

11112 

11138 

11157 

11188 

11268 

11310 

12004 

12042 

12495 

14220* 

SHORT 

6856# 
7083 

6856 
7095 

6858 
7108 

6883 

7121 

6906 
7134 

6926 
7147 

6946 
7184 

6962 

6983 

6996 

7015 

7028 

7041 

7064 

SHRTMS 

1856 

1875* 

SHTREC 

SHUC 

SIXBT 

2108* 
434* 
114* 

2108 

5005 

5018 

5074 

5089 

6182 

6238 

3506 

3767 

4030 

4296 

4554 

4813 

5383 

5622 

SIZE 

1597 

6143 

8369* 

8378 

SIZEX 

3215 

3282 

3332 

3377 

3451 

3500 

3549 

3598 

3647 

3717 

3761 

380:. 

3849 

3893 

3975 

4024 

4073 

4122 

4171 

t,2i^7 

4290 

4333 

4376 

4419 

8378* 

SEQ  0539 


-J 


~ 

SKEU 
SLASH 

337# 
K33# 

8279 

8284 

8289 

8294 

SEQ  0540 

SM10 

1537# 

SNDRV 

1952 

1997* 

SNDTIE 

457# 

6179 

6303 

SNSAC1 

1953 

2065 

2096 

2111 

6232 

6233 

6352 

6388 

6391 

6412 

7179 

14315* 

SNSAC2 

2069 

2116 

6233 

6671 

14316* 

i 

SNSAC3 

2123 

14317* 

SNSAC4 

2055 

14318* 

SNSAC5 
SNSAC6 
SNSC1 

2058 
2043 
2115 

2061 

14320* 

2468 

14319* 

2502 

2574 

2624 

2692 

2728 

2760 

2799 

2841 

2885 

2928 

3021 

3050 

3077 

3118 

3146 

3192 

3233 

3259 

3310 

3354 

3404 

3675 

3685 

3700 

3729 

3744 

3773 

3788 

3817 

3832 

3861 

3876 

3927 

4205 

4451 

4720 

4971 

5050 

5126 

5206 

5288 

5537 

5765 

5844 

5923 

6733 

6740 

14332* 

SNSC2 

2122 

2445 

2447 

2470 

2576 

2626 

3053 

3080 

3121 

31^8 

3195 

3235 

3262 

3312 

3356 

3406 

3677 

3929 

4207 

4453 

4722 

4973 

5052 

5128 

5208 

5290 

5539 

5767 

5846 

5925 

6736 

6743 

14333* 

SNSC3 

2123 

2355 

2371 

14334* 

SNSC4 

14335# 

SNSC5 

2347 

14336* 

SNSC6 

2124 

14337* 

SNSCHK 

6320 

6386* 

SNSCMD 

6105# 

6105 

6115 

6293 

SNSCMP 

639U 

6399 

SNSDC1 

6393 

14338* 

SNSDC2 

14339# 

SNSDC3 

14340* 

SNSDC4 

14341* 

SNSDC5 

14342* 

SNSDC6 

14343* 

SNSDS1 

6396 

7202 

7245 

7262 

7277 

7294 

7313 

7332 

7348 

7651 

14344* 

SNSDS2 

7370 

7393 

7418 

7434 

14345* 

SNSDS3 

7452 

/467 

14346* 

SNSDSA 

7483 

7499 

7516 

14347* 

SNSDS5 

7517 

7539 

7554 

7571 

7587 

7602 

14348* 

SNSDS6 

7603 

7636 

14349* 

SNSERR 

104* 

6398 

7176 

7191 

7198 

7648 

SNSEX1 

2096 

2469 

2503 

2575 

2625 

2693 

2729 

2761 

2764 

2800 

2803 

2842 

2845 

2886 

2889 

2929 

2932 

3005 

3006 

3021 

3051 

3057 

3078 

3084 

3119 

3147 

3152 

3193 

3199 

3234 

3239 

3260 

3266 

3311 

3355 

3360 

3405 

3676 

3686 

3702 

3730 

3746 

3774 

3790 

3818 

3834 

3862 

3878 

3928 

3933 

4206 

4211 

4217 

4232 

4260 

4275 

4303 

4318 

4346 

4361 

4389 

4404 

4452 

4457 

4721 

4726 

4734 

4749 

4777 

4792 

4820 

4835 

4863 

4878 

4906 

4921 

4972 

4977 

5051 

5056 

5081 

5127 

5132 

5207 

5212 

5237 

5289 

5294 

5538 

5543 

5550 

5565 

5589 

5604 

5628 

5643 

5667 

5682 

5706 

5721 

5766 

5771 

5845 

5850 

5859 

5874 

5924 

5929 

6392 

7253 

7270 

7285 

7300 

7324 

7342 

7359 

14326* 

SNSEX2 

2471 

2577 

2627 

3006 

3054 

3081 

3122 

3149 

3196 

3236 

3263 

3313 

3357 

3407 

1 

3678 

3930 

4208 

4454 

4723 

4974 

5053 

5129 

5209 

5291 

5540 

5768 

5847 

5926 

7386 

7409 

7427 

7441 

14327* 

1 

SNSEX3 

2356 

2372 

7459 

7474 

14328* 

SNSEXA 

7492 

7508 

7525 

14329* 

SNSEX5 

7546 

7564 

7580 

7596 

7609 

14330* 

I 

!  SNSEX6 

2097 

3007 

3022 

7643 

14331* 

#«r>/\  nc  1   4 

SNSIT 

6419 

6424 

6431* 

SEQ  0541 

SNSMSK 

6395 

14350* 

SNSPN 

6868 

7162 

7164 

7172* 

■ 

SNSRL 

142# 

169 

169* 

170 

i 

SNSRS 

152# 

171 

171* 

172 

1 

SNSRTN 

6429 

6436* 

1 

SNSU1A 

7256 

7926* 

! 

SNSU1B 

7326 

7948* 

SNSW1 C 

7361 

7953* 

SNSU1D 

7301 

7956* 

\ 

SNSU1E 

7273 

7961* 

SNSU1 F 

7288 

7993* 

t 

i 

SNSU2A 

7389 

8003* 

( 

SNSU2C 

7443 

8009* 

i 

SNSU2D 

7412 

8011* 

1 

SNSU3A 

7476 

8019* 

I 

SNSU3B 

7461 

8021* 

j 

SNSU4A 

7493 

8023* 

i 
i 
i 

SNSU5A 

7548 

8028* 

SNSU6A 

7645 

8030* 

I 

* 

SP 

8726 

13202 

13455* 

SPACE 

1422# 

SPECBT 

8177 

8180* 

* 

SPNTA 

1743 

2027* 

SPNTB 

1743 

2022* 

j 

SROH 

633# 

SRTODT 

43 

1252* 

ST 

1759 

6000 

8930 

8937 

13201 

13446* 

1 

STACHK 

2295 

2325 

2362 

2378 

2414 

2477 

2509 

2539 

2583 

2613 

2633 

2699 

2735 

2771 

2816 

2858 

2903 

2946 

2977 

3014 

3064 

3090 

3134 

3158 

3208 

3249 

3275 

3325 

3370 

3420 

344]; 

3469 

3492 

3518 

3541 

3567 

3590 

3616 

3639 

3693 

3709 

3737 

3753 

3781 

3797 

3825 

3841 

3869 

3885 

3944 

3967 

3993 

4016 

4042 

4065 

4091 

4114 

'140 

4163 

4224 

4239 

4267 

4282 

4310 

4325 

4353; 

4368 

4396 

4411 

4468 

4491 

4517 

4540 

4566 

4589 

4615 

4638 

4664 

4687 

4741 

4756 

4784 

4799 

4827 

4842 

4870 

4885 

4913 

4928 

4988 

5017 

5067 

5088 

5143 

5172 

5223 

5244 

5304 

5327 

5349 

5372 

5394 

5417 

5439 

5462 

5484 

5507 

5557 

5572 

5596 

5611 

5635 

5650 

5674 

5689 

5713 

5728 

5785 

5812 

5866 

5881 

5940 

5964 

6230* 

\ 

STACON 

624  54r 

6333 

i 

START 

1240 

1585* 

6046 

7690 

8935 

8941 

11742 

11748 

13793 

: 

START1 

1259# 

\ 

START2 

1260* 

START3 

1261* 

START4 

1262* 

' 

STARTS 

1263* 

: 

STARTA 

1255 

1647* 

; 

STARTB 

1655* 

5973 

STARTC 

1697 

1703* 

'■ 

STARTE 

1618 

1621 

1636* 

STARTL 

1662 

1668 

1671 

1679* 

STARTU 

1608 

1620* 

STATRQ 

448* 

6298 

6417 

6423 

STCLOK 

13945* 

r 

'  STCRIN 

K287# 

,  STCU 

139A8 

13955* 

STCX 

1395A 

1 3958# 

STINDX 

4A9# 

6298 

STKOU 

670# 

STOP 

732# 

843# 

6625 

STORE 

783# 

6200 

,  STPBUX 

7620 

7h27n 

ISTPCIL 

688A 

6890# 

i  STPEXT 

7205 

7649 

7656# 

!  STPHR1 

7263 

7266 

7271    7842# 

STPMR2 

7278 

7281 

7286   7874# 

STPMR3 

7398 

7403 

7410    7892# 

STPSB1 

7297 

731 3# 

STPSB2 

7335 

7348# 

STPSB3 

7421 

7434# 

STPSB4 

7469 

7483* 

STPSB5 

7486 

7499* 

STPSB7 

7515 

7522 

75394f 

i  STPSB8 

7557 

7559 

7571# 

STPSB9 

7590 

7602# 

STPSBA 

7247 

7258 

7279    7294# 

STPSB8 

7315 

7332# 

STPSBD 

7350 

7368# 

STPSBE 

7635 

7638 

764  7lf 

STPSBG 

7650# 

STPSBH 

7175 

7178# 

STPSBI 

7375 

7380 

7387    7828# 

STPSBK 

7451 

7454 

7467# 

STPSBL 

7185 

7210* 

STPSBH 

7246 

72U9 

7254    7801 # 

STPSBN 

7199 

720^M 

STPSBD 

7191# 

7220 

7231 

STPSBP 

7541 

'554# 

STPSBR 

7240# 

7655 

STPSBS 

7193# 

7204 

STPSBU 

761 9# 

762B 

STPSBX 

7222 

72110 

STPSBY 

7571, 

7587# 

STPSBZ 

7606 

7614 

7634# 

STPSEO 

72*^2 

72600 
72750 

STPSE1 

72tt, 

STPSyj 

717*, 

7391 

7397    7418# 

STPT2A 

7369 

7393# 

STPT2D 

7502 

7514# 

STPTX2 

7212 

722U0 

7232 

STPTX7 

721 34f 

722y 

STPTXC 

7436 

7450* 

STRDCK 

358# 

STRE 

10910 

10920 

10926# 

STRLN 

7302 

7712 

7769# 

STRLNl 

777ZM 

7795 

STRLN2 

777kn 

SEO  0542 


STRLN3 

STRLN5 

STRLN6 

STRLN7 

STRLN8 

STRING 

STRSNS 

STRT1 

SUBEXT 

SUBFIL 

SUBLNK 

SUPRES 

SUPSNS 

SV41 

SUCER 

SWCHPT 

SWEEP 

SWEEP1 

SWEEP2 

SWEEP3 

SUPTAB 

SUTEXR 

SYSEXR 

T 


T10TBL 
T20ER1 
T41END 
T91600 


7778# 
7780 
7775 
7787 
7784 
6963 
1956 
1592 
1752 
1748 
994# 
2106 
455# 
8904 

742# 
126844f 
11650* 
11669 
11673 
11657 
1543* 
127U 
1244# 
1710# 
2190 
2365 
252U 
2675* 
2850 
2989# 
3206 
3430 
3539 
3657# 
3829 
3991 
4101 
4243 
4400 
4538 
4662 
4803 
4986 
5153 
5325 
5437 
5561 
5693 
5870 
11892 
11893# 
5253 
1304r 


7782 

7783# 

7788# 

7790# 

7789 

6967# 

1958 

1609# 

1903 

1900 

1256 

2999 

6123 

9305# 

6243 


SEQ  0543 


11909# 
11902 
5259* 

2103 


7793# 

1960 

5985 
5982 

3020 
6175 
9305 
6329 


1962    1964    1966    1988#   6432    6434 


11906 
3184 


8782 
13481 

6122 
6311 
9318 
6338 


11673# 

11682# 

11686* 

1723 

1736* 

1775 

2199* 

2209 

2218* 

2376 

2381 

2394* 

2536 

2542 

2552 

2697 

2702 

2711* 

2856 

2861 

2870* 

3012 

3017 

3029* 

3211 

3247 

3252 

3434 

3441 

3447 

3545 

3565 

3571 

i691 

3697 

3707 

3839 

3845 

3867 

3997 

4003 

4007 

4105 

4112 

4118 

4265 

4271 

4280 

4409 

4415 

4429* 
4570 

4544 

4564 

4668 

4674 

4678 

4825 

4831 

4840 

4992 

4998 

5002 

5157 

5170 

5177 

5331 

5347 

5353 

5443 

5449 

5453 

5570 

5576 

5594 

5711 

5717 

5726 

5879 

588 

5900* 

13484 
13510* 


13512* 
13510 


13512 
13689 


13692 
13705 


13709 
13713 


13716 
13721 


13724 


6174*   6174    6309 


1781 

1949 

1V75 

2133* 

2145 

2149 

2158* 

2170 

2177 

2184 

2235 

2266 

2275* 

2293 

2298 

2307* 

2323 

2328 

2337* 

2360 

2411 

2417 

2427 

2439 

2455* 

2475 

2480 

2489* 

2507 

2512 

2565 

2581 

2586 

2599 

2610 

2616 

2631 

2636 

2651 

2663 

2733 

2738 

2747* 

2769 

2774 

2783* 

2808 

2814 

2819 

2828* 

2894 

2901 

2906 

2915* 

2937 

2944 

2949 

2958* 

2975 

2980 

3062 

3067 

3088 

3093; 

3102* 

3132 

3137 

3156 

3161 

3172* 

3273 

3278 

3292* 

3323; 

3328 

3368 

3373 

3386* 

3418 

3424 

3467 

3473 

3479 

3483 

3490 

3496 

3516 

3522 

3528 

3532 

3577 

3581 

3588 

3594 

3614 

3620 

5626 

3630 

3637 

3643 

3713 

3735 

3741 

3751 

3757 

3779 

3785 

3795 

3801 

3823 

3873 

3883 

3889 

3904* 

3942 

3948 

3954 

3958 

3965 

3971 

4014 

4020 

4040 

4046 

4052 

4056 

4063 

4069 

4089 

4095 

4138 

4144 

4150 

4154 

4161 

4167 

4181* 

4222 

4228 

4237 

4286 

4308 

4314 

4323 

4329 

4351 

4357 

4366 

4372 

4394 

4466 

4472 

4478 

4482 

4489 

4495 

4515 

4521 

4527 

4531 

4576 

4580 

4587 

4593 

4613 

4619 

4625 

4629 

^636 

4642 

4685 

4691 

4705* 

4739 

4745 

4754 

4760 

4782 

4788 

4797 

4846 

4868 

4874 

4883 

4889 

4911 

4917 

4926 

4932 

4947* 

5015 

5022 

5031* 

5065 

5071 

5086 

5093 

5I9i* 

5141 

5147 

5186* 

5221 

5227 

5242 

5249 

5266* 

5302 

5308 

5314 

5318 

5359 

5363 

5370 

5376 

5392 

5398 

5404 

5408 

5415 

5421 

5460 

5466 

5482 

5488 

5494 

5498 

5505 

5511 

5521* 

5555 

5600 

5609 

5615 

5633 

5639 

5648 

5654 

5672 

5678 

5687 

5732 

5743* 

5783 

5789 

5799 

5803 

5810 

5816 

5828* 

5864 

5938 

5944 

5950 

5954 

5962 

5969 

3314 


3408 


3679    4440 


4960 


5115    5277 


5754 


5912 


T96250 

T9800 

TAB 

TABAOR 

TABPC 

TABPC1 

TABPC2 

TACHST 

TAPBL1 

TAPBLK 

TAPFLG 

TAPWCV 

TAPNF6 

TAPUUO 

TB1 10 

TBL20 

TC6250 

TCTRLC 

TCURSV 

TCWPT 

TCWPT1 

TCWPT2 

TELL 

TELLA 

TELLB 

TELLC 

TELLD 

TELLN 

TELLW 

TELLX 

TELLXl 

TELLY 

TELWHO 

TEHPl 

TEHPA 

TE«PB 

TEWPC 

TEHPD 

TEHPE 

TESTIA 

TESTN 

TESTPC 

TICKS 

TIEERR 

TIER 

TIEREO 

TINTUS 

TINTyT 

TINTZ 

TINTZC 

TINTZD 

TINTZI 


13U 
129# 
H23# 
17AA# 
8869 
8870 
8871 

396# 
8953 
895A 
1586 
8223 
138A1# 
592 
12012 
120U 
389# 
1908 
390# 
11120 
11192 
11198# 
9343 
9583# 
9587 
9588# 
961 6# 
9624 
9625 
9575 
9598 
9627 
1701 
8887# 
11145 
11168 
11193 
14224# 
11201 
1721 

88# 
12984f 
1301# 
100* 
332f 
4209 
2105 
6770 
6800# 
1683 
6771* 
6803 
6798 


3242 

3240 

2079 

1744 

8873* 

8874# 

8875# 

8955 

13811 

8950 

8226 

6094# 
12235# 
12217# 

6020 
2354 
11183# 
11200* 
11216 
9568* 
9591 
9611* 
9637 
9635 
9632* 
9628* 
9589 
9605* 
9630* 
10090* 
^887 
14221* 
1  ^222il 
14223* 


11210 
1724* 
6036 
6039 

14052 
6304 
2762 
4455 
5957 
677(*0 
6804 
6761* 
6810 
6806* 
6812* 


3342 
3340 
8270 
1935 


3916 
3914 

1937 


4195 
4193 


SEO  0544 


8958 
13824 
13474* 

8231 


8959 
13826 
13474 
14321* 


8960 
13828 
13808 


8963    8964    8969*   8974 
13830   13833   13834   13854* 


8977 


6618 
2355 


6636 
2356 


8899*   9317   11805 


9592* 


13088 
8896 


8898 


14225* 

8338 
9065 

7058 
2801 
4724 
5965 


9134 
9070 


2843 
4975 
6178* 


9198    9241 


2887 
5054 
6178 


2930 
5130 
6301 


3055 
5210 


3082 
5292 


3150 
5541 


3197 
5769 


3237 
5848 


3264 
5927 


3358    3931 


TINT2L 

TLASTy 

THON 

THRSTI 

TMRUN1 

TOERR 

TOPlOV 

TOTALS 

TP0P1 

TRA 

TRACIC7 


TRK7 

TRK7DR 

TST 


i 


TST1 

TST10 

TST11 

TST12 

TST13 

TSTU 

TST15 

TST16 

TST17 

TST18 

TST19 

TSTIDR 

TST20 

TST21 

TST22 

TST23 

TST2A 

TST25 

TST26 

TST27 

TST28 

TST29 

TST30 


6762 
11286 
11882 
13953 
U018 

107# 
1589 

960# 
8973# 

763# 
2064# 
3083 
4441 
5293 
8079 

324# 

365# 
1710# 
2211 
2361 
2482 
2617 
2747# 
2870# 
2989# 
3162 
4429# 
5072 
5228 
5886 
1710 
2199 
2218 
2275 
2307 
2337 
2394 
2455 
2489 
2521 
2675 
1999 
2711 
2747 
2783 
2828 
2870 
2915 
2958 
2989 
3029 
3102 
3172 


6795# 
11289# 
11892# 
13957 
14021 
2233 
8692# 
6025 


2064 
3151 
4444 
5542 

2066 

1724 

221 8# 

2366 

2489# 

2632 

2770 

2895 

3013 

3163 

4698 

5087 

5243 

5893 

171U 

2200# 

221 9# 

i276# 

2308# 

2338# 

2395# 

2456# 

2490# 

2522# 

2676# 

2005# 

271 2# 

2748# 

2784# 

2829# 

2871  # 

291 6# 

2959# 

2990# 

3030* 

3103# 

3173# 


SEO  0S45 


1 3962# 

14022 

6624 


2067 
3183 
4456 
5755 


2133# 

2236 

2377 

2508 

2637 

2775 

2902 

3018 

3172# 

4705# 

5094 

5250 

5900# 


14023 

14119 

14114 

14117 

14118 

6642 

6870 

2084 
3198 

2086 

2192 

3225 

3301 

4725 

4961 
5770 

4964 

5758 

5849 

2146 

2150 

Vll 

2267 

2268 

227SM 

2382 

2383 

2394# 

2513 

2514 

252U 

2652 

2664 

2668 

277'^ 

2783# 

2809 

29(  ; 

2908 

29^50 

3019 

3029# 

ml 

3284 

W» 

4939 

4987 

5095 

5102# 

5142 

5251 

5266M 

5514 

5939 

5945 

5951 

2113 
3343 
4976 
5913 


2158# 

2294 

2412 

2537 

26750 

?815 

!938 

J068 

3386# 

4993 

5148 

5521# 

5955 


2120 
3346 
5055 
5916 


2171 
2299 
2418 
2543 
2698 
]820 
S945 
;089 
{649 
4999 
5154 
5735 
5963 


2763 
3396 
5116 
5928 


2178 
2300 

m 

2703 

2821 

2950 

3094 

365  7# 

5003 

5158 

5743# 

5970 


2802 
3669 
5119 
6547 


2185 

2307# 

2440 

2566 

2704 

?8284r 

1951 

;095 

;896 

5016 

5171 

5821 

5971 


2844 
3917 
5131 
6553 


2191 

2324 

2443 

2582 

271 U 

7851 

I958# 

jl02# 

3904* 

5023 

5178 

582a# 


2888 
3920 
5211 
65l9 


2192 

2329 

2455# 

2587 

2734 

2857 

2976 

3133 

4174 

5024 

5179 

5865 


2931 
4196 
5278 
8057 


2199* 

2330 

2476 

2600 

2739 

2862 

2981 

3138 

418U 

503U 

5186# 

5871 


3056 
4199 
5281 
8063 


2210 

2337# 

2481 

2611 

2740 

2863 

2982 

3157 

4422 

5066 

5222 

5880 


r' 


TST31 

TST32 

TST33 

TST3A 

TST35 

TST36 

TST37 

TST38 

TST39 

TST40 

TST41 

TST42 

TST43 

TST4A 

TST45 

TST46 

TST8 

TST9 

TSTDR 

TSTDRO 

TSTIO 

TSTL 


TSX1 

TSX2 

TSX3 

TSXM1 

TSXM2 

TTIE 

TTIEO 

TTIE1 

TTNBRF 

TTYFIL 

TTYSPD 

TU72 

TUA 

TUB 

TUCK 

TUCONT 

TUOCSU 

TyOSP 

TX 

TX02 

TXTINH 

TYreiT 

TYPWES 

TYRONE 

UBPAR 

UCDERR 

UNICHK 


3292 
3386 
3657 
3668 
4181 
4192 
4705 
4715 
5031 
5045 
5186 
5201 
5521 
5258 
5828 
5839 
2133 
2158 
2002 
2003 
149*' 
1712# 
2749# 
4183# 
12513# 
12514 
12M8 
12516 
12522 
9687 
9726 
9732# 
1481# 
1397# 
1398# 
2068# 
322# 
323# 
353# 
2075 
405# 
82044f 
1650 
2044# 
7634 
9714f 
12498 
11173 
1859 
88074f 
55U 
1666 
4454f 


3293# 
3387# 
3658# 
3904 
4182# 
4429 
4706# 
4947 
5032# 
5102 
5187# 
5266 
5522/lf 
5532 
5829# 
5900 
2134# 
2159# 
2008 
201 0# 
185 
2135/r 
2785# 
4431# 
12524 
12519# 
12520 
12536# 
12541# 
97210 
9731  # 
9736 
Q862 


2068 


2083 
2348 
8209 
2047 
2044 

1855 

11333 
1873 
8810 

1672# 
2689 


SEQ  0546 


3905# 

4430# 

4948# 

5103# 

5267^ 

5743 

5901  # 

201 U 

185# 
2160# 
2830# 
4707# 

12523* 


5744# 


186 
220U 
2872# 
4949# 


2220*  2277M  2309# 
291 7#  2960*  299U 
5033#   5104*   5188* 


2339*  2396*  2457*  2491*  2523*  2677*  2713* 
3031*  3104*  3174*  3294*  3388*  3659*  3906* 
5268*   5523*   5745*   5830*   5902* 


2072    2080    3238    3241    3265    3341    3359    3915    3932    4194    4210 


2088* 


2049 
2046 


14336* 
2051 


8775    9574 


2053 
9665 


2118 
9777 


3123 
11115 


6735    6742    7211    7241    7368    745C    7514 
11V>i   11160   11191   11271   11313   12007   12045 


l'»015 
boiO 

2725 


12111 
8779 


3003 


12129   12494* 
8808* 


3143    6288    6291 


UNIEXP 

UNITO 

UNITCK 

UNITID 

UPERR 

UPINFO 

UPTEST 

USER 


USERF 

USRASB 

USRCMN 

USRCRF 

USRIOF 

USRION 

USRLFF 

USROFX 

USR0N1 

USR0N2 

USRONX 

UUODIS 

UUOEXT 

UUORTN 

UUCSKP 

UUOTST 

V701FG 

VELCHG 

VELCK 

VERSIO 

VRC 

WAOOMS 

U5MIN 


W70SEC 
W800MS 


WAIT 

WAIT2 

WAITS 

WAITTM 

WAITX 

WATRTN 


4A6* 
1652 
6290# 
369# 
85A3 
1775 
1773 
1288# 
9385 
11051 
11996 
14112 
1226* 
23# 
11591 
U07* 
11618* 
11579* 
1406* 
11619 
11584 
1 1 588* 
11582 
1360* 
1316* 
1317* 
1314* 
9303 
3667 
386* 
397* 
420* 
339* 
3086 
2973 
3536 
3836 
4109 
4463 
4682 
5062 
5402 
5669 
2425 
2143 
2695 
3271 
6606 
6596 
6641* 
6605 
6618* 
6630 


2796 
1653 
6290 

8771* 
1781 
1779 
1588 
9658 
11062 
12082 


1278 
11598 


9306 
4191 


r604* 

3060 

3562 

3864 

4135 

4476 

4736 

5083 

5412 

5684 

2550 

2168 

2731 

6595* 

6611* 

6599 

6655 

6615* 

6623 

6643 


2883 
1654 
6292 


1949 
1973 
1591 
9661 
11144 
12093 


11602* 


11622* 
11595* 

11605   11612* 


9317* 
4714 


3130 
3575 
3880 
4148 
4486 
4751 
5138 
5434 
5708 
2649 
2291 
2767 


6602 
6615 
6663* 


3047 
2074 
6394 


1975 
8538* 
1661 
9674 
11170 
13066 


3115 
2090 


8997* 

1907 

9706 

11195 

13077 


6283 
7684 


14358* 


SEQ  0547 


6761 

9723 

11203 

13156 


7686 

9773 

11207 

13161 


8594 

9780 

11247 

13180 


8616 

9813 

11581 

13532 


8u65 

9982 

11618 

13766 


8833 
10698 
11650 
13947 


9047 
10777 
11713 
14011 


9299 
10867 
11761 
14016 


9338 
11038 
11799 
14053 


50A4 


5200 


5531 


5838    8694 


8700    8703* 


3154 

3585 

3939 

4158 

4512 

4779 

5151 

5447 

5723 

6601* 

2321 

2806 


6605* 
6627 


3321 
3611 
3952 
4219 
4525 
4794 
5167 
5457 
5780 
6681 
2358 
2812 


3366 
3624 
3962 
4234 
4535 
4822 
5218 
5479 
5797 

2374 
2848 


3415 
3634 
3988 
4262 
4561 
4837 
5239 
5492 
5807 

2409 
2854 


3428 
3688 
4001 
4277 
4574 
4865 
5299 
5502 
5861 

2473 
2892 


3438 
3704 
4011 
4305 
4584 
4880 
5312 
5552 
5876 

2505 
2899 


3464 
3732 
4037 
4320 
4610 
4908 
5322 
5567 
5935 

2534 
2935 


3477 
3748 
4050 
4348 
4623 
4923 
5344 
5591 
5948 

2579 
2942 


3487 
3776 
4060 
4363 
4633 
4983 
5357 
5606 
5959 

2597 
3010 


3513 
3792 
4086 
4391 
4659 
4996 
5367 
5630 
6598* 

2608 
3204 


3526 
3820 
4099 
4406 
4672 
5012 
5389 
5645 
6675 

2629 
3245 


WCCHK 

woe  TO 

UFIT 

WFIT1 

ULEAVE 

U0RD2 

WORDS 

WRCUR 

WRNRIO 

WRNRI1 

WRPEIO 

WRPEI1 

WRSTAT 

WRT 

WRTCU 

WRTD 

WRTRG 

WTEVH 

Win 
wrncK 

WTSNS 

XCR 

XECLR 

XFRCMD 

XI 

XIEVP 

YESSNS 

$$MUUO 

SSOUTE 

$$TAX1 

ISTAX2 

ISTOGG 

ISUUO 

lACCO 

$BEND1 

$BEND2 

ICHRIM 

SCRLF 

SDEVCH 

SDSKUP 

IDVCH1 

tDVOFF 

SENCDE 

$FFF 

IIBUF 

SINEXT 

%lNm 

$ITRHL 

IITRX1 

ILPAPE 


1534f 

835# 

15A# 

35U 

939# 

14A# 

356# 

6A22# 

13199 

7270 

6106# 

299# 

13392 

1639# 

6296 

1512# 

1518# 

1530# 

1531# 

1524# 

150U 

1339# 

1309# 

4A 
U00# 
1A02# 
1226# 
1279# 
1226# 
13964f 
1277* 
UOA* 
U52M 
U5A# 
U53# 
1320f 
132U 
270 
^2BO0 


1090A# 

109U# 

10917 

66A8 

81A2 

6A60 


SEQ  05A8 


201 


175 

6A25 
13A22* 
6007 
6106 
9263 
13395 
1639 
6300# 


A5 
9719 


1A231 


6169 

6135 

13200 

13A02 

13092 


8208 
6501* 


10921# 
665  74f 
81 6A 
6A66 


337A 
3329 

mi 

192/r 

201  # 


175#        176 


6501 


6513        653A        80AA 


_.>9 
6112 


nil  m  m 


i^t? 


m  i^ 


51 
5A 


;ii7 

1355 


3118        3119 


1A150 
6235 
13228 
13A32* 
13A39 


6323 
13232 

13AA2 


^^m 


235 


689A    766A 
1325 A   13259   13275 


13278   13283   13290   13323   13327 


131C#   6062 
9809   13101 


9A06 
13113 


9A10 
13133 


960A 
13513   13520 


SMODVL 

SnODVU 

$OBUF 

SONETM 

SOUTEX 

SOUTNH 

SPARER 

SPARER 

SPNAME 

SPSHER 

SPVER 

SRSRTX 

SRSRTY 

SSPAG1 

SSTART 

SSVAPR 

SSVPAG 

SSVPI 

SSVUPC 

*SVUUO 

»TABF 

STTCHR 

STUCNT 

STYPNB 

sunoDE 

SUORTX 

SUSRHL 

SUUOER 

SVTF 

XXSALL 

XACTFL 

XACTUL 

XCOREC 

XCORFL 

XDISCR 

XERH11 

XERHI2 

XERHI3 

.CONI 

.CONO 

.CONSO 

.C0NS2 

.DIAG 

.FMSLF 

.JBA1 

. JBAPR 

.JBCNI 

.JBDDT 

.JBFF 

.JBOPC 

.JBREl 

. JBREN 


1275# 
127o# 
144  3# 
1305# 
1445# 
U44# 

1273# 
1331# 
1274# 
1323# 
1324# 
1343# 
1240# 
1341# 
1342# 
1340# 
1346# 
1345# 
1403# 
1399# 
1395# 
UOU 
1278# 
1318# 
1322# 
1319* 
1405# 
34# 
1352* 
1353# 
1351# 
1350# 
1354# 
1493* 
1494# 
1495* 
6619 
6008 
13096 
10613 
6629 
1144J 
88^4 
122C* 
1226* 


SEQ  0549 


1l 

12; 

ir 

1c 


•6* 
•6* 
•6* 
'6* 
•6f 


7689 


9080 
6098 


9146 
8306 


9727    9817 


8317    8707 
10034   10076 


8708    9082    9148    9261 


9272 


9285    9286 


1360 


1922 
1922 


1689 

1687 

6637 

6170 

14151 

10615* 

10611* 

11497 

11554 


1926 
^929 


1688 
6800 
6626 


11526 
11884 


1831 
9433 
6722 


11711* 
13982 


1850 
9455 
6797 


2042 

10255 

6809 


8544 

10367 

6816 


10606* 
9432 


9454   10011   10257   10369   10591*  11820 


11720   11770   11812 


1226* 


8574    8598    8621    8625    8629    8671 


8678 


f  ■ 
.JBSA 

1226# 

8581 

.JBSYN 

1226# 

.JBTPC 

1226# 

.JBUSY 

1226# 

.JBUUO 

1226# 

.JBVER 

1226# 

.JRLSV 

8575# 

8575 

8630 

.JSYS 

1171 0# 

11717 

.LCR 

209# 

591 

9271* 

.POCT 

12636 

12657# 

.P0CT1 

1266A# 

12673 

.P0CT3 

12665 

12668 

12671* 

.POCT A 

12670 

12673* 

.POCTO 

12666 

12669# 

.PRIOU 

11886 

.PSDN 

12638 

12644* 

.PSDNO 

12646* 

12652 

.PSDN1 

126A5 

12650* 

.RNTC1 

H115 

14118* 

.RNUSR 

14113 

14116* 

.SIRE 

10966 

10976 

10983* 

.TFDHS 

8952 

8969 
13806* 

13805* 

.TFSET 

8952 

13825 

.TICCC 

8850 

.UUO 

1 1 709# 

11719 

.WCCHK 

10953 

10955 

1 0960* 

.WFIT 

10961 

10970* 

.WFIT1 

10971 

1097!; 

10977# 

.XI 

207# 

589 

9260* 

13825       13854 


SEO  0550 


! 

ADJUST 

!  AIC 
:AT1 
^BSB 

Ibsbf 

IBSF 
BSFF 
CFLUSH 
CINVAL 
CLOKOP 
CLRBFI 
CORE 
CURTBI 
DEBRK 
DROPDV 
DRVCLR 
DSE 
DSEF 
EIR 
ENDUUO 
EOPUUO 
EPCAP 
ERCAL 
ERLOOP 


ERLPl 
ERLP2 
ERRHLT 
ERROR 


21 6# 
3079 
8849 
8851 
183 
A52A 
18A4r 
179 
180# 
1UA# 
1U3# 
1138# 
9659 
8600 
1U5# 
8884 
1105# 
190 
187 
188# 
8847 
1151# 
1152* 
11558 
11556 
1196# 
2267 
2481 
2652 
2895 
3133 
3419 
3529 
3638 
3824 
3992 
4102 
4266 
4410 
4565 
4675 
4841 
5016 
5243 
5393 
5495 
5649 
5811 
11974? 
11984f 
1039* 
1205* 
2265 


] 


354 

117 


2694 
4573 
2811 
2730 
2853 


6799 
9774 


1467 
;i20 


3009 
4622 
3153 

3085 


6807 
13157 


!501 
;i45 


3427 
4671 


►573 
;i91 


1623 
;i94 


3476    3525 
4995    5150 


91 
32 


3574 
5311 


\727 
1258 


3623 
5356 


2759 
3261 


395: 
5401 


•798 
1309 


4000 
5446 


1840 
1353 


4049 
5491 


3049 


4098 
5794 


3052    3076 


SEQ  0551 


4147 
5947 


4475 


13162   13181   13533 


2227 

3129 

1308 
1310 

11559 
1776 
2294 
2508 
2664 
2902 
3138 
3425 
3533 
i644 
3830 
3998 
4106 
4272 
4416 
4571 
4679 
4847 
5023 
5250 
5399 
5499 
5655 
5817 

9285 
11898 
1564# 
2292 


1626    1677 


13984 
1782 
2299 
2513 
2698 
2907 
3157 
3431 
3540 
3692 
3840 
4004 
4113 
4281 
4467 
4577 
4686 
4869 
5066 
5303 
5405 
5506 
5673 
5865 


13849 
1774 
2297 


1833 
2324 
2537 
2703 
2938 
3162 
3435 
3546 
3698 
3846 
4008 
4119 
4287 
4473 
4581 
4692 
4875 
5072 
5309 
5409 
5512 
5679 
5871 


1780 
2322 


1950 
2329 
2543 
2734 
2945 
3207 
3442 
3566 
3708 
3868 
4015 
4139 
4309 
4479 
4588 
4740 
4884 
5087 
5315 
5416 
5556 
5688 
5880 


1948 
2327 


1976 
2361 
2553 
2739 
2950 
3212 
3448 
3572 
3714 
3874 
4021 
4145 
4315 
4483 
4594 
4746 
4890 
5094 
5319 
5422 
5562 
5694 
5886 


1974 
2359 


2146 

2150 

2171 

2]  166 

2177 

2382 

2566 

2582 

2587 

2770 

2775 

2809 

2976 

2981 

30131 

3248 

3253 

3274 

3468 

3474 

3480 

3578 

3582 

3589 

37]  16 

3742 

3752 

3884 

3890 

3943 

4041 

4047 

4053 

4151 

4155 

4162 

4324 

43130 

4352 

4490 

4496 

4516 

4614 

4620 

4626 

4755 

4761 

4783 

4912 

4918 

4927 

5142 

5148 

5154 

5326 

5332 

5348 

5438 

5444 

5450 

5571 

5577 

5595 

5712 

5718 

5727 

5939 

5945 

5951 

2144 
2364 


2148 
2375 


2169 
2380 


2178 
2412 
2600 
2815 
3018 
3279 
3484 
3595 
3758 
3949 
4057 
4168 
4358 
4522 
4630 
4789 
4933 
5158 
5354 
5454 
5601 
5733 
5955 


2176 
2410 


2185 
2418 
2611 
2820 
3063 
3324 
3491 
3615 
3780 
3955 
4064 
4223 
4367 
4528 
4637 
4798 
4987 
5171 
5360 
5461 
5610 
5784 
5963 


2183 
2416 


2191 
2428 
2617 
2851 
3068 
3329 
3497 
3621 
3786 
3959 
4070 
4229 
4373 
4532 
4643 
4804 
4993 
5178 
5364 
5467 
5616 
5790 
5970 


2189 
2426 


2210 
2440 
2632 
2857 
3089 
3369 
3517 
3627 
3796 
3966 
4090 
4238 
4395 
4539 
4663 
4826 
4999 
5222 
5371 
5483 
5634 
5800 


2236 
2476 
2637 
2862 
3094 
3374 
3523 
3631 
3802 
3972 
4096 
4244 
4401 
4545 
4669 
4832 
5003 
5228 
5377 
5489 
5640 
5804 


2209 
2438 


2234 
2474 


ERR0R1 

ERSGP 

ER3GPF 

ERSTR 

ERUUO 


EXIT 

FATAL 

FR036 

FRD8 

FREAO 


2479 
2650 
2893 
3131 
3A16 
3527 
3635 
3821 
3989 
4100 
4263 
4407 
4562 
4673 
4838 
5013 
5240 
5390 
5493 
5646 
5808 
1216# 
173 
174# 
11887 
1195# 
2235 
2475 
2636 
2861 
3093 
3373 
3522 
3630 
3801 
3971 
4095 
4243 
4400 
4544 
4668 
4831 
5002 
5227 
5376 
5488 
5639 
5803 
8645 
1038# 
1180* 
118U 
1179* 


2506 
2662 
2900 
3136 
3422 
3531 
3641 
3827 
3995 
4104 
4269 
4413 
4568 
4677 
4844 
5020 
5247 
5396 
5497 
5652 
5814 
1723 
2596 
2504 

1723 
Z266 
2480 
2651 
2894 
3132 
3418 
3528 
i637 
3823 
3991 
4101 
4265 
4409 
4564 
4674 
4840 
5015 
5242 
5392 
5494 
5648 
5810 
8890 
5987 


13655 


2511 

2535 

2541 

2551 

2564 

2696 

2701 

2732 

2737 

2768 

2905 

2936 

2943 

2948 

2974 

3155 

3205 

3210 

1^46 

3429 

3433 

3439 

3445 

i\n 

3537 

3543 

3563 

3569 

3689 

3695 

3705 

37M 

3733 

3837 

3843 

3865 

3871 

3881 

4002 

4006 

4012 

4018 

4038 

4110 

4116 

4136 

4142 

4149 

4278 

4284 

4306 

4312 

4321 

4464 

4470 

4477 

4481 

4487 

4575 

4579 

4585 

4591 

^611 

4683 

4689 

4737 

4743 

4752 

4866 

4872 

4881 

4887 

4909 

5063 

5069 

5084 

5091 

5139 

5300 

5306 

5313 

5317 

5323 

5403 

5407 

5413 

5419 

5435 

5503; 

5509 

5553 

5559 

5568 

5670 

5676 

5685 

5691 

5709 

5862 

5868 

5877 

5883 

5936 

1775 

1781 

1832 

1949 

1975 

2293 

2298 

2323 

2328 

2360 

2507 

2512 

2536 

2542 

2552 

2663 

2697 

2702 

2733 

2738 

2901 

2906 

2937 

2944 

2949 

3137 

3156 

3161 

3206 

3211 

3424 

3430 

3434 

3441 

3447 

3532 

3539 

3545 

3565 

3571 

3643 

3691 

3697 

3707 

3713 

3829 

3839 

3845 

3867 

3873 

3997 

4003 

4007 

4014 

4020 

4105 

4112 

4118 

4138 

4144 

4271 

4280 

4286 

4308 

4314 

4415 

4466 

4472 

4478 

4482 

4570 

4576 

4580 

4587 

4593 

4678 

4685 

4691 

4739 

4745 

4846 

4868 

4874 

4883 

4889 

5022 

5065 

5071 

5086 

5093 

5249 

5302 

5308 

5314 

5318 

5398 

5404 

5408 

5415 

5421 

5498 

5505 

5511 

5555 

5561 

5654 

5672 

5678 

5687 

5693 

5816 

5864 

5870 

5879 

5885 

8934 

11747 

13848 

6523 

6634 

8180 

8697 

8992 

2580 
2773 
2979 
3251 
1471 
1580 
1739 
5887 
4044 
4153 
4327 
4493 
4617 
4758 
4915 
5145 
5329 
5441 
5574 
5715 
5942 


2585 
2807 
3011 
3272 
3478 
3586 
3749 
3940 
4051 
4159 
4349 
4513 
4624 
4780 
4924 
5152 
5345 
5448 
5592 
5724 
5949 


2598 
2813 
3016 
3277 
3482 
3592 
3755 
3946 
4055 
4165 
4355 
4519 
4628 
4786 
4930 
5156 
5351 
5452 
5598 
5730 
5953 


2609 
2818 
3061 
3322 
3488 
3612 
3777 
3953 
4061 
4220 
4364 
4526 
4634 
4795 
4984 
5168 
5358 
5458 
5607 
5781 
5960 


2145 
2365 
2565 
2769 
2975 
3247 
3467 
3577 
3735 
3883 
4040 
4150 
4323 
4489 
4613 
4754 
4911 
5141 
5325 
5437 
5570 
5711 
5938 


2149 
2376 
2581 
2774 
2980 
3252 
3473 
3581 
3741 
3889 
4046 
4154 
4329 
4495 
4619 
4760 
4917 
5147 
5331 
5443 
5576 
5717 
5944 


2170 
2381 
2586 
2808 
3012 
3273 
3479 
3588 
3751 
3942 
4052 
4161 
4351 
4515 
4625 
4782 
4926 
5153 
5347 
5449 
5594 
5726 
5950 


2177 
2411 
2599 
2814 
3017 
3278 
3483 
3594 
3757 
3948 
4056 
4167 
4357 
4521 
4629 
4788 
4932 
5157 
5353 
5453 
5600 
5732 
5954 


2615 
2849 
3066 
3327 
3494 
3618 
3783 
3957 
4067 
4226 
4370 
4530 
4640 
4801 
4990 
5175 
5362 
5464 
5613 
5787 
5967 


2630 
2855 
3087 
3367 
3514 
3625 
3793 
3963 
4087 
4235 
4392 
4536 
4660 
4823 
4997 
5219 
5368 
5480 
5631 
5798 


2635 
2860 
3092 
3372 
3520 
3629 
3799 
3969 
4093 
4241 
4398 
4542 
4666 
4829 
5001 
5225 
5374 
5486 
5637 
5802 


SEO  0552 


2184 
2417 
2610 
2819 
3062 
3323 
3490 
3614 
3779 
3954 
4063 
4222 
4366 
4527 
4636 
4797 
4986 
5170 
5359 
5460 
5609 
5783 
5962 


2190 
2427 
2616 
2850 
3067 
3328 
3496 
3620 
3785 
3958 
4069 
4228 
4372 
4531 
4642 
4803 
4992 
5177 
5363 
5466 
5615 
5789 
5969 


2209 
2439 
2631 
2856 
3088 
3368 
3516 
3626 
3795 
3965 
4089 
4237 
4394 
4538 
4662 
4825 
4998 
5221 
5370 
5482 
5633 
5799 


10823   11421   11610   11680   11696   13179   13773 


FSB 

FSBF 

FSELEC 

FSF 

FSFF 

GET 


GET TAB 
GO 


181 

182/r 

1178# 

177 

178# 

1022# 

6729 

8456 

8883 

9254 

9548 

9842 

10351 

10709 

11006 

11301 

11528 

11772 

12112 

12529 

13218 

13452 

13923 

14153 

8696 

1019 

1685 

1846 

1966 

2291 

2413 

2550 

2695 

2816 

2917 

3031 

3174 

3304 

3412 

3475 

3536 

3611 

3704 

3792 

3880 

3967 

4042 

4107 

4200 

4282 

4368 

4468 

4533 


2898 
13695 

2941 

1821 

6817 

8457 

8989 

9264 

9549 

9843 

10353 

10710 

11076 

11302 

11560 

11814 

12130 

12530 

13236 

13606 

13958 

13772 
1589 
1701 
1857 
1973 
2295 
2414 
2554 
2699 
J830 
2933 
3040 
3186 
3318 
3413 
3477 
3541 
3616 
3709 
3797 
3885 
3985 
4048 
4109 
4214 
4300 
4386 

.  4474 
4535 


SEQ   0553 


6001 

7625 

8632 

9041 

9276 

9550 

9844 

10354 

10855 

11077 

11383 

11561 

11821 

12380 

12531 

13237 

13607 

13959 


1590 
1703 
1859 
2040 
2309 
2425 
2579 
2713 
2846 
2935 
3060 
3202 
3319 
3415 
3481 
3559 
3622 
3727 
3815 
3906 
3986 
4050 
4114 
4215 
4301 
4387 
4476 
4540 


6042 

7790 

8633 

9097 

9284 

9605 

9845 

10355 

10856 

11078 

11384 

11562 

11852 

12401 

12559 

13238 

13608 

13988 


1632 
1740 
1864 
2041 
2321 
2429 
2583 
2731 
2848 
2939 
3064 
3204 
3321 
3420 
3485 
3560 
3624 
3728 
3816 
3921 
3988 
4054 
4132 
4219 
4305 
4391 
4480 
4558 


6436 

7791 

8634 

9098 

9308 

9606 

9928 

10430 

10857 

11079 

11385 

11603 

11893 

12408 

12600 

13247 

13609 

14043 


1633 
1741 
1873 
2095 
2325 
2457 
2597 
2735 
2852 
2940 
3071 
3208 
3325 
3426 
3487 
3562 
3628 
3732 
3820 
3922 
3993 
4058 
4133 
4224 
4310 
4396 
4484 
4559 


6437 

7920 

8684 

9099 

9391 

9607 

9988 

10431 

10858 

11122 

11386 

11612 

11894 

12415 

12601 

13248 

13672 

14044 


1636 
1754 
1884 
2125 
2339 
2473 
2608 
2749 
2854 
2942 
3086 
3224 
3347 
3428 
3492 
3567 
3632 
3737 
3825 
3936 
3999 
4060 
4135 
4230 
4316 
4402 
4486 
4561 


6438 

8324 

8685 

9113 

9392 

9608 

10012 

10477 

10859 

11123 

11445 

11613 

11895 

12433 

12602 

13260 

13673 

14045 


1645 
1756 
1889 
2135 
2358 
2477 
2612 
2765 
2858 
2946 
3090 
3227 
3348 
3432 
3510 
3573 
3634 
3743 
3831 
3937 
4001 
4065 
4140 
4234 
4320 
4406 
4491 
4566 


6439 

8325 

8712 

9158 

9393 

9609 

10073 

10520 

10860 

11124 

11446 

11682 

12020 

12440 

12603 

13279 

13674 

14081 


1655 
1759 
1908 
2143 
2362 
2491 
2613 
2767 
2872 
2960 
3104 
3245 
3363 
3436 
3511 
3575 
3639 
3748 
3836 
3939 
4005 
4083 
4146 
4239 
4325 
4411 
4509 
4572 


6657 

8332 

8713 

9159 

9394 

9619 

10099 

10521 

10861 

11125 

11447 

11683 

12021 

12447 

12648 

13291 

13675 

14082 


1658 
1773 
1941 
2147 
2374 
2505 
2629 
2771 
2890 
2973 
3128 
3249 
3364 
3438 
3513 
3579 
3659 
3753 
3841 
3944 
4009 
4084 
4148 
4257 
4343 
4431 
4510 
4574 


6658 

8451 

8734 

9203 

9395 

9737 

10120 

10562 

10862 

11177 

11448 

11684 

12056 

12462 

12674 

13298 

13795 

14083 


1663 
1779 
1956 
2160 
2378 
2509 
2633 
2785 
2892 
2977 
3130 
3269 
3366 
3443 
3518 
3583 
3683 
3771 
3859 
3950 
4011 
4086 
4152 
4258 
4344 
4445 
4512 
4578 


6659 

8452 

8763 

9209 

9469 

9738 

10240 

10600 

10863 

11178 

11449 

11685 

12057 

12525 

12675 

13339 

13796 

14084 


1676 
1819 
1958 
2168 
2386 
2523 
2646 
2804 
2896 
2991 
3134 
3271 
3370 
3461 
3524 
3585 
3684 
3772 
3860 
3952 
4016 
4091 
4156 
4262 
4348 
4446 
4517 
4582 


6663 

8453 

8853 

9211 

9470 

9739 

10241 

10603 

10864 

11298 

11499 

11686 

12058 

12526 

12676 

13357 

13797 

14139 


1680 
1829 
1960 
2201 
2387 
2534 
2649 
2806 
2897 
3008 
3139 
3275 
3388 
3462 
3526 
3590 
3688 
3776 
3864 
3956 
4034 
4097 
4158 
4267 
4353 
4460 
4523 
4584 


6664 

8454 

8854 

9246 

9471 

9740 

10242 

10621 

10865 

11299 

11500 

11732 

12059 

12527 

12677 

13429 

13871 

14140 


1683 
1830 
1962 
2220 
2396 
2538 
2653 
2810 
2899 
3010 
3154 
3294 
3398 
3464 
3530 
3608 
3693 
3781 
3869 
3960 
4035 
4099 
4163 
4273 
4359 
4461 
4525 
4589 


6665 

8455 

8855 

9252 

9547 

9841 

10243 

10687 

10866 

11300 

11501 

11733 

12060 

12528 

12690 

13444 

13901 

14141 


1684 
1838 
1964 
2277 
2409 
2539 
2677 
2812 
2903 
3014 
3158 
3303 
3399 
3469 
3534 
3609 
3699 
3787 
3875 
3962 
4037 
4103 
4183 
4277 
4363 
4463 
4529 
4607 


HALT 

HALTF 

ILLFCN 

JEN 

JRSTF 

LCR 

LDREG 


4608 
4672 
4775 
4861 
4965 
5060 
5151 
5282 
5344 
5406 
5476 
5557 
5635 
5713 
5805 
5932 
6009 
6257 
6636 
6722 
6965 
7086 
7203 
7304 
7462 
8064 
8241 
8731 
8932 
9015 
9096 
9263 
9432 
9688 
10257 
11119 
11498 
12015 
12620 
13254 
13526 
13847 

46 
8885 
191 
1026* 
10254f 
302 
263# 
2648 
6654 
13361 
13451 


4610 
4676 
4779 
4865 
4966 
5062 
5155 
5283 
5349 
5410 
5477 
5563 
5641 
5719 
5807 
5933 
6014 
6319 
6637 
6752 
6967 
7088 
7246 
7327 
7477 
8066 
8245 
8733 
8933 
9017 
9104 
9275 
9433 
J692 
10367 
11120 
11523 
12041 
12636 
13259 
13545 
13867 
47 
8940 
2167 


4615 

4680 

4784 

4870 

4980 

5067 

5159 

5296 

5355 

5412 

5479 

5567 

5645 

5723 

5812 

5935 

6019 

6320 

6649 

6753 

6986 

7098 

7249 

7338 

7489 

8080 

8249 

8758 

8937 

9022 

9126 

9303 

9451 

9764 

10369 

11173 

11527 

12051 

12638 

13275 

13563 

13869 

48 

11741 


8898   11620 


4621 

4682 

4790 

4876 

4981 

5073 

5167 

5297 

5357 

5417 

5484 

5572 

5650 

5728 

5830 

5940 

6020 

6343 

6652 

6755 

6988 

7100 

7254 

7362 

7505 

8088 

8251 

8761 

8938 

9024 

9131 

9306 

9454 

9771 

10685 

11212 

11588 

12052 

13075 

13278 

13578 

13955 

49 


4623 

4687 

4794 

4880 

4983 

5083 

5172 

5299 

5361 

5431 

5490 

5586 

5664 

5745 

5856 

5946 

6051 

6428 

6675 

6797 

6999 

7111 

7257 

7375 

7531 

8111 

8273 

8777 

8939 

9026 

9153 

9317 

9455 

9791 

10782 

11251 

11602 

12053 

13087 

13283 

13583 

14020 

50 


4627 
4707 
4799 
4885 
4988 
5088 
5188 
5304 
5365 
5432 
5492 
5587 
5665 
5759 
5857 
5948 
6057 
6432 
6677 
6800 
7001 
7113 
7263 
7380 
7549 
8123 
8330 
8779 
8997 
9028 
9154 
9341 
9467 
9803 
10841 
11264 
11679 
12054 
13088 
13290 
13588 
14116 
1024# 


4631 
4731 
4817 
4903 
4994 
5104 
5215 
5310 
5367 
5434 
5496 
5591 
5669 
5760 
5861 
5952 
6099 
6434 
6681 
6809 
7018 
7124 
7266 
7387 
7561 
8125 
8331 
8783 
8999 
9030 
9155 
9342 
9504 
9821 
10849 
11283 
11695 
12111 
13096 
13323 
13605 
14151 
1329 


4633 
4732 
4818 
4904 
4996 
5120 
5216 
5312 
5372 
5439 
5500 
5596 
5674 
5777 
5866 
5956 
6101 
6554 
6683 
6812 
7020 
7126 
7271 
7390 
7577 
8181 
8543 
8791 
9001 
9032 
9157 
9343 
9521 
9925 
10868 
11325 
11771 
12129 
13109 
13327 
13624 

13082 


4638 
4736 
4822 
4908 
5000 
5121 
5218 
5316 
5386 
5445 
5502 
5602 
5680 
5778 
5872 
5959 
6156 
6570 
6700 
6816 
7031 
7137 
7274 
7398 
7593 
8182 
8631 
8811 
9003 
9034 
9163 
9358 
9524 
9966 
10926 
11333 
11805 
12149 
13146 
13392 
13626 


4656 
4741 
4827 
4913 
5004 
5135 
5223 
5320 
5387 
5447 
5507 
5606 
5684 
5780 
5876 
5964 
6158 
6606 
6704 
6890 
7033 
7139 
7278 
7403 
7646 
8185 
8676 
8903 
9005 
9036 
9168 
9365 
9526 
9970 
10985 
11377 
11806 
12392 
13150 
13395 
13697 


4657 
4747 
4833 
4919 
5012 
5136 
5229 
5322 
5389 
5451 
5523 
5611 
5689 
5785 
5881 
5972 
6167 
6618 
6706 
6916 
7044 
7150 
7281 
7410 
7663 
8186 
8681 
8922 
9007 
9038 
9208 
9367 
9529 
9974 
11039 
11414 
11807 
12516 
13178 
13402 
13701 


4659 
4751 

tni 

4837 

4842 

4923 

4928 

5017 

5032; 

5138 

5143 

5239 

5244 

5327 

5341 

5394 

5400 

5455 

5457 

5547 

5548 

5625 

5626 

5703 

5704 

5791 

5797 

5902 

5917 

5986 

6000 

6170 

6201 

6619 

6626 

6710 

6714 

6938 

6949 

7046 

7067 

7152 

7160 

7286 

7289 

7413 

7423 

7688 

7712 

82312 

8237 

8725 

8726 

8926 

8930 

9009 

9011 

9040 

9093 

9210 

9251 

9380 

93182 

9583 

9590 

9987 

10011 

11044 

11106 

11437 

11444 

11813 

11820 

12522 

12544 

13228 

13232 

13419 

13467 

13707 

13782 

4670 
4774 
4860 
4949 
5059 
5149 
5268 
5342 
5402 
5462 
5552 
5630 
5708 
5801 
5918 
6008 
6246 
6629 
6718 
6951 
7069 
7197 
7302 
7444 
7715 
8239 
8730 
8931 
9013 
9094 
9253 
9389 
9617 
10255 
11118 
11494 
11848 
12618 
13235 
13485 
13832 


SEQ  0554 


1764 

2665 

6694 

13365 

13455 


1834 

5994 

6697 

13423 

13458 


1837 

6013 

6707 

13426 

14152 


1839 

6015 

6728 

13427 


1842 

6100 

8906 

13428 


1845 

6118 

8927 

13433 


1847 

6124 

13210 

13434 


1967 

6126 

13211 

13436 


2015 

6127 

13217 

13437 


2424 

6180 

13244 

13441 


2549 

6190 

13246 

13443 


2559 

6193 

13300 

13447 


2638 

6421 

13346 

13450 


LDREGA 
LDREGB 


LOCK 

LUR 

LURF 

MAPADR 

MAPCNK 

MAPnen 

MAPPNT 
HAPSET 

nensEG 
nenzRo 

MODPCP 

MODPCU 

HTROP 

NAME 

NOP 

NOPF 

OUTSTR 

PBELL 

PCRL 


PCRL2 

PCRL2F 

PCRLF 

PDEC 

PFORCE 

PGMINT 

PJRST 

PHSG 


PMSGF 

PNTl 

PNT11 

PNTl IF 

PNT1F 

PNT2 

PNT2F 

PNT3 


205# 
6728 

14152 
206# 
6193 

13426 
1623 
199 
200# 
1161# 
1162# 
1158# 
1164# 
1163# 
1160# 
1159# 
1171# 
1170# 
1139# 
4# 
165 
1664f 
8893 
1114# 
1108# 
8093 

11147 
1112# 
1113# 
1109# 

13318 
211 
1116# 
1032* 
1023* 
1118# 
2076 
6521 
6910 
7123 
7578 
8191 
8335 

12852 

12903 
1121# 
1074# 
1088# 
1089# 
1075# 
1076# 
1077# 
1078* 


1765 
8906 

1967 

6421 

13434 


4 
2142 
2320 
8918 
1593 
1885 
8128 
11179 
1732 

1702 
13341 
7509 
2050 
•587 
9318 
1728 
2082 
6632 
6928 
7136 
7594 
8196 
8340 
12855 

1594 
7565 


9631 

2033 

13408 

7343 


1834 
8927 

2015 

6694 

13436 


3203    3270 


2628 


1624 
8137 


10093 
7919 


1837 
13296 

2424 

6697 

13437 


1839 
13423 

2549 

6707 

13450 


184 
1342 


2559 
13210 


1699 
11109 


13372 
8169 


7915    8175 


6045 
11266 


8173 
8255 


8973 
12018 


8190 
8263 


1845 
13428 

2648 
13211 


1847 
13433 

2665 
13217 


2638 
13441 

6015 
13244 


5994 
13443 

6118 
13246 


if^ 


447 


6124 
13300 


ilOO 
13451 

6126 
13346 


6127 
13455 

6180 
13361 


6654 
13  "■ 


458 


6190 
13365 


SEQ  0555 


1672 

13530 

1905 

2034 

2063 

2088 

6041 

8138 

8268 

8275 

8762 

8!1? 

11198 

11267 

11317 

11322 

11382 

8923 

9344 

9381 

9383 

9384 

13359 

13376 

13412 

13553 

13732 

7533 

8278 

8283 

8288 

8293 

7679 

10026 

10098 

1];065 

1!1265 

13269 

13381 

13386 

1851 

1858 

1872 

1875 

1896 

2085 

2087 

6018 

6028 

6031 

6650 

6701 

6705 

6711 

6715 

6932 
7149 

6948 
7166 

^?^^ 

m 

6998 
7200 

7617 

7668 

7680 

76S2 

7685 

8201 

8204 

8213 

8221 

8228 

8771 

8127 

9120 

9122 

12860 

12863 

12866 

12871 

12874 

8976 
12387 


8212 
8281 


6888 

9125 

12019 


9636 
14073 


1899 
6034 
6719 
7017 
7305 
7760 
8233 
9132 
12879 

8980 
12420 


12395 
8286 


6936 
10282 
12461 


9704 
14080 


6914 
10031 
12055 


9660 
14078 


2027 
6038 
6751 
7030 
7339 
8036 
8242 
9136 
12882 


8983    8985 


7195 
10386 


7656 
10391 


7671 
11117 


7695 
11121 


9775   10119   11880   13308 


2031 

2052 

6055 

6061 

6754 

6864 

7043 

7066 

7424 

7490 

8090 

8120 

8246 

8252 

9139 

9196 

12885 

12890 

2054 

2057 

2060 

6426 

6517 

6519 

6869 

6885 

6908 

7085 

7097 

7110 

7506 

7532 

7562 

8134 

8154 

8183 

8256 

8260 

8264 

9239 

9404 

9408 

12895 

12897 

12900 

8988 


9049    9053 


12427 
8291 


12862 
8296 


12865 
11136 


11155   11186   12407 


u. , ■     .  . 

12907 

12439 

12854 

12857 

12868 

12876 

12881 

12892 

12905 

PNT3F 

1079* 

9448 

9613 

9703 

9714 

9788 

10097 

13340 

13375 

13411 

PNTA 

1080# 

PNTAF 

1081# 

13317 

13337 

13355 

PNT5 

p^&  t  V  P  r 

1082# 
1083* 
108A# 

PNT5F 
PNT6 

1731 

6040 

7694 

9138 

9193 

9236 

11308 

11381 

12379 

12414 

12446 

12850 

US87 

! 

12902 

PNT6F 

1085* 

8991 

11875 

11879 

13307 

13358 

PNT7 

1086« 

PNT7F 

1087# 

PNTA 

1060# 

\  PNTADF 

1091# 

i  PNTADR 

1090* 

11328 

PNTAF 

1061# 

PNTAL 

1062* 

PNTALF 

1063# 

j  PNTCHF 

1073# 

12672 

13551 

PNTCHR 

1072# 

8807 

12598 

13878 

iPNTCl 

1070# 

1878 

1902 

7722 

7725 

7727 

12079 

12097 

12454 

12545 

12558 

12561 

14074 

14079 

'  PNTCIF 

1071# 

13723 

13729 

14161 

PNTCU 

1106# 

PNTCUF 

1107# 

PNTDCF 

1099* 

9052 

12646 

13915 

13917 

13919 

13921 

14126 

14132 

14137 

PNTDEC 

1098# 
13893 

1853 
13895 

1877 
13897 

2029 
13899 

2056 
14030 

6030 
14036 

6033 
14041 

6037 

8339 

8773 

9135 

9199 

9242 

12557 

i  PNTDS 

'  n&iTncr 

1100* 
110U 
109A# 

8710 

PNTDSF 
; PNTHU 

6887 

6912 

6934 

7670 

8153 

10281 

10385 

11146 

11163 

11197 

11205 

11316 

12003 

12010 

12049 

12460 

PNTHWF 

1095# 
1185# 
1067# 

11176 

11215 

12687 

!  PNTRGN 
I  PNT«SF 

^673 

5255 

8639 

8756 

8759 

9443 

9445 

9449 

9576 

9599 

2§91 

9626 

9629 

9662 

J667 

9669 

9672 

9675 

9679 

9697 

9699 

9710 

9715 

9729 

9779 

9781 

9782 

9785 

9789 

9819 

9838 

10091 

10094 

11104 

11110 

11116 

11137 

11142 

11156 

11165 

11174 

11187 

11200 

11206 

11213 

11262 

11273 

11278 

11296 

11309 

11321 

11326 

11329 

11337 

11339 

1136A 

11374 

11375 

11378 

11606 
12647 

11674 

11691 

11736 

11744 

11871 

11876 

11892 

11900 

11904 

12619 

12621 

12637 

12639 

12650 

12685 

12688 

13079 

13097 

13155 

13160 

13175 

13305 

13315 

13335 

13338 

13351 

13356 

13370 

13373 

13379 

13384 

13389 

1340? 

13531 

13668 
14136 

J  5720 

13726 

13776 

13780 

13790 

13812 

13841 

13922 

14122 

14125 

14127 

14131 

14133 

14138 

14158 

14164 

14168 

14172 

14176 

14182 

14190 

14194 

14198 

14202 

14206 

PNTMSG 

1066# 

2030 

2079 

7616 

7622 

7751 

8166 

8225 

8270 

Si'"' 

8284 

8289 

8294 

8670 

8677 

8682 

9190 

9200 

9233 

9243 

10270 

10277 

10279 

10382 

10387 

11993 

12001 

12016 

12047 

12100 

12377 

12385 

12388 

12393 

12398 

12400 

12405 

12412 

12418 

12421 

12425 

12430 

12432 

12437 

12444 

12453 

12458 

12541 

12835 

12840 

12843 

12848 

12909 

12913 

12917 

12920 

12924 

M927 

12930 

12934 

12937 

129A1 

12944 

12948 

13870 

13900 

14026 

14029 

14031 

14035 

14037 

14040 

14042 

PNTNM 

1102# 

PNTNUM 

210 

7681 

8092 

8119 

8127 

8224 

8227 

8259 

8267 

1  PNTOCF 

1097# 

8975 

8981 

8987 

PNTOCS 

1096# 

2059 

2062 

2078 

7A28 

7581 

7597 

7624 

8323 

9124 

10275 

10390 

12000 

12086 

12099 

12424 

12457 

12837 

12842 

12845 

12899 

12911 

12915 

12919 

12922 

12926 

12928 

12932 

12936 

12939 

12943 

129A6 

12950 

SEQ  0556 


- 

PNTOCT 

1092# 

PNTOTF 

1093# 

PNTSIX 

1103# 

1901 

1904 

12078 

12537 

PNTSXF 

1104# 

8984 

13722 

13725 

13728 

13731 

14160 

14163 

PSIXL 

106A# 

PSIXLF 
PSIXM 

1065# 
1068# 
2076 

1729 

1851 

1858 

1872 

1875 

1896 

1899 

2922 

22|1 

2052 

2054 

2057 

2060 

2082 

2085 

2087 

6018 

6023 

6031 

6034 

6038 

6056 

6061 

6427 

6517 

6519 

M      ^^   4^  d^ 

6521 

6633 

6651 

6701 

6705 

6711 

6715 

6719 

^lll 

6754 
7043 

6864 

6869 
7085 

6885 

6908 

6910 

6928 

6932 

6948 

6964 

6985 
7192 

6998 

7017 

7030 

7066 

7097 

7110 

7123 

7136 

7149 

7166 

7178 

7200 

7305 

7307 

7339 

7424 

7490 

7493 

7506 

7532 

7562 

7578 

7594 

7617 

7650 

7668 

7680 

7682 

7685 

7717 

7760 

8038 

8091 

8121 

8135 

8155 

8184 

8192 

8197 

8202 

l^l 

8214 

^^11 

8229 

8234 

8243 

8247 

8253 

8257 

8261 

8265 

8336 

8341 

8771 

8827 

9120 

9122 

9132 

9136 

9139 

9196 

9239 

9405 

9409 

12852 

12855 

12860 

12863 

12866 

12871 

12874 

12879 

12882 

12885 

12890 

12895 

12897 

12900 

12903 

PSIXMF 

1069# 

1595 

1625 

1700 

6045 

8973 

8976 

8980 

8983 

8985 

8988 

9049 

9053 

PSOUT 

8882 

8911 

8915 

prp 

1110# 
1111# 
1021# 

7757 

8320 

12538 

12546 

'•*  .  -'r 

r  i7 

1815 

5993 

6027 

6408 

6409 

6410 

6411 

6611 

6612 

§6^1 

6725 

6814 

7623 

7769 

7770 

7911 

8304 

8305 

8328 

8439 

8440 

8441 

8442 

8443 

an 

8445 

8568 

8569 

8570 

8668 

8669 

8705 

1(8$ 

8724 

8755 

8835 

8836 

8857 

8879 

9020 
9271 

9075 

9076 

9077 

9110 

9143 

9144 

9188 

9204 

9230 

9231 

9247 

9260 

9301 

9331 

9332 

9333 

9334 

9335 

9422 

9423 

9424 

9496 

9497 

9498 

9499 

9568 

9569 

9570 

9571 

9572 

9616 

9654 

9655 

9656 

9657 

9758 

9759 

9760 

9761 

9762 

9924 

9956 

10007 

10050 

10090 

10112 

10195 

10197 

10198 

10199 

10315 

10316 

10317 

10329 

10413 

10417 

10420 

10423 

10426 

10456 

10470 

10499 

10502 

10505 

10508 

10511 

10514 

10556 

10591 

1 

10596 

10611 

10615 

10678 

10679 

10684 

10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

1 

10796 

10797 

10798 

10799 

10998 

11040 

11041 

11042 

11043 

11100 

11101 

11102 

1110!; 

11166 

11167 

11254 

11255 

11256 

11257 

11258 

11360 

11361 

11362 

11363 

11406 

11407 

11408 

11409 

11A10 

11478 

11479 

11480 

11522 

11551 

11552 

11553 

11579 

11580 

11654 

11658 

11659 

11660 

11661 

11715 

11716 

11765 

11804 

11818 

11844 

11868 

11869 

11870 

11991 

11992 

12035 

12036 

12037 

1  i038 

12039 

12107 

12117 

12376 

12384 

12404 

12411 

12417 

12436 

12443 

12452 

12494 

12500 

12501 

12502 

12503 

12504 

12505 

12555 

12583 

12584 

12585 

12586 

12644 

12657 

12658 

12659 

12660 

12684 

13214 

13221 

13222 

13223 

13241 

13242 

13250 

13263 

^li^l 

13271 

13273 

13293 

13332 

13352 

13422 

13432 

13446 

13541 

13542 

13543 

13544 

13768 

13769 

13770 

13865 

13891 

13913 

13945 

13946 

13976 

14013 

14014 

14015 

14049 

14050 

14051 

14075 

14109 

14110 

14111 

14149 

RDEXS 

>  nrvr  •  i 

198 
194 
195# 

2972 

j  RDFy 
RDFUF 

3437 

3486 

3535 

3584 

3633 

3961 

4010 

4059 

4108 

4157 

4485 

4534 

4583 

4632 

4681 

5011 

5166 

5321 

5366 

5411 

5456 

5501 

5806 

5958 

RDREG 

271$ 

1716 

1767 

1790 

1797 

1801 

1808 

1913 

1915 

1924 

1932 

1955 

1957 

1959 

1961 

1963 

1965 

1969 

2022 

2172 

2179 

2206 

2229 

2255 

mi 

22^^ 

2247 

2250 

2253 

2256 

2259 

2430 

2555 

2643 

2654 

6010 

6052 

6058 

6258 

6265 

6278 

6300 

6374 

6414 

6422 

6431 

6433 

6644 

6678 

6684 

6747 

6945 

6961 

6978 

6995 

7010 

7027 

7040 

7061 

7078 

7094 

7107 

7120 

7133 

7146 

8538 

8998 

9000 

9002 

9004 

9006 

9008 

9010 

9012 

9014 

9016 

9021 

13311 

9023 

9025 

9027 
13347 

9029 

9031 

9033 

9035 

9037 

9039 

9112 

9130 

13172 

13301 

13328 

13333 

13353 

13366 

13403 

RDREGA 

203# 

1716 

1767 

1790 

1913 

2172 

2179 

2229 

2238 

6010 

6052 

6058 

6258 

6265 

6374 

6644 

6678 

6747 

6945 

6961 

6978 

6995 

9021 

9023 

9025 

9027 

9112 

9130 

13172 

13416 

SEQ  0557 


RDREGB 


RDRV 
RDRVf 

REPEAT 


REPTUO 
RESET 
RPCAP 
RTN 


RUNT in 

RUNTn 

RUD 

RUDUN 

S 

SENSE 

SETSTA 


SETUUO 

SIR 

SIXBTZ 


20A# 
2022 
6500 
7133 
9031 
196 
197# 
4879 
208# 
27A0 
4174 
1199# 
8644 
11555 
1020# 
6129 
660> 
6818 
8096 
8326 
8776 
9042 
9255 
9869 
10478 
11148 
11614 
11853 
12212 
12547 
12734 
12912 
13292 
13420 
13719 
13989 
13980 
13983 
167 
168 
950 
189 
225# 
2755 
3305 
5202 
13789 
8846 
11 27# 
7939 
7956 
7971 
7985 


1797 
2206 
6414 
7146 
9033 

3703 
4922 
1724 
2776 
4422 
9286 
8948 

1316 

6203 

6609 

7678 

8101 

8333 

8780 

9048 

9265 

9872 

10522 

11180 

11622 

12022 

12213 

12560 

12735 

12916 

13299 

I  <430 

13734 

1 4046 

14058 

14061 

2408 


2290 
2286 
2793 
3349 
5231 


7926 
7940 
7957 
7972 
7986 


1801 

1808 

1915 

1924 

2241 

2244 

2247 

2250 

6422 

6431 

6433 

668A 

8539 

8998 

9000 

9002 
13301 

9035 

9037 

9039 

3747 

3791 

3835 
5566 

3879 

5082 

5238 

5605 

2151 

2192 

2211 

2268 

2821 

2863 

2908 

2951 

4698 

4939 

5024 

5095 

1874 

18^9 

1890 

1942 

6315 

6317 

6321 

6367 

6661 

6666 

m 

m 

7696 

7710 

8130 

8132 

8139 

8156 

8S42 

8514 

8535 

8545 

8805 

8822 

8825 

8828 

9054 

9100 

9105 

9108 

9277 

9300 

9309 

9396 

9886 

9923 

9929 

9991 

10563 

10604 

10609 

10622 

11199 

11242 

11252 

11303 

11633 

11637 

11651 

11653 

12061 

12083 

12087 

12094 

12214 

12215 

12381 

12402 

12604 

12622 

12640 

12649 

12736 

12737 

12738 

12739 

12923 

12929 

12933 

12940 

13304 

13309 

13314 

13319 

13445 

13453 

13456 

13459 

13754 

13767 

13798 

13809 

14085 

14142 

14166 

14196 

2533    2607    6674 


2578 
2316 
2836 
3400 
5284 


7927 
7941 
7958 
7973 
7987 


2350 
2880 
3671 
5533 


7928 
7942 
7959 
7974 
7988 


2367 
2924 
3923 
5761 


7929 
7943 
7961 
7975 
7989 


2404 
2967 
4201 
5840 


7930 
7944 
7962 
7976 
7990 


1932 
2253 
7010 
9004 
13311 

4233 
5644 
2300 
2982 
5179 


1992 

6378 

6708 

7792 

8178 

8635 

8834 

9118 

9402 

10013 

10/11 

11318 

11687 

12101 

12409 

12678 

12838 

12947 

13331 

13471 

13839 


2463 
3000 
4447 
5919 


7931 
7945 
7963 
7977 
7991 


1955 

7027 

9006 

13328 

4276 
5683 
2330 
3019 
5251 


2025 

6381 

6723 

7822 

8193 

8666 

8856 

9128 

9472 

10032 

10783 

11387 

11714 

12106 

12416 

12691 

12846 

12951 

13342 

13486 

13852 


2497 
3044 
4716 


7932 
7946 
7964 
7978 
7993 


1957 
2259 
7040 
9008 
13333 

4319 
5722 
2383 
3095 
5514 


2035 

6400 

6730 

7837 

8198 

8686 

8900 

9141 

9551 

10074 

10869 

11450 

11734 

12113 

12434 

12725 

12851 

13170 

13350 

13487 

13872 


2529 
3072 
4967 


7933 
7948 
7965 
7979 
7994 


1959 
2430 
7061 
9010 
13347 

4362 
5875 
2443 
3163 
5735 


6002 

6440 

6737 

7868 

8206 

8693 

8947 

9160 

9610 

10100 

10928 

11503 

11762 

12131 

12441 

^2727 

12858 

13212 

13360 

13647 

13879 


2569 
3112 
5006 


7934 
7949 
7966 
7980 
7995 


1961 
2555 
7078 
9012 
13353 

4405 

2482 
3284 
5821 


6026 

6477 

6744 

7887 

8216 

8701 

8949 

9165 

9741 

10121 

10987 

11529 

11764 

12150 

12448 

12728 

12869 

13219 

13369 

13665 

13902 


1963 
2643 
7094 
9014 
13366 


1965 
2654 
7107 
9016 
13403 


1969 
6278 
7120 
9029 


SEQ  0558 


2603 
3140 
5046 


7935 
7950 
7967 
7981 
7996 


4750    4793    4836 


2514 
3379 
5893 


6044 

6582 

6749 

7903 

8269 

8714 

8951 

9169 

9846 

10244 

11013 

11556 

11775 

12206 

12463 

12731 

12877 

13239 

13377 

13667 

13924 


2618 
3187 
5075 


7936 
7951 
7968 
7982 
7997 


2668 
3649 
5971 


6054 

6585 

6756 

7921 

8276 

8735 

8967 

9212 

9863 

10356 

11080 

11559 

11817 

12207 

12532 

12732 

12888 

13249 

13406 

13670 

13960 


2704 
3896 


6060 

6590 

6793 

8094 

8298 

8764 

9018 

9229 

9865 

10432 

11126 

11563 

11822 

12211 

12539 

12733 

12908 

13261 

13413 

13676 

13984 


2686 
3228 
5122 


7937 
7953 
7969 
7983 
7998 


2722 
3254 
5161 


7938 
7954 
7970 
7984 
7999 


SNSRL 

SNSRLF 

SNSRS 

SNSRSF 

SWITCH 

TAPOP. 

TEST 


TRPSET 

TSTIO 

TSTIOF 

TTALTM 

TTICHR 

TTICLR 

TTICNV 

TTIDEC 

TTINO 

TTIOCT 

TTIYES 

TTLOOK 

TTSIXB 

TTYINP 

USRIO 

URT 


URTD 

WRTDF 

URTF 

WTM 

WTMF 

XI 

.LCR 


8000 
r.017 
169 
170# 
171 
172# 
1133# 
8961 
283# 
2705 
3898 
11596 
185 
186# 
105A/ir 
10A7/lf 
1057# 
1052# 
1051# 
10A9# 
1050* 
10A8# 
1053# 
1055# 
1056* 
11589 
192 
A085 
4821 
5629 
201 
202# 
193# 
175 
176# 
299 
209 


8001 
8019 

2373 

2357 
685A 

13831 
1704 
2741 
4175 

11729 

2472 

6021 

10113 

10064 


9686 
10027 

13098 

11724 
3414 
41^; 
^364 
5668 


3320 
J805 
2766 


8^03    8004 
SO.'^I    8023 


2127 

4423 
13o51 


6095 
13166 


8005 
8024 


8006 
8025 


80( 

8o; 


17 
'6 


8009 
8028 


8011 
8030 


8012 


8013   8014    8015   8016 


SEQ  0559 


2152 
2822 
4699 


14187 
13816 


2193 
2864 
4941 


2212 
2909 
5025 


2269 
2952 
5096 


2301 
2983 
5180 


2331 
3023 
5260 


2388 
3096 
5515 


2449 
3166 
5737 


2483 
3286 
5822 


2515 
3380 
5894 


2669 
3651 


9797 
1j507 


3463 
4218 
4907 
5707 


3365 
2847 
3059 


13108 
13516 


3512 
4261 
4982 
5779 


2891 
3244 


13149 


3561 
4304 
5061 
5860 


2934 


3610 
4347 
5137 
5934 


3687 
4390 
5217 


3731 
4462 
5298 


3775 
4511 
5343 


3819 
4560 
5388 


3863 
4609 
5433 


3938 
4658 
5478 


3987 
4735 
5551 


4036 
4778 
5590 


